复制并粘贴VBA语法错误(错误400)

时间:2017-01-10 01:10:53

标签: excel vba excel-vba macros

我的Excel工作簿包含一个带有宏指定按钮的“原始数据”表。我想在按下按钮后将该表中的数据解析成相应的表格,其中包含图形。以下是我正在处理的代码:

Public maxVoltage As Long
Public rowCount As Long

Sub RunAllMacros()
    getData
    parseData
End Sub

Sub getData()
    Application.ScreenUpdating = False

    maxVoltage = InputBox("Input nominal voltage (V).")

    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    rowCount = Selection.Count + 1

    Application.ScreenUpdating = True
End Sub

Sub parseData()
    Application.ScreenUpdating = False

    Worksheets("Raw Data").Range(Cells(2, 2), Cells(rowCount, 2)).Copy _
        Destination:=Worksheets("Voltage and Current").Range(Cells(2, 1), Cells(rowCount, 1))

    Application.ScreenUpdating = True
End Sub

getData()函数用于计算“原始数据”表中的行数,因为数据的数量可能会有所不同。数据将从B列开始,顶行用作数据的标题或名称。所以数据将从第2行开始。我的问题是我用来将数据从“原始数据”表复制并粘贴到“电压和电流”表的语法给出了错误400.我不知道这个语法是否不接受变量作为参数在'范围'对象。我将不胜感激。

0 个答案:

没有答案