删除单元格负数值所在的区域

阿哩木

请大佬帮帮忙，谢谢！！

ykcbf1100

是局部删除吗？

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.3.24
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With Sheets("明细")
   
5.         arr = .UsedRange
   
6.         Set Rng = .Cells(UBound(arr) + 1, 1).Resize(1, 11)
   
7.         For i = 3 To UBound(arr)
   
8.             If arr(i, 8) < 0 Then
   
9.                 Set Rng = Union(Rng, .Cells(i, 1).Resize(1, 11))
   
10.             End If
    
11.         Next i
    
12.         If Not Rng Is Nothing Then
    
13.             Rng.Delete Shift:=xlUp
    
14.         End If
    
15.         Application.CutCopyMode = False
    
16.         .[a5].Select
    
17.     End With
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

limonet

关键字：getrows

limonet

Sub limonet()
    Dim Cn As Object, Arr As Variant
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    Arr = Cn.Execute("Select * From [明细$A2:K] Where A8>0").GetRows
    Range("A3:K9999").ClearContents
    Range("A3").Resize(UBound(Arr), 11) = Application.Transpose(Arr)
End Sub

excel玉米

桑榆非晚123

新手练习一下