コードの倉庫に

私は知恵袋で回答をよく投稿するのですが、そのコードは一応保存してるんです。

それが結構貯まって来て整理出来なくなったので、ここに上げておいてPCからは削除しようかと思います。

公開しておけば誰かの何かの役に立つかもしれないしね。＾＾

これは各行で列数の違うデータをA列に縦１列で表示するにはどうしたらいいかって質問に回答した時の物です。

Sub OneCase()
    Dim rng As Range
    Dim ws As Worksheet
    Dim i As Long, j As Long
    
    Set ws = Worksheets("Sheet1")
    
    With Worksheets("Sheet2")
        For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            Set rng = .Range(.Cells(i, "A"), .Cells(i, .Cells(i, Columns.Count).End(xlToLeft).Column))
            
            If ws.Range("A1").Value <> "" Then j = 2
            ws.Cells(Rows.Count, "A").End(xlUp).Offset(j).Resize(rng.Count) = Application.Transpose(rng)
        Next i
    End With
End Sub