excel - 単一の列の下で複数のExcel行のデータを移動する

Question

複数のデータ行を 1 つの列の下に移動する際に問題が発生しています。

現在の様子

そして、これは私がそれを望む方法です

しばらくの間、この問題の解決策を見つけようとしましたが、これを行うものを見つけることができないようです.

前もって感謝します

Answer 1

特別に貼り付け、転置はあなたが望むものに近づく唯一のものですが、それはあなたのためにそれをしません。マクロを書くか、手動でやらなければならないと思います。

Answer 2

ワークシート関数でそれを行う方法を考えていましたが、空白になりました。VBAの使用はおそらくはるかに簡単です。

これはかなり簡単な方法です。調べてSheet1出力Sheet2します（最初にすべての値をキャッシュせずに同じシートに出力しようとすると、一部の値が上書きされるため）。

これは、Object（？）がデータを格納する方法（行の最後のセル）が原因で 機能Sheet.Cellsします。（基本的にあなたの結果の反対）A1,B1..Y1,Z1,A2,B2..Y2,Z2YZ

Sub Main()
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim Cell As Variant
Dim Row As Long

    Set S1 = ThisWorkbook.Worksheets("Sheet1") ' Source Sheet
    Set S2 = ThisWorkbook.Worksheets("Sheet2") ' Destination Sheet

    Row = 1 ' Start Output on this row

    For Each Cell In S1.UsedRange.Cells

        S2.Cells(Row, 1).Value = Cell.Value
        Row = Row + 1

    Next Cell

End Sub