GBKEE

¦^´_ 3# y663258
Dim strstr As Variant     ¦b¦³®Ä½d³ò¤º ­«´_«Å§i   §R±¼
size(i) ¨S¦³´î1              sizeªº°}¦C·|¶W¥X°}¦Cªº½d³ò ­×¥¿¦p¤U
Sheet1.Range("A1").Characters(j, j + Len(strstr(i, 1)) + 5).Font.size = size(i-1)

¥t¥~  j = j + Len(strstr(i, 1)) + 6         +6·|¶W¥X1­Ó¦r¤¸  À³¬O +5 ¤~¥¿½T
¥t¤@¸Ñªk°Ñ¦Ò°Ñ¦Ò

1. Sub Ex()   
   
2. Dim Rng As Range, strstr As Variant, size As Variant, i%
   
3.     Set Rng = Sheet2.Range("A1:A6")
   
4.     size = Array(22, 12, 16, 12, 16, 7)
   
5.     For i = 1 To Rng.Rows.Count
   
6.         If Rng(i) <> "" Then
   
7.             strstr = IIf(strstr <> "", strstr & Chr(10) & Space(4) & Rng(i), Space(4) & Rng(i))
   
8.         End If
   
9.     Next
   
10.     If Len(strstr) < Rng.Rows.Count Then Exit Sub
    
11.     Sheet1.Range("A1").Value = strstr
    
12.     j = 4
    
13.     For i = 1 To Rng.Rows.Count
    
14.         If Rng(i) <> "" Then
    
15.         Sheet1.Range("A1").Characters(j, j + Len(Rng(i))).Font.size = size(i - 1)
    
16.        j = j + Len(Rng(i)) + 5
    
17.        End If
    
18.     Next
    
19. End Sub

½Æ»s¥N½X