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

¸ê®Æ¤ñ¹ï

ÁÂÁ¦Ѯvªº¦^ÂÐ
¨SÃö«Y¡A§Ú¦b¥Î¤H¤u½Æ»s¤Gªí³æ¦b±Æ§Ç¡A¤£¼vÅTµ²ªG¡A·PÁ¦Ѯv­@¤ß«ü¾É

TOP

¦^´_ 11# sillykin


H~Kªºµ²ªG¬O¥ÑA~DÄæ(¤H¤u½Æ»s¤Gªí³æ¦b±Æ§Ç)²£¥X(­ì¥ý±zªº»Ý¨D)¡A  
V~Yªºµ²ªG¬O¥Ñ"¤H¤u¦W¥U"©M"·|­p¦W¥U"²£¥X¨Ì¾Ú±ø¥ó¤@¼Ë(¤á¦W+¬d¸ß¤é)
´N¦p¥ý«e¦b¸ß°Ý±zA~DÄ檺¸ê®Æ³W«h¡A©Ò¥H¤@ª½¤£ª¾¦p¦ó¤U¤â¡A
½Ð°Ý±z¦³»Ý¨DV~Yªºµ{¦¡»Ý¨D¶Ü?

Â^¨ú1.PNG (57.98 KB)

Â^¨ú1.PNG

TOP

H~Kªºµ²ªG¬O¥ÑA~DÄæ(¤H¤u½Æ»s¤Gªí³æ¦b±Æ§Ç)²£¥X(­ì¥ý±zªº»Ý¨D)¡A  
V~Yªºµ²ªG¬O¥Ñ"¤H¤u¦W¥U"©M"·|­p¦W¥U"²£¥X¨Ì¾Ú±ø¥ó¤@¼Ë(¤á¦W+¬d¸ß¤é)
´N¦p¥ý«e¦b¸ß°Ý±zA~DÄ檺¸ê®Æ³W«h¡A©Ò¥H¤@ª½¤£ª¾¦p¦ó¤U¤â¡A
½Ð°Ý±z¦³»Ý¨DV~Yªºµ{¦¡»Ý¨D¶Ü?
¦³»Ý¨DV~Yªºµ{¦¡
¦ý¤]»Ý­nA-DÄæ¦ìªº½Æ»s¤Î±Æ§Ç

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-8-27 16:18 ½s¿è

¦^´_ 13# sillykin

¬Û¦P: V~Yªºµ²ªG¬O¥Ñ"¤H¤u¦W¥U"©M"·|­p¦W¥U"²£¥X¨Ì¾Ú±ø¥ó¤@¼Ë(¤á¦W+¬d¸ß¤é)
¤£¬Û¦P: ±ø¥ó¦p¤W¡Aµ²ªGAA~ADÄæ


¦ý¤]»Ý­nA-DÄæ¦ìªº½Æ»s¤Î±Æ§Ç >> ³oµLªk¼g¡A¦]¬°¨S¦³³W«h

Sub test()
Dim Arr, Brr(), Crr(), xD, xD1, T$, i&, n%, n1%
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
Arr = Range([¤H¤u¦W¥U!a1], [¤H¤u¦W¥U!c65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 4) '¬Û¦P
ReDim Crr(1 To UBound(Arr), 1 To 4) '¤£¬Û¦P
For i = 2 To UBound(Arr)
    T = Arr(i, 3) & "_" & Arr(i, 1)
    xD(T) = Array(Arr(i, 1), Arr(i, 3))
Next
Arr = Range([·|­p¦W¥U!a1], [·|­p¦W¥U!c65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 2) & "_" & Arr(i, 3)
    xD1(T) = Array(Arr(i, 1), Arr(i, 2), Arr(i, 3))
Next
For Each ky In xD
    If xD1.Exists(ky) Then
        n = n + 1: Brr(n, 1) = xD(ky)(0): Brr(n, 3) = xD(ky)(1)
        n = n + 1: For j = 2 To 4: Brr(n, j) = xD1(ky)(j - 2): Next
    Else
        n1 = n1 + 1: Crr(n1, 1) = xD(ky)(0): Crr(n1, 3) = xD(ky)(1)
    End If
Next
For Each ky In xD1
    If Not xD.Exists(ky) Then
        n1 = n1 + 1: For j = 2 To 4: Crr(n1, j) = xD1(ky)(j - 2): Next
    End If
Next
With Sheets("¤ñ¹ï")
    If n > 0 Then   '¬Û¦P
        .[v1:y1] = Array("¤é´Á", "²Î¤@½s¸¹", "¤á¦W", "¬d¸ß¤é")
        .[v2].Resize(n, 4) = Brr
    End If
    If n1 > 0 Then  '¤£¬Û¦P
        .[aa1:ad1] = Array("¤é´Á", "²Î¤@½s¸¹", "¤á¦W", "¬d¸ß¤é")
        .[aa2].Resize(n1, 4) = Crr
    End If
End With
End Sub

TOP

ÁÂÁ§A¡A§Ú¦b¸Õ¤@¤U¡A·PÁÂ

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-8-31 15:16 ½s¿è

¦^´_ 15# sillykin

¦ý¤]»Ý­nA-DÄæ¦ìªº½Æ»s¤Î±Æ§Ç
³o¬O¤§«e·Ç¤j¼gªº §ï¤F¤@¤U ¸Õ¸Õ¬Ý¬O¤£¬O§A­nªº ·PÁÂ

¸ê®Æ¤ñ¹ï-110.08.23.rar (35.89 KB)

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD