时间戳

首页 > 解决方案 > 将不同工作表中的数据粘贴到一张工作表（一张接一张）

excel - 将不同工作表中的数据粘贴到一张工作表（一张接一张）

问题描述

我正在尝试将不同工作表的信息加入到一张工作表中。在我的代码中，我首先创建一个变量 j，它将具有 Sheets("Folha2") 中单元格的值（此单元格仅计算在 Sheets("Folha1") 的第一列中填充了多少行，以了解我可以在哪一行开始粘贴另一张纸上的数据）。所以我只将表格“Portugal”中的数据粘贴到表格“Folha1”，然后尝试从单元格（j，1）开始粘贴表格“Itália”中的数据。

错误是

找不到方法或数据成员

我做错了什么？

Sub Macro2()

Dim j As Integer
j = Sheets("Folha2").Range("A1").Value + 1

    Range(Sheets("Portugal").Range("A1"), Sheets("Portugal").Range("A1").End(xlToRight).End(xlDown)).Copy
    Range(Sheets("Folha1").Cells(j, 1)).Paste
    Range(Sheets("Itália").Range("A1"), Sheets("Itália").Range("A1").End(xlToRight).End(xlDown)).Copy
    Range(Sheets("Folha1").Cells(j, 1)).Paste

End Sub

标签： excelvba

解决方案

这可能会做到：

Sub Macro4()

    Range(Sheets("Portugal").Range("A1"), Sheets("Portugal").Range("A1").End(xlToRight).End(xlDown)).Copy
    Sheets("Folha1").Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range(Sheets("Itália").Range("A2"), Sheets("Itália").Range("A2").End(xlToRight).End(xlDown)).Copy
    Sheets("Folha1").Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

推荐阅读