如何在excel中的每一行进行双重粘贴？

我有logging30.942行，在我的例子中：
234
543
222
456
674
我应该怎么做这个：
234
234
543
543
222
222
456
456
674
674

请如何使每一行双？

Answer 1

创build另外两列（下图中的C和D）并input公式，如图所示。 应该给你想要的结果。 更新范围以适合您的数据。

如果你想用VBA来做，那么使用下面的代码。

A1：A23是数据范围。 结果打印在列E.确保它是空的。

Sub doubleRows() Dim c As Range Dim counter As Integer counter = 0 For Each c In Range("A1:A23") Range("E1").Offset(counter, 0) = c Range("E1").Offset(counter + 1, 0) = c counter = counter + 2 Next c End Sub