複数の列の範囲データがvbaの1行に転じる

Question

複数のデータを複数の列に新しいワークシートの1つの行に転置しようとしています。私の元のデータが

Row1 1 | 1 | 1 | 2 | 2 | 2 | 3 | 3 | 3

後

Col1 | Col2 | Col3 
    1 | 2 | 3 
    1 | 2 | 3 
    1 | 2 | 3 

前など

の下に表示されるでしょう誰かが新しいworksheet.Thankに元のワークシートから移調することができますVBAコードで私を助けることができます！

Answer 1

これは、データがdataという名前のシート上のA：Cであることを前提としています。これを最初のセルに入れます：

=IFERROR(IFERROR(INDEX(data!$A$1:INDEX(data!$A:$A,MATCH(1E+99,data!$A:$A)),COLUMN(A:A)),IFERROR(INDEX(data!$B$1:INDEX(data!$B:$B,MATCH(1E+99,data!$A:$A)),COLUMN(A:A)-COUNT(data!$A:$A)),INDEX(data!$C$1:INDEX(data!$C:$C,MATCH(1E+99,data!$A:$A)),COLUMN(A:A)-COUNT(data!$A:$B)))),"") 

次にコピーします。