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

Question

我有以下数据。如何在VBA中编写代码来执行以下操作？

E：我知道这将是循环的东西，即：For Next。

但是我很难将非空白的值循环到EACH列中的最后一列

在：

在：

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