Excel VBA删除空单元格并向上移动内容

Question

我有这样的数据：

     xxxxx
xxxxx
     xxxxx
xxxxx
     xxxxx
xxxxx         
     xxxxx
xxxxx

我想编写一个宏来从上到下遍历每一列，剪切并粘贴单元格。这是我的代码使用第二列。

Dim x As Integer, y As Integer
x = 1
For y = 1 To 75
    If Cells(y, 2).Value <> "" Then
         Cells(y, 2).Cut
            Cells(x, 2).Paste
            x = x + 1
        End If
Next y

Excel一直告诉我：“对象不支持此属性或方法”在Cells（x，2）上.Paste

根本不运行。 无视75的范围。我只有小数据。

Answer 1

Cells(x, 2).Paste不是有效命令。使用Cells(x, 2).PasteSpecial

尝试使用intellisense指导有效命令。