将多个列组合成一个列

Question

使用Excel，如何使用多列创建单个列？

例如:我可能需要删除2012-2014年的专栏，并创建一个年度专栏。同时，我需要保留2012-2014年的信息，并为这些信息创建一个列来对齐每一行(名称、国家、级别、年份、数据)：

Name        Country   Grade 2012        2013        2014
Smith       France    A     0.333194233 0.64347979  0.72795544
Adams       Germany   D     0.307532421 0.580823282 0.851274645
Franklin    Americas  C     4.597219783 7.983514354 10.79688839
Roosevelt   Americas  B     0.615064841 1.089043653 1.502249374
Washington  Australia A     0.261792462 0.456573955 0.620206846

所以应该是这样的：

Name        Country   Grade Year Data
Smith       France    A     2012 0.333194233
Smith       France    A     2013 0.64347979
Smith       France    A     2014 0.72795544 etc.

Answer 1

假设Name在A1中，插入一个新的ColumnD，并在D1中复制以适应：

=A1&"#"&B1&C1  

然后去枢轴(细节与图像这里选择D1:Gn (n适合))。

在步骤8之后，在表中插入三个新列(以成为B:D)并在B2中插入：

 =LEFT(A2,FIND("#",A2)-1)  

在C2中：

=MID(A2,FIND("#",A2)+1,LEN(A2)-LEN(B2)-2)  

在D2中：

=RIGHT(A2)

整理一下，以适应。

Answer 2

你试过转到“特殊糊”里吗？还是你希望它是动态的？

链接

找到解决方案：链接 --它能工作！

创建此模块并运行宏：

Public Sub tranpose()
Dim i   As Long, _
    LR1 As Long, _
    LR2 As Long, _
    LC  As Long
Application.ScreenUpdating = False
Columns(1).Insert Shift:=xlToRight
LR2 = Range("B" & Rows.Count).End(xlUp).row
Range("A1:A" & LR2).Value = Chr(65)
LC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 3 To LC
    LR1 = Range("A" & Rows.Count).End(xlUp).row + 1
    LR2 = Cells(Rows.Count, i).End(xlUp).row
    Range(Cells(1, i), Cells(LR2, i)).Cut Destination:=Cells(LR1, 2)
    Range(Cells(LR1, 1), Cells(LR1 + LR2 - 1, 1)).Value = Chr(63 + i)
Next i
Application.ScreenUpdating = True
End Sub