☰

Excel：使用宏复制和粘贴

tag-icon • tag-icon microsoft-excel vba
Excel：使用宏复制和粘贴

我有一个包含两张表（“输入”和“历史记录”）的 Excel 工作簿。想法如下：

  1. 任何人都可以在“输入”表中填写数据
  2. 宏将把数据从“输入”复制到“历史记录”
  3. 复制的数据不应覆盖先前的条目
  4. 应清除“输入”表中的数据，以便添加新条目

这看起来很容易，但挑战在于将数据复制到“历史记录”表的下一个空行（例如，如果单元格 A1 和 A2 为空，则从“输入”复制到 B1 和 C1，如果前一行已经有数据，则复制到 B2 和 C2，依此类推）。

答案1

Worksheets("Input").Range("A1:A2").Copy
Worksheets("History").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True

相关内容