＆＃34;设置n = ...＆＃34;所需的对象在一个循环中

Question

j = 2

Do While PA.Cells(j, 1) <> ""

    Set n = (Cells(j, 50).End(xlDown).Rows.Count) - 2

    If Cells(j, 50) <> "" Then

    Range(Cells(j, 50), Cells(j, 145)).Select
    Selection.AutoFill Destination:=Range(Cells(j, 50), Cells(j + n, 145))

    End If

    j = j + 1

Loop

我在“Set n = ...”

行上收到了一个需要错误的对象

我不知道如何解决这个问题。如果“Set n =”值需要在循环之外，那么当每个j的n不同时，如何更改n值？

Answer 1

在vba中，Set命令仅用于对象，而不是基本数据类型或变体。在这种情况下，n被用作整数（或长整数），但实际上可能是变体。因此，不需要Set，并且会引发错误。