v03586

¦^´_ 7# GBKEE


    ·PÁªO¤jªº¨ó§U
  ²Ä¤E¦æ³o¤@¬q

1. If UBound(sp) >= 2 Then

½Æ»s¥N½X

§ï¦¨³o¤@¬q´N¥i¥H§¹¦¨¤F !!! ¦A¦¸·PÁÂ~~

v03586

¦^´_  v03586
Hsieh µoªí©ó 2017-8-2 14:53

    ·PÁªO¤jªº´£¨Ñ¥t¤@ºØ¤è¦¡, ¹ï©óµe½uªº¤è¦¡, ¤S¾Ç¨ì¤@©ÛªO¤jªº¤è¦¡¼¶¼g

v03586

¦^´_ 8# Kubi


    ·PÁ¤j¤jªº´£¨Ñ !!

­ã´£³¡ªL

Sub test()
Dim xR As Range, xH As Range
For Each xR In [H2:H19]
¡@¡@If xH Is Nothing Then xR = Split(Replace(xR, "-", "+", , 2), "+")(2): Set xH = xR
¡@¡@If xR(2) <> "" Then xR(2) = Split(Replace(xR(2), "-", "+", , 2), "+")(2)
¡@¡@If xR(2) <> xR Then
¡@¡@¡@¡@With Range(xR, xH)
¡@¡@¡@¡@¡@¡@¡@.Borders.Weight = 3
¡@¡@¡@¡@¡@¡@¡@If .Count > 1 Then .Borders(12).Weight = 2
¡@¡@¡@¡@End With
¡@¡@¡@¡@Set xH = xR(2)
¡@¡@End If
Next
End Sub
¡@
¡@

v03586

¦^´_ 14# ­ã´£³¡ªL

½Ð°Ý¤@¤U, §Ú¦³¨Ì·Ó§ÚªºÃB¥~»Ý¨D°µ¤F¤@¨Ç¤p­×§ï, ·Q½Ð°Ý¤@¤U
¦pªG§Ú­n§PÂ_µe½uªº¸ê®ÆÄæ¦ì¦bDÄæ¦ì ,  §Ú¦p¦ó­×§ïÅý¥Lºâ¾ãµ§¸ê®Æªº³Ì«á¤@Äæ ??
¬O¥[¤J¤U­±³o¤@¬q¶Ü???

1. .Range("D65536").End(xlUp).Row To 2 Step -1

½Æ»s¥N½X

¦A¨Ó§Ú­nµe½uªº½d³ò¬OA2Äæ¨ìAD2Äæ

1. Dim xR As Range, xH As Range
   
2. For Each xR In [D2:D3000]
   
3.     If xH Is Nothing Then Set xH = xR
   
4.     If xR(2) <> xR Then
   
5.         With Range(xR, xH)
   
6.               .Borders.Weight = 4
   
7.               If .Count > 1 Then .Borders(12).Weight = 2
   
8.         End With
   
9.         Set xH = xR(2)
   
10.     End If
    
11. Next

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 15# v03586


For Each xR In Range([D2], [D65536].End(xlUp))
¡@¡@If xR.Row < 2 Then Exit Sub '·íD2¥H¤U¬°ªÅ®É,µ²§ôµ{§Ç
¡@¡@©Î¡@If xR.Row < 2 Then Exit For '·íD2¥H¤U¬°ªÅ®É,¸õ¥X°j°é
¡@
Next

v03586

¦^´_ 16# ­ã´£³¡ªL

½Ð°Ý¤@¤U¤j¤j, ­×§ï«á§PÂ_¦¡¬°DÄæ¦ì¥u­n¦³¤@¼Ëªº¸Ü²Ó½u, ¤£¤@¼Ëªºµe²Ê½u¨Ó°µ¤À§O
¦ý¬O§Úªº§PÂ_¤@¼Ë¨Ï¥ÎDÄæ¦ì, ¦ý¸Ü½uªº½d³ò­nÂX¤jA2Äæ¦ì¨ìAD2¥H¤UªºÄæ¦ì³£­n¸Ü½u , ½Ð°Ý­n¦p¦ó©µ¦ù©O?
§PÂ_¦¡¤@¼Ë¬O¥ÑDÄæ¦ì

1. Dim xxR As Range, xxH As Range
   
2. For Each xxR In Range([D2], [D65536].End(xlUp))
   
3.     If xxR.Row < 2 Then Exit Sub
   
4.     If xxH Is Nothing Then Set xxH = xxR
   
5.     If xxR(2) <> xxR Then
   
6.         With Range(xxR, xxH)
   
7.               .Borders.Weight = 4
   
8.               If .Count > 1 Then .Borders(12).Weight = 2
   
9.         End With
   
10.         Set xxH = xxR(2)
    
11.     End If
    
12. Next

½Æ»s¥N½X

¤U¸ü (55.43 KB)

2017-8-6 15:43

­ã´£³¡ªL

¦^´_ 17# v03586


¦³¦X¨Ö®æ¡H¡H¡H
¤W¶ÇÀɮצA¬Ý¬Ý¡I¡I¡I
¡@

v03586

¦^´_ 18# ­ã´£³¡ªL


    ©êºp, ¨S¦³¦X¨Ö®æ, ¦X¨Ö®æ¬O§Ú³B²z§¹µe½u¤~¦X¨Ö®æªº !!!


TEST2.rar (65.2 KB)

¤U¸ü¦¸¼Æ: 1

2017-8-6 17:44

­ã´£³¡ªL

¦^´_ 19# v03586


Sub test()
Dim R, xR As Range, xH As Range, xE As Range, i&, V&
R = [D65536].End(xlUp).Row
For i = 2 To R
¡@¡@Set xR = Cells(i, "D")
¡@¡@If xH Is Nothing Then Set xH = Cells(i, "AD")
¡@¡@V = xR.MergeArea.Rows.Count
¡@¡@Set xE = xR(V)
¡@¡@If xR <> xE(2) Then
¡@¡@¡@¡@With Range(Cells(xE.Row, 1), xH)
¡@¡@¡@¡@¡@¡@¡@.Borders.Weight = 4
¡@¡@¡@¡@¡@¡@¡@If .Columns.Count > 1 Then .Borders(11).Weight = 2
¡@¡@¡@¡@¡@¡@¡@If .Rows.Count > 1 Then .Borders(12).Weight = 2
¡@¡@¡@¡@End With
¡@¡@¡@¡@Set xH = Cells(i + V, "AD")
¡@¡@End If
¡@¡@i = i + V - 1
Next i
End Sub

¤£ºÞ¢ÒÄ榳¨S¦³¦X¨Ö®æ¡A³£¥i¥H¡I¡I
¡@
¡@