Excel VBA - 列の値を検索し、別の列にコピー/貼り付け

Question

次のデータがあります。 VBAで次のコードを実行するにはどうすればよいですか？

E：Loopingで何かがあることがわかります。For For Next。

しかし、私は前にエクセル

の最後の列にループにトラブル各列の空白でない値を持つ午前：後

：

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