求助大佬（删除Excel里面的空行）

我刚试了一下没问题啊

不知道代码意思你弄懂了没有，以第1列为准，2到94行若为空，本行删除

而不是其他列

dim rng as range
然后rng.delete

你能理解
If Cells(i, 1) = "" Then 这个条件的含义么？
Cells(X,Y)
代表的是 第X行，第Y列的 单元格
比如 Cells(1,1) 相当于A1， Cells(2,2) 相当于B2
你这里If Cells(i, 1) = "" Then
A列 是不是空白 作为判断依据
去检查一下 你的A列 是不是空白的
VBA的程序都是定制的。每个人的表格不同，代码并不通用。
只发代码，不发表格。我说代码没问题，你说运行结果不对。都讲不清楚

说一下我的方法，一种是直接在单元格上删除，一种是通过数组直接得到非空值。
假设a2:an有一列数据，数据中有2个以上空值。
通过数组得到非空值，代码如下：
Sub GetNonnullRow()
Dim arr, brr(), n&, i&, r&
r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a2:a" & r)
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
n = n + 1
ReDim Preserve brr(1 To n)
brr(n) = arr(i, 1)
End If
Next
[c2].Resize(n) = Application.Transpose(brr)
End Sub
直接在单元格上删除，代码如下：
Sub DeleteEmptyRow()
Dim rng As Range, i&, k&, r&
r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Do
k = k + 1
Loop Until Cells(k, 1) = ""
Set rng = Cells(k, 1) '获取第一个空值
For i = 2 To r
If Cells(i, 1) = "" Then
Set rng = Union(rng, Cells(i, 1))
End If
Next
rng.Delete Shift:=xlUp
End Sub

你试试在cells前面加上”sheets(“sheet1”).”,估计你激活的是sheets（2）工作表