Excel VBA - 在列中查找值并将它们复制/粘贴到另一列

Question

我有以下数据。我如何在VBA中编码以执行以下操作？ E：我知道这将与循环有关，即：对于下一步。

，但我有麻烦循环，不为空值，在每一列的最后一列excel的

前：

后：

Answer 1

在您的工作表中运行此VBA宏，

Sub copyvalues() 
Dim i As Long, j As Long, k As Long 
k = 1 
'Change the value to 200 to the last row number of your range 
For i = 1 To 200 
    For j = 7 To 255 
     If Cells(i, j) <> "" Then 
      Range("F" & k).Value = Cells(i, j) 
      k = k + 1 
     End If 
    Next j 
Next i 
End Sub