ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¿z¿ï«á¤£ÁôÂÃ

[µo°Ý] ¿z¿ï«á¤£ÁôÂÃ

¦U¦ì¤j¤j °²¦p§Ú¿z¿ïA~CÄæ¦ì¡A¦ý§Ú¿z¿ï§¹«á­±ªº¸ê®Æ¦³¨Ç·|³QÁôÂÃ
½Ð°Ý§Ú­n«ç»ò¿z¿ï§¹«á¤£ÁôÂÃ
test.zip (8.06 KB)

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-13 11:21 ½s¿è

¦^´_ 1# wang077
0.¨ú®ø¿z¿ï
1.¨ú®øa:c©Ò¦³ªº ¦X¨ÖÀx¦s®æ
2.¿ïabc¥þ³¡Äæ¦ì
3.ctrl+G     >    ¯S®í     >    ªÅ®æ(K) (³o®É·|§âABC©Ò¦³ªÅ¥Õ³£¿ï°_¨Ó¤F)
4.ª½±µ¦b¤W¤è"fxªÅ¥Õ¿é¤J³B"    ¿é¤J=A1     >    ¦P®É«ö¤Uctrl+enter ¥¢±Ñ´N­n­«°µ
5.abcÄæ¦ì¥þ¿ï    >    ½Æ»s    >    ­ì³B¶K¤W(­È123)
6.§âa1:c2¦h¾lªº¾÷ºØ«~¦W®Æ¸¹§R°£
7.­«·s¿z¿ï

test.zip (9.62 KB)

TOP

¦^´_ 2# singo1232001
·PÁ¤j¤jÀ°¦£
¥t¥~¡A§Ú²{¦b­Y·Q­n§â¿z¿ï§¹ªºµ²ªG½Æ»s¥hSheet2
­n«ç»ò¼g
test.zip (11.44 KB)

TOP

¦^´_  singo1232001
·PÁ¤j¤jÀ°¦£
¥t¥~¡A§Ú²{¦b­Y·Q­n§â¿z¿ï§¹ªºµ²ªG½Æ»s¥hSheet2
­n«ç»ò¼g
wang077 µoªí©ó 2021-7-13 11:47


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

test1.zip (21.47 KB)

TOP

¦^´_ 4# samwang
ÁÂÁ¤j¤jÀ°¦£

TOP

¦^´_ 4# samwang
¤j¤j¡A§Ú¦pªG­n§â½Æ»s¹L¥hªº¸ê®Æ(Sheet2)¸òSheet1ªº¸ê®Æ¦P¨B©O¡A§Ú§ä¤£¨ì¬ÛÃöªº°Ñ¦Ò¸ê®Æ
¨Ò¦p§Ú½Æ»s¹L¥h«á¡A§Ú¦b7/9¤é«á·s¼W¸ê®Æ¡A¦P®É§Æ±æSheet1ªº¸ê®Æ¤]¯à¦P¨B

TOP

¦^´_  samwang
¤j¤j¡A§Ú¦pªG­n§â½Æ»s¹L¥hªº¸ê®Æ(Sheet2)¸òSheet1ªº¸ê®Æ¦P¨B©O¡A§Ú§ä¤£¨ì¬ÛÃöªº°Ñ¦Ò¸ê®Æ
...
wang077 µoªí©ó 2021-7-13 16:01


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

test2.zip (26.5 KB)

TOP

¦^´_ 4# samwang
samwang ¤j¤j §A¦n
¦P¼Ë°ÝÃD½Ð±Ð
¤u§@ªí1¤¤"A2:A300"¸ê®Æ.½Æ»s¦Ü¤u§@ªí2¤¤"A2"¶}©l¶K¤W.¦p¤u§@ªí2"A2"¤w¦³¸ê®Æ«h©¹¤U¶K¤W

ÁÂÁ«ü±Ð ¬¡­¶Ã¯1.zip (16.09 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 7# samwang
¤j¤j¡A¦n¹³¤Ï¦V¤F¡A§Úªº·N«ä¬O­n¦bSheet2·s¼W¸ê®Æ¡A¦P¨B¨ìSheet1
³o¦n¹³¬OSheet1·s¼W¸ê®Æ¡A¦P¨B¨ìSheet2¤F

TOP

¦^´_  samwang
samwang ¤j¤j §A¦n
¦P¼Ë°ÝÃD½Ð±Ð
¤u§@ªí1¤¤"A2:A300"¸ê®Æ.½Æ»s¦Ü¤u§@ªí2¤¤"A2"¶}©l¶K¤W. ...
BV7BW µoªí©ó 2021-7-14 08:04


½Ð¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, xD, T, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¤u§@ªí2!N1], [¤u§@ªí2!a65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 1) & Arr(i, 3): xD(T & "") = i
Next
Arr = Range([¤u§@ªí1!N1], [¤u§@ªí1!A65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 1) & Arr(i, 3)
    If xD.Exists(T & "") = False Then
        n = [¤u§@ªí2!a65536].End(3).Row + 1
        Sheets(1).Range(Cells(i, 1), Cells(i, 14)).Copy Sheets(2).Range("a" & n)
    End If
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD