配列の中身をシートに出力して確認する方法

Question

Sub Macro1()
    Dim Origin As String: Origin = ActiveSheet.Range("A1").Value
    Dim c As Range: Set c = ActiveSheet.Range("B1") '入力開始セル

    Dim Group
    For Each Group In Split(Origin, vbLf)
        Dim Items: Items = Split(Mid(Group, 2), "/A")
        c.Value = Items(0): Set c = c.Offset(1)
        Dim w: w = Split(Items(1), "、")
        Dim l As Long: l = UBound(w) + 1
        c.Resize(l).Value = WorksheetFunction.Transpose(w)
        Set c = c.Offset(l)
    Next

'結果得られる全ての要素数を知りたい↓


End Sub

Comments

[hatena19]

過去の質問に対する私の回答のコードですよね。
いきなりコードだけ提示されても、過去の流れを知らない人には意味不明ですよ。
そのコードで配列の中身はシート上に出力されていると思いますが、何が疑問点なんでしょうか。

[hatena19]

とりあえず、下記のスレッドで、私の回答で指摘したやりたいこと（仕様）を明確にしてください。
https://teratail.com/questions/239754

使用が明確になったら、その仕様にそった回答をそちらでします。仕様が不明確のまま、推測で回答しても外れていたら無駄骨ですので。

[Mai0429]

大変失礼致しました。後ほど家に帰ったら追加・編集したいと思います。携帯から投稿した際2回投稿を押してリフレッシュされたまま投稿されてしまったのかもしれません。m(__)m

Answer 1

Sub Macro1()
    Dim Origin As String: Origin = ActiveSheet.Range("A1").Value
    Dim c As Range: Set c = ActiveSheet.Range("B1")    '入力開始セル
    Dim Group
    Dim Items:
    Dim w:
    Dim l As Long
    Dim n As Long


    For Each Group In Split(Origin, vbLf)
        For Each Items In Split(Mid(Group, 2), "/A")
            w = Split(Items, "、")
            l = UBound(w) + 1
            c.Resize(l).Value = WorksheetFunction.Transpose(w)
            Set c = c.Offset(l)
            n = n + l
        Next
    Next
    
    MsgBox n & "個"
End Sub

こういうことがしたいのかな？動作確認してません。
こういうのは、
ステップインで1行づつ実行しながらローカルウィンドウで、
変数の中身を確認したらよいと思います。
配列になっているものは折りたたまれているから、
「+」のところをクリックで展開してみてください。

コードの途中に変数の宣言があるのは、
流行りかも知れないけど、どうにもなじめない＾＾；

---

追記

あ、ループの中で変数の宣言はだめです。
1回で済むことを何回もすることになります。

Comments

[hatena19]

> あ、ループの中で変数の宣言はだめです。
> 1回で済むことを何回もすることになります。

ならないです。
変数宣言はプロシージャ内のどこに記述しても、一番最初に1回だけ解釈されます。

VBA 変数宣言はIfやFor等のコードブロック中に書いても機能する - t-hom’s diary
https://thom.hateblo.jp/entry/2018/06/02/185716

Answer 2

ありがとうございます。
たしかにご提示いただいたコードで全ての要素の数がわかるようになりました。

質問文が書けておらず大変申し訳ございませんでした。
後ほど家に帰ってから編集したいと思います。