Excel 将带空格的数据块复制到其他位置

我正在重用另一个线程中的这个字符串，将一整列和空格（对齐其他信息所需）复制到一个新位置。但我看到它的复制操作将在第一个空白处停止，实际上它是这样做的。我需要它做的是复制空白和所有东西作为一个块，然后把它放在下面的范围内。我考虑先填充所有的空格，但这只会将填充值一直发送到无穷大。空白将多于数据

Range(Range("P2"), Range("P2").End(xlDown)).Copy  '!!!Stops at frist blank!!!
For idx = 1 To 1

Columns("P:P").Cut
    Cells(Range("D2").End(xlDown).Row + 1, "D").Select
    ActiveSheet.Paste
Next

我不明白为什么它做不到。如果有其他解决方案，我不需要这个代码。任务是将布局从一个关联信息填充完整的行更改为一个“堆叠”布局，其中关联数据（带有一些空格）沿列重复。因此，要堆叠这些段。整个栏目的剪切复制大部分都是有效的

它可以在移动另一个单元格之前，根据该单元格的非空值复制一个范围。但它需要降落在新范围底部的第一个空单元上。我将在几个专栏中重复这一点，但可以单独进行

---

如果我使用一些代码查看BI到BO列中的单元格，并在BH中的值不是空的情况下用值（“0”或“-”）填充它们，我可以绕过第一个问题。

您的代码和问题有点混乱，但我认为这就是您要寻找的。这将复制P列中的所有数据，包括空格

Range(Range("P2"), Range("P" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "P").End(xlUp).Row)).Copy

---

可以缩短为：范围（“P2”，单元格（Rows.Count，“P”）。结束（xlUp.Row）。复制