0

タイトルにあるように、Col C を検索しようとしています。テキスト/数値が見つかった場合は、テキストを別のセルから Col D に移動します。

だからもっと簡単に言えば

EG: C10 にいくつかのテキストがあります - I8 から D10 にテキストをコピーしたい (新しいデータは常に 2 行上と列 I です)

私はこのVBAコードで遊んでいます

Dim find As String
Dim findcell As Range

FindString = "*" 
'Not sure how to find anything - But if I put a string that actually is in the sheet then it moves the example same one to Col D

For Each findcell In Range(ActiveSheet.Range("C1"), ActiveSheet.Range("C250").End(xlUp)).Cells
    If InStr(findcell, FindString) > 0 Then findcell.Offset(, 1) = FindString
Next findcell

どんな助け/アドバイスも大歓迎です

4

1 に答える 1

0

これを試して:

Dim findcell As Range

For Each findcell In Range(ActiveSheet.Range("C3"), ActiveSheet.Range("C250").End(xlUp)).Cells
    If Len(findcell) > 0 Then findcell.Offset(0, 1) = findcell.Offset(-2, 6)
Next findcell

しかし、もちろん、これは行 3 以降からのみ機能します。新しいデータは常に 2 行上にあると言うからです。

于 2013-10-01T10:27:10.400 に答える