excel中如何每隔38行删除一行空行

来源：百度知道 编辑：UC知道 时间：2024/07/04 11:53:43
rt
数据实在是太多了 几万份，一行一行删太累了。。。
里面有很多空行的。。哎 当时就在想时不时有人会理解错误。。

每隔38行是不是这样？第1，39，77，115。。。。这样的行删除？可以用宏

Public Sub aa()
Application.ScreenUpdating = False
For i = 1 To 20000
Cells(i, 200) = i
Next i
For j = 1 To 20000
If Int((Cells(j, 200) - 1) / 38) - (Cells(j, 200) - 1) / 38 = 0 Then Rows(j).Delete
Next j
Range("GR:GR").ClearContents
Application.ScreenUpdating = True
End Sub

既然是空行 ， 一下子筛选出来全部删除就好了

选中全部－－数据－－筛选－－自动筛选－－ 某一列 下拉框 选择 空白－－出现需要的 空行， 选中空行， 删除－－ 下拉框 选择全部

自动筛选还有其它 很多的 功能

如果都是空行，那就容易了，直接数据删除重复项。
或者排序，之后一次性删除。

填充序列,排序把需要删除的排序到最下边,清除数据即可.

用数据有效性在公式里面输入
mod(row(),38)=0