セルの内容を配列に挿入

個人メモ

VBA

Sub test()
    Dim i As Long
    Dim v_in As Variant, v_out As Variant
    
    v_in = Range("A1:A5")
    v_out = Range("C1:C5")
    
    
    For i = 1 To 5
       v_out(i, 1) = Split(v_in(i, 1), ",")
    Next
    
    For i = 1 To 5
        If v_out(i, 1)(1) = "AAA" Then
            Cells(i, 3).Value = v_out(i, 1)(1)
        End If
    Next
End Sub

セルの内容を配列に挿入。