EXCEL通过VBA删除整行并重新排列

hl19881005

各位大神，求助VBA的删除整行并重新排列的问题：
需求：
1、删除整行：根据数量判断，如果数量是空，则删除整行数据。
2、重新排列：删除后，中间会有很多空的行，把有数据的重新排列好。
删除前：


删除后想要的结果：

hl19881005

这是附件，刚才忘记上传了

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.2.20
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     With Sheets(1)
   
6.         arr = .UsedRange
   
7.         Set Rng = .Rows(UBound(arr) + 1)
   
8.         For i = 2 To UBound(arr)
   
9.             If arr(i, 6) = Empty Then
   
10.                 Set Rng = Union(Rng, .Rows(i))
    
11.             End If
    
12.         Next i
    
13.         If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
14.         r = .Cells(Rows.Count, 1).End(3).Row
    
15.         Set Rng = .Range("a2:h" & r)
    
16.         Rng.Sort .[b2], 1
    
17.     End With
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

hl19881005

ykcbf1100 发表于 2024-2-20 11:29
参与一下。。。

大哥你好，你的代码是可以实现的，但是我用了下这个代码会改变原来行的位置顺序，不太好核对信息，能否帮忙完善一下，保持原来是排列顺序不变？

hl19881005

ykcbf1100 发表于 2024-2-20 11:29
参与一下。。。

大哥你好，能否不改变原来的行的顺序？

Again123456

这个jsa方便

function test(){
     let  res = Range("a1").CurrentRegion.Value2.filter(v => v[3])
    Range("g1").Resize(res.lenght,res[0].length).Value2 = res
}

ykcbf1100

hl19881005 发表于 2024-2-20 14:46
大哥你好，能否不改变原来的行的顺序？

删除排序代码就可以了。