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

Posted 2021-03-19

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

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

下面的代码在之前的电子表格上是有效的。

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

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

答案

使用 "Col "变量。

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

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