0

私はExcelのVBAコードにかなり慣れていないので、列Aまたは列Bのテキスト文字列への参照を探し、列Cの完全な値を吐き出す作品を実行しようとしています.

したがって、「テスト」という単語が A 列または B 列のいずれかのセルに表示されている場合は、その値をリスト形式で C 列に貼り付けます。

検索は正確に一致する必要はなく、「Test」という単語を見つけるだけでよいことに注意することが重要です。IE: 列 A の「123Test123」は引き続きパスし、「123Test123」が列 C に書き込まれます。

これについて何か助けていただければ幸いです！

ありがとう！

4

1 に答える 1

0

これを試して：

Sub dural()
    Dim AB As Range, r As Range, K As Long
    Set AB = Range("A:B").Cells.SpecialCells(xlCellTypeConstants)
    K = 1
    For Each r In AB
        If InStr(1, r.Value, "Test") > 0 Then
            r.Copy Cells(K, "C")
            K = K + 1
        End If
    Next
End Sub
于 2013-08-23T21:05:29.620 に答える