字符串的 VBA 搜索列，如果找到，则将下一个单元格数据复制到新工作表

Question

经过数小时的失败尝试和搜索互联网后，我没有找到我想要做的事情。我想扫描一列以查找字符串，如果找到，我想复制下一个单元格的值并将其粘贴到新工作表中，然后继续沿列向下查找下一个字符串并将其旁边的值复制到下一个单元格在另一张纸上。我已经获得了执行复制和粘贴的代码，但我不知道如何将粘贴位置向下移动到下一个单元格，这样它就不会继续覆盖。这是我目前所拥有的：

For Each cell in SrchRng
     If cell.Value = "1_Complete" Then
          cell.Offset(0,1).Copy Sheets("WO Completion List").[A1]
     End If
Next cell

我尝试使用一个整数 i，其中列出了 A1 单元格，然后在目标中使用 i = i+1 增量，但它不起作用。我觉得这很简单，但我无法弄清楚。也许我需要创建一个数组？我是 VBA 新手，我习惯于 Java 或 C++。

快速更新：

我没有使用“.Cells”，我把“s”去掉了，所以我已经让它工作了。我这样做了：

For Each cell In SrchRng
     If cell.Value = "1_Complete" Then
         cell.Offset(0, 1).Select
         Selection.Copy
         Sheets("WO Completion List").Cells(i, 1).PasteSpecial xlPasteValues
         i = i + 1
     End If
 Next cell

我现在的问题是，有没有更好的方法来做到这一点？当我运行该函数时，它会导致屏幕闪烁一堆并将列表复制到一张纸上，然后值消失，看起来很奇怪。

Answer 1

跟踪您要复制到哪一行并递增。我认为这里真正的变化是你如何引用一个范围。而不是[A1] 使用格式.Range("A1") 或递增.Cells(1,1)，其中第一个参数是行，第二个参数是列。您也可以在这里使用.Offset()，但如果事情嵌套，这会让人感到困惑。

'declare an integer to keep track of the row to write to
Dim rowCounter as integer

'set to 1 for row 1 to start
rowCounter = 1
For Each cell in SrchRng
     If cell.Value = "1_Complete" Then
          cell.Offset(0,1).Copy Sheets("WO Completion List").Cells(rowCounter, 1)
          'we wrote out a value, so increment to the rowCounter to the next row
          rowCounter = rowCounter + 1
     End If
Next cell