Excel VBA代码 - 在一列中查找值并在下一列中移动数据

Question

我对VBA有点新意，但我试图找到将在E列下搜索的代码，查找值为“TRUE”，并为每个代码移动一个单元格到这个“TRUE”单元格的右侧，将一个单元格剪切并粘贴到右侧。

我一直在寻找，但找不到解决方案。提前谢谢！

Answer 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行，任何为true的单元格都会向右移动一个单元格，显然您需要声明Dim value，row和{{1}在循环之前，它将搜索你想要的列。