-1

私はVBAに少し慣れていませんが、列Eを検索し、値「TRUE」を探し、それぞれについて、この「TRUE」セルの右側に1セル移動して切り取るコードを見つけようとしています1セル右に貼り付けます。

私は一日中探していましたが、解決策が見つかりません。前もって感謝します!

4

1 に答える 1

0
 Dim row
 Dim column
 Dim value

 column = 5

 For row = 1 To 5000 Step 1
    value = Cells(row, column)

    If value = "True" Then
     Cells(row, column+1) = Cells(row, column)
     Cells(row, column) = ""
    End If
 Next

これにより、列の最初の 1000 行が検索されます。真のセルは 1 セル右に移動されます。明らかに Dim を宣言する必要がありvaluerowループcolumnの前に必要な列を検索します。

于 2013-09-24T21:01:34.277 に答える