特定の長さの文字列を見つけるVBA

Question

VBAを使用して、文字列内にスペースを含まずに正確に4文字の文字列を検索しようとしています。細胞にはもっと多くの文字列があります。私は数式の使用を避けたいと思います。コラム「A」を想定し

Answer 1

を使用すると、特定の文字列を持っているように、私は4つの文字、あなたは細胞内で見つける必要がある、あなたの質問を読ん1

Option Explicit 

Sub main() 
    Dim cell As Range 
    Dim arr As Variant, arrElem As Variant 

    With Worksheets("Strings") '<--| change "Strings" to your actual worksheet name 
     For Each cell In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) 
      arr = Split(Replace(cell.Value, " ", " "), " ") '<--| change "A"'s to your actual relevant column index 
      For Each arrElem In arr 
       If Len(arrElem) = 4 Then MsgBox arrElem 
      Next arrElem 
     Next cell 
    End With 
End Sub 

Answer 2

です。これはこれを行います。ちょうどあなたの文字列があるものは何でもして"test"を交換し、必要に応じて列を変更します。

Sub findCells() 
Dim rCells() As Variant 
Dim str As String 
Dim col As Integer 

str = "test" ' replace this with the text you want to find 
col = 1 ' to search Column A 

Dim i As Long 

For i = 1 To Cells(Rows.Count, col).End(xlUp).Row 
    If InStr(1, Cells(i, col), str) Then 
     ' Match found, add code here to do 
     ' whatever you need. 
     Debug.Print "Match found in cell: " & Cells(i, col).Address 
    End If 
Next i 

End Sub