Question

我写了宏，但现在我需要它在循环中运行，直到单元格I2为空。

任何人都可以帮忙吗？

Sheets("Value Imported Data").Select
Range("I2:Q2").Select
Selection.Copy
Sheets("Good data").Select
Range("I1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Sheets("Value Imported Data").Select
ActiveCell.Resize(40, 9).Select
Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

我认为它会是这样的但它根本不起作用

Sub CandidatesInfo()
    Dim r As Range
    Dim Cell As Range
Sheets("Value Imported Data").Select

    Set r = Range("I2")

    For Each Cell In r
    If r.Notempty Then


        Range("I2:Q2").Select
        Selection.Copy
        Sheets("Good data").Select
        Range("I1").Select
        Selection.End(xlDown).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

        Sheets("Value Imported Data").Select
        ActiveCell.Resize(40, 9).Select
        Application.CutCopyMode = False
            Selection.Delete Shift:=xlUp
    End If
    Next

End Sub

基本上我想做的是如果I2为空则什么都不做，但如果它不是空的则将I2到Q2复制到另一张表中并且一旦复制就返回到复制信息的表单中并删除接下来的40个信息9向右，重新开始。正如我所说顶级宏工作完美，现在只需要重复开始，直到I2为空。

感谢任何帮助。非常感谢你

循环直到细胞为空

0 个答案: