- ©«¤l
- 77
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 110
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2013-7-14
- ³Ì«áµn¿ý
- 2018-10-3
|
¦^´_ 2# eric093
·PÁ¤j¤j¡A¤£¹L¡A³o¹ï§Ú¨Ó»¡¤ÓÃø¤F¡A§Ú±oºCºC¬ã¨s¡I
¥t¥~¡A§Ú¥Î§Ú·|ªº¤è¦¡¼g¡A¦ý¦³°ÝÃD¡A¤j¤j¥i¥HÀ°§Ú¬Ý¤@¤U¶Ü¡H
Sub ¥¼¤J´Ú2()
Application.ScreenUpdating = False
Dim j As Integer
Dim E As Range
Dim xragne, yrange, wrange As Range
Set E = Sheets("¥¼¤J´Ú").Range("e2")
Application.DisplayAlerts = False
Do While E <> ""
j = 1
If E.Offset(j) = E Then
If E.Offset(, 1) = E.Offset(j, 1) Then
If E.Offset(, 34) <> E.Offset(j, 34) Then
If yrange Is Nothing Then Set yrange = E
If wrange Is Nothing Then Set wrange = E.Offset(1)
Set yrange = Union(yrange, E)
Set wrange = Union(wrange, E.Offset(1))
End If
End If
Else
If E(1).Offset(, 34) = "¥I´Ú½T»{" Then
If xragne Is Nothing Then Set xragne = E
Set xragne = Union(xragne, E)
End If
End If
Set E = E.Offset(1)
j = j + 1
Loop
If Not xragne Is Nothing Then xragne.EntireRow.Delete
If Not yrange Is Nothing Then yrange.EntireRow.Delete
If Not wrange Is Nothing Then wrange.EntireRow.Delete
End Sub |
-
-
¥¼¤J´Ú.rar
(7.47 KB)
|