私はVBAに少し慣れていませんが、列Eを検索し、値「TRUE」を探し、それぞれについて、この「TRUE」セルの右側に1セル移動して切り取るコードを見つけようとしています1セル右に貼り付けます。
私は一日中探していましたが、解決策が見つかりません。前もって感謝します!
私はVBAに少し慣れていませんが、列Eを検索し、値「TRUE」を探し、それぞれについて、この「TRUE」セルの右側に1セル移動して切り取るコードを見つけようとしています1セル右に貼り付けます。
私は一日中探していましたが、解決策が見つかりません。前もって感謝します!
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 を宣言する必要がありvalue
、row
ループcolumn
の前に必要な列を検索します。