复制列数据而不复制空白单元格

Question

我有2列A和B

我想将A列数据复制到B列中。A中的空白单元格很少，但是这些空白不应覆盖B列中的任何数据。只有具有数据的单元格才应复制到B中。

如何在VBA中实现？

Answer 1

这可能不是一个完整的解决方案，但可能会给您一些想法：

Sub test()
    Dim R As Range
    Set R = Range("A:A").SpecialCells(xlCellTypeConstants, 23)
    R.Offset(0, 1).Value = R.Value
End Sub

如果A列中的数据包含计算值，则可能无法按预期工作。

Answer 2

由于有条件粘贴，因此需要在此处循环。检查Column A中的每个值，然后将 VALUE 移至Column B（如果<{>不是空白）

Column A