将列从工作簿复制到另一个，并为每个单元格添加逗号

Question

我正在尝试将列复制到另一个工作簿。但是我需要在每一行中添加一个逗号。有可能吗？

        WBSource.Worksheets(1).Columns(i).Copy _
        Destination:=WBDest.Worksheets(1).Columns(1)

Answer 1

有两种方法可以做到：

1. 通过源中的每个单元格迭代，将此单元格的值设置为某个变量，添加一个昏迷，然后设置此变量的目标单元格中​​的值。

2. 复制/粘贴列，然后迭代结果列中的每个单元格以添加逗号。

我做第二个，速度更快。

此外，您可以通过添加

在宏工作时禁用屏幕更新来加速所有变体

Application.ScreenUpdating = False