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

[µo°Ý] ½Ð¯q ¬O§_¦³§ó§Öªº¬d¸ß¤è¦¡

§Ú´ú¸Õ¤F¤@¤U¡A¤j³¡¤ÀL¸òR³£¦³²Å¦XªºBarCode±Ò©l¤Îµ²§ô±ø¥óªº¤u³æ¸¹½X¡A
©Ò¥HL¥ý§ä©ÎR¥ý§ä·|¦³¤£¦Pªºµª®×?

¨Ò¦p
   BarCode              ²Å¦X¦ì¸m
A2 CYR128401TG0WLX2H        R42,L38
A3 CYR128401600WLX2U        R42,L3,L38
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 23# singo1232001

»~·|¤F! ¤£¬O»¡§Aµ{¦¡ªº°ÝÃD

§Ú§@¥þ¤ñ¹ïL R¨â­Ó¸ê®Æªí¡A¤j³¡¤À³o¨â²Õ¸ê®Æªí¸Ì³£¦³²Å¦Xªº¦ì¸m¡A
¦]¬°¤j®aªºµ{¦¡³£¬O¥ý¤ñ¬d¸ßLªí¦b¬d¸ßRªí¡A
§Ú¦b½m²ß®É±N¬d¸ß¶¶§Ç§ï¬°¥ý¤ñ¬d¸ßRªí¦b¬d¸ßLªí¡Aµª®×¸ò¤j®a¤£¦P
©Ò¥Hµo²{¸ê®Æ¥h¤ñ¹ï °_©lBarCode ¸ò µ²§ôBarCode¡A¦bL Rªí³£¦³µª®×¡Aº¡©_©Çªº¡C

Sub LR¥þ³¡¤ñ¹ï()
    Dim LR(1 To 2), SN
    TM = Timer
    Set SN = Sheets("§Ç¸¹")
    LR(1) = [L!A1:L1].Resize([L!J65536].End(xlUp).Row)
    LR(2) = [R!B1:M1].Resize([R!J65536].End(xlUp).Row)
    Arr = SN.[A1].Resize(SN.[A65536].End(xlUp).Row, 3)
    ReDim Brr(1 To UBound(Arr), 1 To 4)
    Brr(1, 1) = "¤u³æ¸¹½X": Brr(1, 2) = "LR¦ì¸m": Brr(1, 3) = "°_©lBarCode": Brr(1, 4) = "µ²§ôBarCode"
    For i = 2 To UBound(Arr)
        Key = "": Wno = ""
        For j = 1 To 2
            For k = 2 To UBound(LR(j))
                If LR(j)(k, 10) <= Arr(i, 1) And Arr(i, 1) <= LR(j)(k, 12) Then
                    'Brr(i, 1) = LR(j)(k, 1)
                    'Brr(i, 2) = LR(j)(k, 3) & k
                    'Km = 1: Exit For
                    
                    Brr(i, 1) = Brr(i, 1) & "," & LR(j)(k, 1)      'L R ¤u³æ¸¹½X
                    Brr(i, 2) = Brr(i, 2) & "," & LR(j)(k, 3) & k  'L R ¦ì¸m
                    Brr(i, 3) = Brr(i, 3) & "," & LR(j)(k, 10) & k 'L R °_©lBarcode
                    Brr(i, 4) = Brr(i, 4) & "," & LR(j)(k, 12) & k 'L R µ²§ôBarcode
                End If
            Next
            'If Km = 1 Then Km = 0: Exit For
        Next
    Next
    SN.[D1].Resize(UBound(Arr), 4) = Brr
    SN.Range("D2,E3,F2,G2").Columns.AutoFit
    Debug.Print Timer - TM
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD