ExcelVBAマクロで貼り付け先の配列化について
ExcelVBAマクロについて確認させてください。
プログラム高速化のために2番目のワークシート貼り付け先範囲を配列化しました。
1番目のワークシートの文字をtrim関数によって前後の空白を除去したうえで2番目のワークシートに貼り付けようとしていますが、空白が除去できていない状況です。
何か原因なのでしょうかm(__)m
Sub test()
Dim x As Long
Dim y As Long
Dim x2 As Long
Dim y2 As Long
Dim a As String
Dim Table As Variant '配列化のため
'最大列取得
x = Worksheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
'最大行取得
y = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Table = Worksheets(2).Range(Worksheets(2).Cells(1, 1), Worksheets(2).Cells(y, x)) '貼り付け先範囲を配列化
For x2 = 1 To x '最大列
For y2 = 1 To y '最大行
a = Worksheets(1).Cells(y2, x2).Value
Table(y2, x2) = Trim(a) 'ワークシート1の値から前後空白を取り除いてワークシート2に貼り付け
Next
Next
End Sub
お礼
参考になる情報ありがとうございました!また機会ありましたらよろしくお願いします。