¦U¦ì«e½ú¦n,
¤p§Ì¥Ø«e¦b½m²ß®É¹J¨ì¤@Ó°ÝÃD,
²z°ÝÃD¦p¤U:
°²³]¦³¤@¬¡¶Ã¯,¦@¦³4Ó¤u§@ªí,3Ó§t¦³¸ê®Æ,²Ä4Ó°µ¬°Åã¥Üµ²ªG¥Î,
(¨ä¹ê·íµM¬O§Æ±æ¤£¥u3Ó,¦ý¥Ø«e¶È°µ¬°½m²ß¥Î,¬G¥ý°²©w3Ó)
«e3Ó¤u§@ªí¤º§¡¦³3Äæ,
²Ä1Ä欰½s¸¹,²Ä2Ä欰¦WºÙ,²Ä3Ä欰¼Æ¾Ú.
§Æ±æ¥i¥H±N3Ó¤u§@ªí¤º²Ä2Äæ¦WºÙ¬°"A"ªº¼Æ¾Ú§ä¥X,§R°£«½Æ¼Æ¾Ú¨Ã¶K¦Ü²Ä4Ó¤u§@ªí,²Ä1Äæ«h«·s½s¸¹.
¤p§Ì¦³¸ÕµÛקï«e½úªºµ{¦¡½X,¦ýµ²ªG¤£¬Æ²z·Q,¤£ª¾°ÝÃD¥X¦bþ¸Ì,
¤æÁx¤W¨Óµo°Ý,ÁÙ±æ«e½ú¤£§[«üÂI°g¬z,¤Q¤À·PÁÂ.
ªþ¤WÀɮפε{¦¡½X¥H¨Ñ«e½ú°Ñ¦Ò:
µù:"§Æ±æµ²ªG"¤À¶ªºA-CÄæ¬O©Ò´Á±æªº¹B¦æµ²ªG,
¦ý¥Ø«eµ{¦¡¹ê»Ú¹B¦æªºµ²ªG·|Åã¥Ü¦b"§Æ±æµ²ªG"¤À¶ªºF¦ÜHÄæ.
20161101-¦C¥X¦U¤u§@ªí¯S©wÈ°ÝÃD.zip (13.12 KB)
- '¦¹¬°°Ñ¦ÒªO¤W«e½úµ{¦¡½X¶i¦æקï,«D§Úì³Ð
- '½×¾Âºô§}:http://forum.twbts.com/
- Public Sub test()
- Dim arr(), brr(), myD, mNum
- Set myD = CreateObject("scripting.dictionary")
- ReDim brr(1 To 65536, 1 To 3)
- Sheets(1).Activate
- For Each sht In Sheets
- arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row)
- If sht.Name <> "§Æ±æµ²ªG" Then
- sht.Activate
- n = n + 1
- For i = 1 To UBound(arr)
- T = arr(i, 3)
- If myD(T) = 1 Then GoTo 101
- If arr(i, 2) <> "A" Then GoTo 101
- For j = 2 To 3
- brr(n, 1) = n
- brr(i, j) = arr(i, j)
- Next j
- myD(T) = 1
- 101:
- Next i
- End If
- Next sht
- Sheets(4).Activate
- If n > 0 Then [f2].Resize(n, 3) = brr
- End Sub
½Æ»s¥N½X |