基于列创build多行

我需要帮助。

我有一个Excel文件w /大概以下列结构：

• 组织
• 节目名称
• 2012（年）
• 2013（年）
• 2014（年）

在这个初始构造中，每一行都是它自己的程序名称（即每个程序只有一行）。 每个预算年度都有自己的列，input给定年份的预算数据。

我需要用一个YEAR列replace个别年份列：

• 组织
• 节目名称
• 年

在这个设置中，每个程序预算都会有单独的行，所以每个程序每年会有多行。

我在原来的结构中有3000行，我需要切换到新的格式，以供应我的数据可视化工具 – 否则它不会将每个列识别为一个维度（年）。

谢谢

Answer 1

如果我明白这个权利，你有：

和你想要的

这里是真正粗糙，但经过testing的VBA代码，让你开始。 我不确定你是否有过使用VBA的经验。

Sub xxx() Sheets("Sheet1").Select Dim x As Integer x = 2 For a = 2 To 3000 Sheets("Sheet1").Select org = Range("A" & a).Value prog = Range("B" & a).Value y1 = Range("C" & a).Value y2 = Range("D" & a).Value y3 = Range("E" & a).Value Sheets("Sheet2").Select Range("A" & x).Value = org Range("B" & x).Value = prog Range("C" & x).Value = y1 Range("C" & x + 1).Value = y2 Range("C" & x + 2).Value = y3 x = x + 3 Next a End Sub 

让我知道如果你需要更多的解释或更好的代码。