复制并粘贴到下一个空单元格答案

【问题标题】：Copy & Paste to the next empty cell复制并粘贴到下一个空单元格
【发布时间】：2020-05-28 09:39:12
【问题描述】：

我创建了一个宏来复制和粘贴另一个工作表中的单元格值，但它替换了另一个工作表上同一单元格中的值。

我需要它来计算列数并继续将值粘贴到右侧的下一个单元格中。

以下代码适用于以前的电子表格。

Col = Sheet3.Cells(11, 11).CurrentRegion.Columns.Count + 1

Sheet3.Cells(11, 11) = Sheet2.Range("E10")

【问题讨论】：

标签： excel vba

【解决方案1】：

使用“Col”变量。

Col = Sheet3.Cells(11, 11).CurrentRegion.Columns.Count + 1

Sheet3.Cells(11, Col) = Sheet2.Range("E10")

【讨论】：