excel如何判定空行

1.excel插入空行问题比如有200行excel的内容,我要在每行

。

.更简单（直观）的办法： 。.1.首先在最左边插入一空列（A列）作为排序列（当然利用右边现有的空列也可），并在此列中对已有数据的200行通过系列填充添加一个自动编号（即在单元格A1到A200中填入从1到200）; 。

.2.然后在单元格A201中输入初始值“1”，接着选中A201:A2000（即选足1400行），再单击菜单“编辑”-->“填充”-->“序列”，在“步长”中输入“0.142857143”即（七分之一），在“终止值”中输入“201”，单击“确定”进行系列填充； 。.3.最后以A列进行升序排序，这样每行数据空7行就大功告成。

2.如何判断Excel中的一整行是否为空,并删除

用vba可以实现。例如有表格如图：

第一步：点击开发工具-visual basic。如图：

第二步：在当前工作表中写入代码如下：

Sub 删除空行（）

Dim bj As Boolean '判断一行中是否都是为空

For i = 15 To 1 Step -1

bj = False '默认为假，如果有非空则为真

For Each mycell In Rows(i).Cells '遍历当前行的单元格

If mycell.Text <> "" Then '当前单元格是否为空

bj = True '如果不为空，则标记赋值为真 退出改行的检查

Exit For

End If

Next mycell

If Not bj Then Rows(i).Delete '如果改行全部为空，则删除该行

Next i

End Sub

第三步：运行宏。结果如图：

3.用excel宏自动删除特定行

对，考虑不周，已加上空行判定

因为你已经排好序，实际上问题已经好简单了，只需每两行判定一次，下一行是否与上一行相同，相同即删除，不同则再下两行判定。假如有100行数据，代码如下：

Sub lxx()

For i = 2 To 100 Step 2

kk: If Cells(i + 1, 1).Value<>"" and Cells(i + 1, 1).Value= Cells(i, 1).Value Then

Rows(i + 1).Delete

GoTo kk

Else: GoTo NX

End If

NX: Next

End Sub