vba - Instr を使用したセル値のコピー

Question

テキストの文字列を含むセルをコピーする必要があります。instr を使用してセルを検索していますが、コンテンツをコピーできません。助けてください。

Answer 1

セルが見つかったら (どのような方法を使用しても、セルをループして InStr を使用してその内容をテストしていると思います)、その値をクリップボードに「コピー」するのではなく、新しい変数に割り当てることができます。

Public Sub FindTheText()
    Dim strCellValue As String
    Dim i As Integer

    ' Loop through cells on a sheet to find the text "theText"
    For i = 1 To 100
        If InStr(1, "theText", Cells(i, 1).Value, vbTextCompare) <> 0 Then
            strCellValue = Cells(i, 1).Value
            Exit For
        End If
    Next i
End Sub

次に、文字列変数 strCellValue を別の場所で使用するか、次を使用して別のセルの値に割り当てることができます。

Cells(2,5).value = strCellValue