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