GBKEE

¦^´_ 1# av8d

1. Sub Ex()
   
2.     Dim xi As Integer
   
3.     For xi = 2 To 10 Step 2
   
4.         With Range("A1:C1,E1:G1").Offset(xi)
   
5.             .Merge
   
6.             .HorizontalAlignment = xlCenter
   
7.             .Borders.LineStyle = xlContinuous
   
8.         End With
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# alexliou
¥i¥H¶K¤Wµ{¦¡½X ¤À¨É¶Ü?

GBKEE

¦^´_ 7# alexliou
²¤Æ¤@¤U

1. Option Explicit
   
2. Sub µe²Ê¥~®Ø(oRange As Range)
   
3.     Dim xi As Integer
   
4.     With oRange
   
5.         .Borders(5).LineStyle = xlNone      '¥k±×½u
   
6.         .Borders(6).LineStyle = xlNone      '¥ª±×½u
   
7.         For xi = 7 To 10                    '¥~®Ø: ¥ª>¤W>¤U>¥k
   
8.             With .Borders(xi)
   
9.                 .LineStyle = xlContinuous
   
10.                 .ColorIndex = 3
    
11.                 .Weight = xlMedium
    
12.             End With
    
13.         Next
    
14.         If .Columns.Count > 1 Then          'ª½½u  »Ý¨âÄæ¥H¤W
    
15.             With .Borders(11)
    
16.                 .LineStyle = 1  '
    
17.                 .ColorIndex = 3
    
18.             End With
    
19.         End If
    
20.         If .Rows.Count > 1 Then             '¾î½u   »Ý¨â¦C¥H¤W
    
21.             With .Borders(12)
    
22.                 .LineStyle = 1
    
23.                 .ColorIndex = 3
    
24.             End With
    
25.         End If
    
26.      End With
    
27. End Sub

½Æ»s¥N½X