vba - 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 行，任何为真的单元格都将向右移动一个单元格，显然您需要声明 Dim value，row并且column在循环之前，以便它搜索您想要的列。