将数据块与空白复制到其他位置
我正在重新使用这个string从另一个线程复制整个列与空白（需要alignment其他信息）到一个新的位置。 但是我发现它的复制行为将停在第一个空白处，而事实上它却是。 我需要做的是复制空白和一切作为一个块，然后把它放在下面的范围内。 我考虑先填充所有的空白，但只是将填充值一直发送到无穷大。 将会有更多的空白比数据。
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 我不明白为什么它不能这样做。 如果还有其他解决scheme，我不需要它成为这个代码。 我的任务是将一个关联信息的布局从一个完整的行更改为一个“堆叠”布局，其中关联的数据（有一些空白）在列上重复。 所以细分市场将被堆叠。 整个专栏削减副本大多已经工作。
它可以在移动之前根据另一个单元格的非空值复制一个范围。 但它需要着陆在新的范围的底部的第一个空单元格。 我会重复这几列，但可以单独做。
我可以绕过第一个问题，如果我用一些代码来看看BI到BO列的单元格，并填充一个值（“0”或“ – ”），如果BH中的值不是空白的。
你的代码和问题有点混乱，但我认为这是你要找的。 这应该复制列P中的所有数据，包括空格。
Range(Range("P2"), Range("P" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "P").End(xlUp).Row)).Copy