这是我的第一篇文章。我一直在尝试自学Excel VBA,这是相当具有挑战性的。
无论如何,我一直在学习循环和范围等内容。
这是我的困境:
Option Explicit
Sub Move_Data()
Dim i As Long
Dim j As Long
Dim LastRow As Long
Dim LastColumn As Long
Dim rng As Range
Dim result As String
result = "New Results"
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
LastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 3 To LastRow
For j = 1 To LastColumn
If Cells(i, 1) = result Then
j = j + 1
Cells(i, 1).Copy Destination:=ActiveSheet.Cells(i, j)
End If
Next j
Next i
End Sub
逐渐地,我已经把上面的内容整理好了。这是我的问题:
我想查看“A”列中的所有值。一旦找到“New Results”,我不仅要复制此单元格,还要复制其下面的所有内容到“J”列。然后在“B”列中查找字符串并将范围复制到“K”列等。
到目前为止,代码找到了“New Results”并将其移动到“B”列,这是预期的,因为这是我编写的唯一代码。如何添加另一个循环,以便将“New Results”下面的所有内容一起复制并移动到新列。这样,“J”将不断增加,最终我将拥有按列分解的所有结果。
希望这有意义。
谢谢大家。
...End(xlToLeft)
。 - kolcinx