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

[µo°Ý] ³vµ§¤ñ¹ï¦^¶Ç¸ê®Æ

¦^´_ 4# °a¤ªºµ


            a = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
            Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
            Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            a = Split(a, "|")
            For Y = 1 To 6
                Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = a(Y - 1)
            Next Y
           Exit For

¤£¦n·N«ä¦A½Ð±Ð¤@¤U¡ASheets(3).Cells(Rows.Count, Y).End(xlUp)(2)ªº³¡¤À¡A
Sheets(3).Cells(Rows.Count, Y)³o¬O·|§ì¨ì³Ì«á¤@µ§¸ê®Æªº¦C¼Æ¡A¥[¤WEnd(xlUp)(2)¿ï¨ú¤U¤@¦CªÅ®æ¡A¥i§Ú¤£¤F¸ÑEnd(xlUp)(2)«üªº¬O¡H(2)¤S¦³Ô£·N«ä©O¡H¬°¤°»ò¿ï¨ú¤U¤@¦C¤£¬O¥ÎEnd(xlDown)¡H
¥t¥~¡Aa(Y - 1)¦]¬°¬O°}¦C©Ò¥HA(0)¬O²Ä¤@ªº·N«ä¶Ü¡H

ÁÙ¦b§V¤O¾Ç²ß¤¤¡A©Ò¥H¦³¨Ç«ü¥O¬Ý¤£¤ÓÀ´¡A¦pªG³y¦¨§xÂZÁٽШ£½Ì

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-1-26 20:54 ½s¿è

¦^´_ 3# ÅÚ½³ªd
¨ä¹ê ¥Î¦r¨å¤è¦¡¤ñ¸û¦n ¦ý§ÚÁÙ¦b¾Ç²ß¤¤.. ©Ò¥H¥Î¤F¤ñ¸û²Âªº¤è¦¡   
¥H¤U¥u¬O¦êÁp¤å¦r
A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)

µM«á¦A¤À³Î¨ìÀx¦s®æ
A = Split(A, "|")
For Y = 1 To 6
           Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

ÁÂÁ§AÄ@·Nªá®É¶¡À°§Ú´ú¸Õ  ÁÂÁ§A

TOP

¥»©«³Ì«á¥Ñ ÅÚ½³ªd ©ó 2021-1-26 16:33 ½s¿è

¦^´_ 2# °a¤ªºµ


    ¬Oªº¡AÁÂÁÂ

¤£¦n·N«ä¡A³o³¡¤À§Ú¤£À´¬O·N«ä¡A¥i¥H¸ò±z½Ð±Ð¶Ü¡H
            A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            A = Split(A, "|")
            For Y = 1 To 6
           Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

Public Sub ¯S¥ð²Î­p½m²ß()
    Application.ScreenUpdating = False
   
    Arr = [¯S¥ð¤Ñ¼Æ!A1].CurrentRegion
    Brr = [µn¿ý!A1].CurrentRegion
   
    For x = 2 To UBound(Arr)
        If Brr(1, 2) = Arr(x, 1) And _
        Brr(3, 2) >= Arr(x, 4) And _
        Brr(3, 2) <= Arr(x, 5) Then
            Sheets(2).Cells(3, 4) = Arr(x, 8)
            Sheets(1).Cells(x, 9) = _
            Sheets(1).Cells(x, 9) + Brr(3, 3)
            A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
            Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
            Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            A = Split(A, "|")
            For Y = 1 To 6
                Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)
            Next Y
        Exit For
        End If
    Next x
   
    Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 1# ÅÚ½³ªd
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬O³o¼Ëªºµ²ªG ·PÁÂ


javascript:;

¯S¥ð²Î­p0118.rar (14.72 KB)

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD