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

Question

我创建了一个宏，用于将单元格值复制并粘贴到另一张工作表中，但是它将替换另一张工作表中同一单元格中的值。

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

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

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

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

Answer 1

使用“ Col”变量。

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

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