怎么全删了

ykcbf1100

ddz79101 发表于 2024-6-22 16:55
谢谢老师！还是不行，全删了

应该是9列和10列吧。

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub 删除9和10列均空的行()  '//2024.6.22
   
2.     With Sheets("1")
   
3.         arr = .UsedRange
   
4.         Set rng = .Rows(UBound(arr) + 1)
   
5.         For i = 2 To UBound(arr)
   
6.             If Len(.Cells(i, "h") & .Cells(i, "i")) = 0 Then
   
7.                 Set rng = Union(rng, .Rows(i))
   
8.             End If
   
9.         Next
   
10.         rng.Delete
    
11.     End With
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

ddz79101

ykcbf1100 发表于 2024-6-22 20:29
参与一下。。。

谢谢老师！成功运行。你观察仔细，说的对，我是删除了一列，没有修改
花后补

ykcbf1100

ddz79101 发表于 2024-6-22 20:58
谢谢老师！成功运行。你观察仔细，说的对，我是删除了一列，没有修改
花后补

我这个方法比较简单，你可以套用。