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

Question

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

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

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

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

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

标签： excelvba

Answer 1

使用“Col”变量。

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

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