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

¨â¤u§@ªí¸ê®Æ¤ñ¹ï.­×§ï.§ó·s

¨â¤u§@ªí¸ê®Æ¤ñ¹ï.­×§ï.§ó·s

¦pÃD
§Ú¦pªG¦bªí¤@°µ¸ê®Æ­×§ï(¦p¹Ï1
¦ý¥t¤@­Ó¤H¦bªí¤G°µ¸ê®Æ·s¼W(¦p¹Ï2
³Ì«á§Ú·Qµ²¦X§Ú­Ì¨â­Ó¤H­×§ï¦¨·sª©¦bªí¤T(¦p¹Ï3
­n¦p¦ó¥ÎVBA°µ©O?

¹Ï1

1.PNG
2021-3-23 14:37

¹Ï2

2.PNG
2021-3-23 14:37

¹Ï3

3.PNG
2021-3-23 14:37

test.rar (11.42 KB)

¦^´_ 1# s13030029


ªþ¥ó¤º®eµ²ªG»P¼Ó¥D¶K©óµe­±¤£¤@¼Ë¡A½Ð¦A½T»{»Ý¨D±ø¥ó¡AÁÂÁ¡C

TOP

¦^´_ 1# s13030029

¨Ì¾Úªþ¥óÀɮפº®e»Ý¨D¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C
Sub tt()
Dim xD, Arr, sht%, i&, T
Set xD = CreateObject("Scripting.Dictionary")
For sht = 1 To 2
    With Sheets(sht)
        Arr = .Range(.[D2], .[A65536].End(3))
        For i = 2 To UBound(Arr)
            T = Arr(i, 1) & Arr(i, 2)
            xD(T & "") = Array(Arr(i, 1), Arr(i, 2), Arr(i, 3), Arr(i, 4))
        Next
    End With
Next
[sheet3!A3].Resize(xD.Count, 4) = Application.Transpose(Application.Transpose(xD.items))
End Sub

TOP

¦^´_ 3# samwang

ÁÂÁÂ~¦pªG¬O¦³¸ê®Æ­×§ï©Î¼W¥[¬O¨S°ÝÃD~
¦ý¦pªG¬O¦³¸ê®Æ³Q§R°£ªº¸Ü´N¨S¿ìªk¤F

TOP

¦^´_ 4# s13030029


   ¹ï¤£°_¡A¤£¤Ó¯à¤F¸Ñ§Aªº»Ý¨D¡A½Ð¸ÑÄÀ¸Ô²Ó©Îªþ¤WÀɮסAÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD