source - ket@

----
***for文

    Dim arrStr(50) As Variant

Sheets("config").Activate
 For i = 1 To 4
       If (Range("AG" & i + 13) <> "") Then
                    arrStr(i) = Range("AG" & i + 13)
                   MsgBox arrStr(i)
        End If
    Next i

   

----
***セルに色をつける　黄色

Range("H" & i).Interior.ColorIndex = 6

 

 

【VBA】  文字列を切り取る Right関数

str_hoge = "abcdefg"
str = Right(str_hoge, 2)