エクセルマクロメモ

基本の確認から

• 変数宣言
• 配列宣言
• セルデータ読み込み
• セルデータ書き込み

Sub test1()
    Dim n As Integer    'Integer型の変数n読み込み数
    n = 10              'nの初期値を10にする
    Dim x() As String   'String型の配列ｘを宣言
    ReDim x(20)         'xの配列サイズを100にする
 
    'データ読み込み（セルは１からスタート）
    'Cells(行,列)
    For i = 1 To n
        x(i) = Sheet1.Cells(i, 1).Value
    Next
 
    'データ書き込み
    'Cells(行,列)
    For i = 1 To n
        Sheet2.Cells(1, i).Value = x(i)
    Next
 
End Sub

Sheet1

a
b
c
d
e
f
g
h
i
j
k

マクロ実行後