如何使用下一个单元格的值重复代码直到空白

Question

我对Excel VBA编码非常陌生，并且一直很难找出能够使我在下一行重复执行代码直到其变为空白的代码。

我正在尝试在单元格A7之后获取数据工作表中的下一个值，所以它是A8并重复执行宏，直到到达空白单元格。

Sheets("data").Select
Range("A7").Select
Selection.Copy
Sheets("CODING BLOCK").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("CODING BLOCK").Select
Application.CutCopyMode = False
Sheets("CODING BLOCK").Copy Before:=Sheets(1)
ActiveSheet.Select
ActiveSheet.Name = ActiveSheet.Range("L1")

朝正确方向的任何指导将不胜感激。

Answer 1

您需要循环遍历每一行。 这样的事情可能会帮助您入门：

Sub test()
Dim LastRow As LongPtr  'LongPtr is compatible with 32 and 64 bit machines
Dim CurrRow As LongPtr 


CurrRow = 7  '<-- set your current row

' find the last non-empty cell in column A
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

' MsgBox LastRow <-- un-comment to print out last row

' loop over rows
Do While CurrRow <= LastRow
    ' your code here
    Sheets("data").Select
    Range("A" & CurrRow).Select  'use the CurrRow variable to select the correct cell
    Selection.Copy
    Sheets("CODING BLOCK").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CODING BLOCK").Select
    Application.CutCopyMode = False
    Sheets("CODING BLOCK").Copy Before:=Sheets(1)
    ' ActiveSheet.Select 
    ' ActiveSheet.Name = ActiveSheet.Range("L1") These two lines might be causing your blank sheet issue
    CurrRow = CurrRow + 1  'increment the CurrRow variable
Loop


End Sub

调试语句是您的朋友。 我使用MsgBox是因为它会创建一个暂停执行的弹出窗口，但是，如果您可以使用“立即”窗口，则debug.print也可以很好地工作。