|
- Sub SX()
- Dim nRow As Long, vData As Variant, rRNG As Range
- Application.ScreenUpdating = False
- vData = ActiveSheet.UsedRange.Value
- For nRow = 2 To UBound(vData)
- If VBA.IsNumeric(vData(nRow, 2)) Or vData(nRow, 2) = "" Or vData(nRow, 3) = "" Then
- If rRNG Is Nothing Then
- Set rRNG = Cells(nRow, 1)
- Else
- Set rRNG = Union(rRNG, Cells(nRow, 1))
- End If
- End If
- Next
- If Not rRNG Is Nothing Then rRNG.EntireRow.Delete shift:=xlUp
- Application.ScreenUpdating = True
- End Sub
- Sub HZ()
- Dim nRow As Long, vData As Variant, vFill As Variant, dicData As Object
-
- Application.ScreenUpdating = False
- Set dicData = CreateObject("Scripting.Dictionary")
- vData = ActiveSheet.UsedRange.Value
- ReDim vFill(2 To UBound(vData), 1 To 1)
- For nRow = 2 To UBound(vData)
- dicData(vData(nRow, 3)) = dicData(vData(nRow, 3)) + vData(nRow, 6)
- Next
- For nRow = 2 To UBound(vData)
- vFill(nRow, 1) = dicData(vData(nRow, 3))
- Next
- [G2].Resize(UBound(vFill) - 1) = vFill
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|