Question

在工作簿中，我有两个表; TAB1包含计算公式，TAB2包含要计算的数据。

范围TAB1.cells（1,1）：范围TAB1.cells（20,1），包含公式，需要复制到正确的x次。

范围TAB1.cells（25,1）：范围TAB1.cells（25，x），包含公式，需要向下复制y次。

而x = TAB2中包含数据的列数而y = TAB2中数据的行数

我尝试使用以下VBA但收到错误：

Sub DataCopy()
Dim RowMax As Integer
Dim ColMax As Integer

    Sheets("Data").Select
    Range("A1").Select

    RowMax = Cells(Rows.Count, 1).End(xlUp).Row
    ColMax = Cells(2, Columns.Count).End(xlToRight).Column

    Range(1, 1).Select
    Range(RowMax, ColMax).Select

    Selection.Copy
    Sheets("Calc").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select

End Sub

感谢您的帮助！

Answer 1

试试这个：

Sub DataCopy()
    Dim RowMax As Integer
    Dim ColMax As Integer

    RowMax = Cells(Rows.Count, 1).End(xlUp).Row
    ColMax = Cells(2, Columns.Count).End(xlToLeft).Column

    Range(Cells(1, 1),Cells(RowMax,ColMax)).Copy
    Sheets("Calc").Paste
    Application.CutCopyMode = FALSE
End Sub

复制单元格范围x次

1 个答案: