- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-4-20
|
Sub test()
Dim Sht As Worksheet, xD, xR As Range
Set xD = CreateObject("Scripting.Dictionary")
xD("") = 1
With Sheets("·JÁ`©ú²Ó").UsedRange
¡@¡@For Each xR In .Columns(2).Offset(1, 0).Cells
¡@¡@¡@¡@If xD(xR.Value) = "" Then
¡@¡@¡@¡@¡@On Error Resume Next
¡@¡@¡@¡@¡@Set Sht = Sheets(xR.Value)
¡@¡@¡@¡@¡@On Error GoTo 0
¡@¡@¡@¡@¡@If Sht Is Nothing Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = xR.Value
¡@¡@¡@¡@¡@.AutoFilter Field:=2, Criteria1:=xR.Value
¡@¡@¡@¡@¡@.Columns("a:d").Copy Sheets(xR.Value).[a1]
¡@¡@¡@¡@¡@xD(xR.Value) = 1: Set Sht = Nothing
¡@¡@¡@¡@End If
¡@¡@Next
¡@¡@Application.Goto .Item(1)
End With
Sheets("·JÁ`©ú²Ó").AutoFilterMode = False
End Sub
¡@ |
|