VBA(配列)

https://excel-ubara.com/excelvba4/EXCEL284.html

-- 1. 開発タブの挿入でボタンを作成
※ActiveXコントロールのものを使用する

-- 2. デザインモードONで作成したボタンをダブルクリックするとエディタが開くので下記コードを記載。デザインモードOFFで実行

Option Explicit

Private Sub CommandButton1_Click()

    Dim i As Long
    Dim j As Long
    
    Dim myarr() As Variant
    
    For i = 1 To 5
        Range("A" & i) = " A" & i
        Range("B" & i) = "  B" & i * 10
        Range("C" & i) = "   C" & i * 100
    Next i
    
    
    myarr = Range("A1:C5").Value
    
    For i = LBound(myarr, 1) To UBound(myarr, 1)
        For j = LBound(myarr, 2) To UBound(myarr, 2)
            Debug.Print (myarr(i, j))
            myarr(i, j) = Trim(myarr(i, j))
            Debug.Print (myarr(i, j))
        Next j
    Next i
    

End Sub