0

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

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

1 回答 1

0

有两种方法可以做到：

  1. 遍历源中的每个单元格，将此单元格的值设置为某个变量，添加一个逗号，然后在此变量的目标单元格中​​设置该值。

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

我做第二个，快得多。

您还可以通过禁用屏幕更新来加速所有变体，而您的宏通过添加

Application.ScreenUpdating = False
于 2012-11-25T14:05:28.330 回答