如何列轉換爲

Question

行

我HV在Excel格式（列）： -

我希望把它轉換成排： -

是否有可能？

謝謝。

Answer 1

Unpivot（例如，如描述的here），在兩個大總計的交叉點處向下鑽取並在ColumnB中移動帶有空格的單元格，但將值移至第三行至第二行。刪除ColumD中空白行。更改標籤以適應。

Answer 2

很簡單與偏移：

追隨你的形象，你可以寫：

• 在單元格B7：=$A$3

• 在小區C7：=OFFSET($A$3,0,(ROW(A7)-7)*2+1)

• 在單元格D7 ：=OFFSET($A$3,0,(ROW(A7)-6)*2)

然後根據需要填充行。

Answer 3

您也可以使用my unpivot add-in在取消頂部單元格之後取消轉移。你可以使用下面的代碼先解除你的第一行：

Sub UnmergeTopRow() 

Dim lLastcol As Long, lcolLoop As Long 

lLastcol = Cells(1, Columns.Count).End(xlUp).Column 

Range("B1", Cells(1, lLastcol)).UnMerge 

With Range("B1", Cells(1, lLastcol)) 
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-1]" 
    .Value = .Value 
End With 

End Sub