- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-12 06:48 ½s¿è
¦^´_ 4# eric093
xlsx ¬O¨S¦³¥¨¶°ªºExcelÀÉ, xlsm ¤~¥i¦s©ñµ{¦¡½X.- Option Explicit
- Sub ¥¼¤J´Ú2()
- Application.ScreenUpdating = False
- Dim j As Integer
- Dim E As Range
- '******«Å§iÅܼƪº«¬ºA ,»Ý¨Ì¨Ìªº«ü©w«¬ºA **********
- Dim xragne As Range, yrange As Range, wrange As Range
- '*******************
- Set E = Sheets("¥¼¤J´Ú").Range("e2")
- Application.DisplayAlerts = False
- Do While E <> "" 'orderid ªº°j°é
- If E.Offset(, 34) = "¥I´Ú½T»{" Then '¥I´Ú½T»{n§R°£
- If wrange Is Nothing Then
- Set wrange = E
- Else
- Set wrange = Union(wrange, E)
- End If
- End If
- j = 1
- Do While E.Offset(j) <> "" '¨C¤@Óorderid©¹¤Uªº°j°é
- If E.Offset(j) = E Then ' ¬Û¦Pªº orderid
- If E.Offset(, 1) = E.Offset(j, 1) Then ' ¬Û¦Pªº itemid n§R°£
- If wrange Is Nothing Then
- Set wrange = Union(E, E.Offset(j))
- Else
- Set wrange = Union(wrange, E, E.Offset(j))
- End If
- End If
- End If
- j = j + 1
- Loop
- Set E = E.Offset(1)
- Loop
- If Not wrange Is Nothing Then wrange.EntireRow.Delete
- End Sub
½Æ»s¥N½X |
|