GBKEE

¦^´_ 1# justintoolbox

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(1 To 2, 1 To 1) As Variant, Cr(1 To 2, 1 To 1) As Variant
   
4.     Dim i As Integer, ii As Integer
   
5.     Ar(1, 1) = "A": Ar(2, 1) = "B"
   
6.     Cr(1, 1) = RGB(255, 0, 0): Cr(2, 1) = RGB(0, 160, 0)
   
7.     With ActiveSheet.[a1].Resize(UBound(Ar), UBound(Ar, 2))
   
8.         .Value = Ar
   
9.         For i = 1 To UBound(Ar)
   
10.             For ii = 1 To UBound(Ar, 2)
    
11.                 .Cells(i, ii).Font.Color = Cr(i, ii)
    
12.             Next
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X