【稼ぐVBA】空白スペースで区切られたデータをどう処理するか2 #配列の使い方【ファイル添付有】

私はこんなんでも、実際にVBAで稼いでますからご安心を。

【ノンプログラマー＆初心者向けVBA講座】です。
私のように苦労する人を減らそうという試みです。

VBA独習でスキルアップからの収入アップ支援MAGAZINE｜ムジンさん‖ITカテキョー‖IT単純作業自動化支援｜note

前回

ファイル1-1

1-1.xlsx

8.64 KB

ファイルダウンロードについて

ダウンロード

ファイル1-1には、TOPというシートがあり、データが貼ってあります。

これをVBAで処理していくことで、今後に活きるツールのベースを作っていきます。

課題

配列の動きを覚える。

VBAエディタでの作業

Sub Graph_Data_Make()

Dim sheet_TOP As Worksheet
Dim split_STR() As String

Set sheet_TOP = Worksheets("TOP")

split_STR = Split(sheet_TOP.Range("A1"), " ")

End Sub

変数という入れ物を作ります。

Dim sheet_TOP As Worksheet

シート全体を入れる入れ物を作っている。

Dim split_STR() As String

文字列を入れる配列という入れ物を作っている。

Set sheet_TOP = Worksheets("TOP")

TOPシートを入れ物に入れた。
この時、Setがあったということだけ覚えてください。

文字の分割（半角スペースごとに分割）

split_STR = Split(sheet_TOP.Range("A1"), " ")

A1セルの文字列を分割して、配列という入れ物に格納します。

ローカルウィンドウで確認

ローカルウィンドウを見てみます。
画面右下にあるはず。

A1のセルが空白スペース基準でバラバラになって、配列に格納されている。

配列の処理ができるとどうなる？

いざツールを作る時に、配列に入れて、、、という考えの発露になる。