c_c_lai

¦^´_ 1# v03586
§A¤¤³~«Å§i¤F Dim xH As Range «á¡A
¤@ª½¨ì For Each xRR In xArea ¤§¶¡
¨Ã¥¼µ¹¤©  xH ª«¥ó¥ô¦ó­È (Nothing)¡A
±µµÛ§A¤S«æ«æ¦£¦£¦a¨Ó­Ó "ÅQ¤ýµw¤W¤}"¡A
Range(xH, xRR).Merge
¤£¥X¿ù¤~©Ç¡I

1. °õ¦æ¶¥¬q¿ù»~ '1004':
   
2. 'Range'¤èªk ('_Global'ª«¥ó)¥¢±Ñ

½Æ»s¥N½X

c_c_lai

¦^´_ 5# v03586
¦^´_ 4# ­ã´£³¡ªL
¥¿¦p­ã´£³¡ªL¤j¤j©Ò¨¥¡A¸g¹ê»Ú´ú¸Õ«á¡A¥¦¬OÃöÁä©Ò¦b¡C
Module1:  Sub ·s³øªí_HQ¶×¤J()

1. Dim RR&, xArea As Range, xRR As Range, xH As Range, T, TT, XX
   
2. RR = [FMC!A65536].End(xlUp).Row: If RR < 3 Then Exit Sub
   
3. '  ½Ð±N ("A3:A" & R) ­×§ï¦¨ ("A2:A" & R) §Y¥i¡C
   
4. '  Set xArea = Sheets("FMC").Range("A3:A" & R)
   
5. Set xArea = Sheets("FMC").Range("A2:A" & R)
   
6. 
   
7. For Each xRR In xArea
   
8.     T = xRR(1, 26): xRR(1, 26) = Mid(T, InStr(T, "-") + 1)
   
9. Next

½Æ»s¥N½X

'  xRR & xRR(1, 2)    : "eMCP SIP162L 11.5*132981180" : Variant/String
    '  xRR(0) & xRR(0, 2) : "eMCP SIP162L 11.5*132981180" : Variant/String
    '  xH                 : Nothing                       : Range
    '  xRR(2) & xRR(2, 2) : "eMCP SIP162L 11.5*132981181" : Variant/String
    '  
    '  °õ¦æ¶¥¬q¿ù»~ '1004':
    '  Range'¤èªk ('_Global'ª«¥ó)¥¢±Ñ
    '  
    '  PKG        MONBR        PCCode        DEVICE        IPT_DATE        DavinciCode
    '  eMCP SIP162L 11.5*13        2981180        KSI-PS-A0419-16        P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45        2016/4/20 01:01        R1F60:02
    '  eMCP SIP162L 11.5*13        2981180        KSI-PS-A0419-16        P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45        2016/4/20 01:01        B1D25:03
    '  eMCP SIP162L 11.5*13        2981181        KSI-PS-A0419-16        P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45        2016/4/20 01:01        R1F60:02

    '  ----------------------------------------------------------------------
    '  B-1.xlsx
    '  xRR & xRR(1, 2)    : "eMCP SIP162L 11.5*132981181" : Variant/String
    '  xRR(0) & xRR(0, 2) : "eMCP SIP162L 11.5*132981180" : Variant/String
    '  xH                 : "eMCP SIP162L 11.5*13"        : Range
    '  xRR(2) & xRR(2, 2) : "eMCP SIP162L 11.5*132981182" : Variant/String
    '   
    '  xRR & xRR(1, 2)    : "eMCP SIP162L 11.5*132981182" : Variant/String
    '  xRR(0) & xRR(0, 2) : "eMCP SIP162L 11.5*132981181" : Variant/String
    '  xH                 : "eMCP SIP162L 11.5*13"        : Range
    '  xRR(2) & xRR(2, 2) : "eMCP SIP162L 11.5*132981182" : Variant/String

    '  PKG        MONBR        PCCode        DEVICE        IPT_DATE        DavinciCode
    '  eMCP SIP162L 11.5*13        2981180        KSI-PS-A0419-16        P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45        2016/4/20 01:01        R1F60:02
    '  eMCP SIP162L 11.5*13        2981181        KSI-PS-A0419-16        P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45        2016/4/20 01:01        R1F60:02
    '  eMCP SIP162L 11.5*13        2981182        KSI-PS-A0419-16        P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45        2016/4/20 01:01        R1F60:02
°ÝÃD¾É·½©ó:

1. Set xArea = Sheets("FMC").Range("A3:A" & R)

½Æ»s¥N½X