求删除区域内空行的代码

lagos

详情请见附件： 求删除区域内空行代码.rar (11.53 KB, 下载次数: 8)

2023-5-5 19:22 上传

点击文件名下载附件

gwjkkkkk

Sub test()
    Set Rng = Range("I2", Cells(Rows.Count, "P").End(xlUp))
    Rng.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

gwjkkkkk

请参考。。。

哎哟哥哥

Sub text() Dim i As Integer For x = Sheet1.Range("i65536").End(xlUp).Row To 2 Step -1     If Sheet1.Range("i" & x) = "" Then         Sheet1.Range("i" & x).Resize(1, 8).Select         Selection.Delete Shift:=xlUp     End If Next x End Sub

海好呀

Sub del()
Application.ScreenUpdating = False
      Set sht = ActiveSheet
      With sht
               s = .Cells(.Rows.Count, 9).End(xlUp).Row
               For i = s To 1 Step -1
                      If .Cells(i, 9) = "" Then
                          .Range(.Cells(i, 9), .Cells(i, 16)).Delete shift:=xlUp
                      End If
               Next i
      End With
Application.ScreenUpdating = True
End Sub

哎哟哥哥

Sub text() Dim i As Integer For x = Sheet1.Range("i65536").End(xlUp).Row To 2 Step -1     If Sheet1.Range("i" & x) = "" Then         Sheet1.Range("i" & x).Resize(1, 8).Select         Selection.Delete Shift:=xlUp     End If Next x End Sub

于箱长

不是整行删除吧，是不是只删除I列到P列

lagos

于箱长 发表于 2023-5-5 19:47
不是整行删除吧，是不是只删除I列到P列

不是整行删除，只删除I列到P列

于箱长

lagos 发表于 2023-5-5 19:53
不是整行删除，只删除I列到P列

了解了，我不用写了，楼上好几个大神帮你完成了