将带有空白的数据块复制到其他位置

Question

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

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

我不明白为什么它不能这样做。如果有其他解决方案，我不需要它是这个代码。任务是我将布局从一个关联信息填充一个完整的行更改为 "stacked" 布局，其中关联数据（带有一些空白）在列中重复。所以段要堆叠起来。整个专栏的剪切复制头一直在工作。

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

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

Answer 1

您的代码和问题有点令人困惑，但我认为这就是您要找的。这应该复制 P 列中的所有数据，包括空白。

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

将带有空白的数据块复制到其他位置

Copy Block of Data with Blanks to Other Location

excel

vba

copy

paste