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

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

¦^´_  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

¦^´_  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

¦^´_  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

¦^´_  samwang
¤j¤j¡A¦n¹³¤Ï¦V¤F¡A§Úªº·N«ä¬O­n¦bSheet2·s¼W¸ê®Æ¡A¦P¨B¨ìSheet1
³o¦n¹³¬OSheet1·s¼W¸ê®Æ ...
wang077 µoªí©ó 2021-7-14 08:19


¤£¦n·N«ä¬Ý¿ù¡A¤w§ó·s½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

test3.zip (26.12 KB)

TOP

¦^´_ 12# wang077


§Ú´ú¸Õ¨S°ÝÃD¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

TOP

¦^´_  samwang
   ÁÂÁÂ samwang ¤j¤j
´ú¸Õ«á¥i¹B¥Î .¸g¿z¿ï«á§¹¥þµL»~
¦A½Ð°Ý¦p¤£¥Î¿z¿ï.¬O§_¥i¥H
¦C±N ...
BV7BW µoªí©ó 2021-7-14 13:49


¥i¥H¡A¨º¬qµ{¦¡½X»P¿z¿ïµLÃö¡A¥u­n¦³ªí1·s¼W«ö°õ¦æ«á´N·|±N·s¼Wªº¸ê®Æ½Æ»s¨ìªí2¡AÁÂÁÂ

TOP

¦^´_  samwang
¤j¤j¡AÀ³¸Ó¥u¦³2µ§¦³·s¼W
¦ý¦n¹³¦³²Ä¤Tµ§·s¼W¨ì¤F
wang077 µoªí©ó 2021-7-14 13:41


¦]¬°§Ú´ú¸Õ¨S°ÝÃD¡A¦pªG±z¦³´ú¸Õ¨ì°ÝÃD½ÐªþÀɳo¼Ë¤ñ¸û®e©ö§ä°ÝÃD¡AÁÂÁÂ

TOP

¦^´_ 19# wang077

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

Sub §ó·s2()
Dim Arr, T, T2, i&
If Sheets(1).FilterMode Then Sheets(1).ShowAllData
Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))
For i2 = 3 To UBound(Arr2)
    T2 = Arr2(i2, 1) & Arr2(i2, 3) & Arr2(i2, 6)
    For i = 1 To UBound(Arr)
        T = Arr(i, 1) & Arr(i, 3) & Arr(i, 6)
        If T = T2 Then
            Sheets(2).Range("h" & i2 & ":bq" & i2).Copy Sheets(1).Range("h" & i)
        End If
    Next
Next
End Sub

TOP

¦^´_  samwang
samwang ¤j¤j
´ú¸Õµ²ªG
¤u§@ªí1"A2"¸ê®Æ¬O1."A3"¬O3.½Æ»s¤u§@ªí2"A2"=2."A3"=3µL»~

²M ...
BV7BW µoªí©ó 2021-7-14 14:34


¤£¦n·N«ä¡A¯uªº¨¯­W±zªº´ú¸Õ¥B¦^õX°ÝÃD¡A«á¾Ç¯uªº¦³¬Ý¦ý¤£¤Ó¤F¸Ñ°Ý±zªº°ÝÃD
§Ú¦Û¤v²q·Q¦p¦ó§P©w¬O§_¬°·s¼W°ÝÃD¡AT = Arr(i, 1) & Arr(i, 3)  'AÄæ + CÄæ·í§@key
¦³¤£¤@¼Ë´N½Æ»s¨ì¥t¤@­Óªí®æ¡A¥i¥H¦Û¤v§ï¬Ý¬Ý¡A¤£ª¾¬O§_¦³¸Ñ¨ì±zªº°ÝÃD¡AÁÂÁ¡C

TOP

¦^´_  samwang
¹ï¤F¡A¤j¤j
§Ú§âSheet1¡ASheet2­«·s©R¦Wªº¸Ü
µ{¦¡½X³¡¤À­n«ç»ò§ï?
¬Q¤Ñ¸Õ¤F¤@¤U¡A§ï§¹³£ ...
wang077 µoªí©ó 2021-7-15 08:26


»Ý­×§ï¦p¤U¡AÁÂÁÂ

Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD