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

«æ!!! "µLªk³]©wºØÃþBorderªºLineStyleÄÝ©Ê"

Sub ¦X¨Ö()
Dim R&, xR As Range, T1$, T2$, TC$, xH As Range, K
R = [D65536].End(xlUp).Row
With Range("A12:M" & R)
     .UnMerge
     .Borders.LineStyle = xlNone
End With
Application.DisplayAlerts = False
For Each xR In Range("A12:A" & R)
    T1 = Split(xR(1, 4) & "-", "-")(0)
    If T1 <> TC Then TC = T1: Set xH = xR
    T2 = Split(xR(2, 4) & "-", "-")(0)
    If T2 <> TC Then
       For Each K In Array(1, 2, 3, 13)
           Range(xR(1, K), xH(1, K)).Merge
       Next K
    End If
Next
Range("A12:M" & R).Borders.LineStyle = 1
End Sub

TOP

¦^´_ 3# s13030029


±N½s½X"2-4", ¤À¦¨2¤Î4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-6-9 10:48 ½s¿è

¦^´_ 5# s13030029

ÁÙ¨S°õ¦æµ{¦¡«e, ªí®æªø¤°»ò¼Ë???
µ{¦¡¤¤ªº³W«h¬°¦ó???  ¤£·Q±q§Aªºµ{¦¡½X¥h²q, ¤Ó²Ö¤S¥i¯à¥X¿ù!!

¹º®Ø¦³¥X¿ù, ¬O¦]"¦X¨Ö®æ"®É, ¦³¨Ç¹º®Ø«ü¥OµLªk°õ¦æ,
©Ò¥H, °õ¦æµ{¦¡«e, ¥²¶·¥ý±N¦X¨Ö®æ¸Ñ°£, ¥B±N®Ø½u²M°£~~

TOP

¦^´_ 8# s13030029

¦³ÂI³Â·Ð, µ¹§A¤À¤T¬q¼g:
°ÝÃD_v02.rar (25.14 KB)

§Úªºµ{¦¡½X, ¤@¯ë­è±µÄ²VBAªº¤£¤Ó®e©ö²z¸Ñ, »Ý­n¦hªá¨Ç®É¶¡

TOP

¦^´_ 10# s13030029


xu= union(range1, range2)
»P«ö¦í Ctrl ,¸õ¿ïÀx¦s®æ¦Pµ¥®ÄªG

TOP

¥Î¦C¦L³]©w[ªí§À/¼ÐÃD¦C]§Y¥i±o¨ì©Ò»Ýªº®ÄªG
¦ó¶·¤j¶O©P³¹??
°ÝÃD_v03.rar (23.73 KB)

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD