­ã´£³¡ªL

Public Sub test()
Dim Arr, Brr, myD, T$, N&, Sht As Worksheet
Set myD = CreateObject("scripting.dictionary")
ReDim Brr(1 To 65536, 1 To 3)
For Each Sht In Sheets
¡@¡@If Sht.Name <> "§Æ±æµ²ªG" Then
¡@¡@¡@¡@Arr = Sht.Range("a1:c" & Sht.Cells(Rows.Count, 1).End(xlUp).Row)
¡@¡@¡@¡@For i = 2 To UBound(Arr)
¡@¡@¡@¡@¡@¡@If Arr(i, 2) <> "A" Then GoTo 101
¡@¡@¡@¡@¡@¡@T = Arr(i, 3): If myD(T) = 1 Then GoTo 101
¡@¡@¡@¡@¡@¡@N = N + 1
¡@¡@¡@¡@¡@¡@Brr(N, 1) = N
¡@¡@¡@¡@¡@¡@For j = 2 To 3:  Brr(N, j) = Arr(i, j): Next j
¡@¡@¡@¡@¡@¡@myD(T) = 1
101: Next i
¡@¡@¡@End If
Next Sht
Sheets("§Æ±æµ²ªG").Activate
If N > 0 Then [f2].Resize(N, 3) = Brr
End Sub
¡@
¡@