多列中的範圍數據轉換爲單行vba

Question

我試圖將多個列中的多個數據轉置爲新工作表中的單個行。我原來的數據將顯示如下

之前

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

後

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

有人可以幫助我VBA代碼，可以從原來的工作調換到新worksheet.Thank！

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)))),"") 

然後複製到右邊。