- ©«¤l
- 678
- ¥DÃD
- 147
- ºëµØ
- 0
- ¿n¤À
- 799
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- MS 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2022-1-20
|
¦^´_ 21# ã´£³¡ªL
Sub ¾l¼Æ¦U¨ú1()
Dim Brr(1 To 99, 0), xS As Worksheet, A, B
For Each xS In Sheets(Array("·Ç2¶i3", "·Ç3¶i4", "·Ç4¶i5", "·Ç5¶i6", "·Ç6¶i7", "·Ç7¶i8"))
For Each A In xS.Range("d2:j" & xS.[b65536].End(xlUp).Row + 1).Value
For Each B In Split(A, ",")
Brr(B, 0) = B
Next B
Next
With xS.[a4].Resize(99)
.Value = Brr: Erase Brr
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
End With
' With xS.[a2] = Application.Count(xS.[A4:A52]) & "Ó": End With
Next
End Sub
½Ð°Ý :
¦C13¬O§Ú¼g¿ùµ{¦¡½X¡AÁÙ¬O§Ú©ñ¿ù¦ì¦C?
½Ð±z½ç¥¿¡C
ÁÂÁ±z |
|