Question

    xlobj.Worksheets("Control").Range("A3:P3").Select
    Selection.AutoFill Destination:=Range("A3:P1500"), Type:=xlFillDefault

    xlobj.Worksheets("Control").Select
    Selection.ClearFormats
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

您好，

我有上面的代码，但它在上面第二行出错（运行时错误1004：下标超出范围）。我发现它存在使用该对象识别“选择”的问题。

我该如何解决这个问题？我想从公式A3到P3

下拉公式

感谢您的帮助！（这也可以帮助我解决代码中的其他选择问题）

另外，在这个代码的某处，我有这个（定义的）

    Set xlobj = CreateObject("Excel.Application")
    xlobj.DisplayAlerts = 0
    xlobj.Workbooks.Open wbPathName & "\" & wbList(intListCounter), False, True
    DoEvents

Answer 1

这是避免.Select和.Copy

的一种方法

With xlobj.Worksheets("Control").Cells
    .Range("A3:P1500").Formula = .Range("A3:P3").Formula 
    .ClearFormats
    .Value = .Value     ' converts the formulas to values
End With

使用Excel对象选择

1 个答案: