删除某一列数中的空白单元格

狐狸学Excel

大神，求助下，
如附件A列，有空白单元格以及有空格的单元格，要怎样才能把这些单元格去掉，让有数据的单元格从上往下排列呢？
感谢！

hfwufanhf2006

For i = 2 To [a10000].End(3).Row
    If Len(Trim(Cells(i, 1))) = 0 Then
       Rows(i).Delete
       If i < [a10000].End(3).Row Then
          i = i - 1
       End If
    End If
Next i

cui26896

就这么10行数据，空行即有“”，也有empty,我把你的空行全部统一成了“”，做出代码，运行完全通过，在你原表是通不过的！
新建 XLS 工作表.zip (12.41 KB, 下载次数: 7)

2020-4-7 19:25 上传

点击文件名下载附件

狐狸学Excel

cui26896 发表于 2020-4-7 19:25
就这么10行数据，空行即有“”，也有empty,我把你的空行全部统一成了“”，做出代码，运行完全通过，在你原 ...

是的，并不是我错，而是数据里就有“”，和“  ”，这两种看上去都是空白的单元格，empty的好理解，那种含有空格的空白单元格呢，要怎么处理。

爱疯

Sub test()
    Dim rng As Range, irw&, w&, arr
    irw = Cells(Rows.Count, 1).End(xlUp).Row

    For w = 1 To irw
        If Cells(w, 1) = "" Or InStr(Cells(w, 1), Chr(32)) Then
                If rng Is Nothing Then Set rng = Rows(w) Else Set rng = Union(rng, Rows(w))
        End If
    Next w
    If Not rng Is Nothing Then rng.Delete
End Sub



用3楼改的