Hsieh

¦^´_ 1# swatt
­n¨C±ø®æ½u³v¤@³]©w

1. Sub nn()
   
2. Dim Rng As Range, Rng1 As Range
   
3. Set Rng = Range("C4:D5") '¨Ó·½½d³ò
   
4. Set Rng1 = Range("A1:B2") '§ïÅܽd³ò
   
5. Rng1.ClearFormats
   
6. For i = 1 To Rng.Rows.Count
   
7.    For j = 1 To Rng.Columns.Count
   
8.      For k = 1 To Rng.Borders.Count
   
9.        Rng1(i, j).Borders(k).Weight = Rng(i, j).Borders(k).Weight
   
10.        Rng1(i, j).Borders(k).ColorIndex = Rng(i, j).Borders(k).ColorIndex
    
11.        Rng1(i, j).Borders(k).LineStyle = Rng(i, j).Borders(k).LineStyle
    
12.      Next
    
13.    Next
    
14. Next
    
15. End Sub

½Æ»s¥N½X