根据行计数宏复制单元格

Question

我有两本工作簿。我需要从工作簿1中获取行数（调用此＆＃34; rowcount＆＃34;）然后将工作簿2中的第一行复制到＆＃34; rowcount＆＃34;中的行数。

工作簿2是一个模板，在单元格中包含一系列方程式，并从工作簿1中提取数据。

这是错误的，但希望能够提出这个想法：

I=WORKBOOK1.Worksheets("Sheet1").Range("A1",Range("A2").End(xlDown)).Rows.Count
    WORKBOOK2.Worksheets("Sheet1")Range("C1").Select
    Range(Selection, ("C1:CI")).Select

Answer 1

不确定这是否对您有帮助。

Sub Macro1()


    Sheets("Sheet2").Select
    Range("C3:L3").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste

End Sub

1. 选择sheet2
2. 选择所需范围
3. 复制选择
4. 选择sheet1
5. 转到this answer
使用的下一个可用行（从下到上）
6. 粘贴复制的内容

Answer 2

使用它：

Sub main()
    With Workbooks("Wb1Name").Worksheets("Sheet1")
        Workbooks("Wb2Name").Worksheets("Sheet1").Rows(1).Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End With
End Sub

只需将“Wb1Name”和“Wb2Name”更改为您的实际“工作簿1”和“工作簿2”工作簿名称