Question

在我的宏中，我需要在AA和AB列中插入一个公式，AB是空的，所以没有问题。 AA栏的数据以AA10954开头，我的问题是AA10954每周更改，因为我的数据增加或减少，因为我从另一本书导入，有人可以帮我在AA数据开始之前设置最后一个空单元吗？

Sub ClassVisit（）＆＃39; ＆＃39; ClassVisit宏＆＃39; ＆＃39;

Dim lr As Long

    With ActiveWorkbook

    With ActiveSheet

    lr = .Cells(.Rows.Count, "A").End(xlUp).Row

    Range("AA2").Formula = "=IFERROR(VLOOKUP(A2,[Data.xlsb]Stores!$A:$AA,27,0),VLOOKUP(A2,'[Salesinfo.xlsb]Packs'!$C:$E,3,0))"

    Range("AB2:AB" & lr).Formula = "=IFERROR(VLOOKUP(A2,Attribute!D:F,3,0),""Not Visited"")"

Range("AA2").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A10953")
    ActiveCell.Range("A1:A10953").Select

    Range("AA2:AB" & lr).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlUp).Select

    Application.CutCopyMode = False

    ActiveCell.Offset(1, -26).Range("A1").Select
   End With
 End With
End Sub

在列中插入公式，直到下一个非空白单元格

0 个答案: