无锡计算机电脑培训－－首选学信教育!
全程上机学习，理论与上机结合，名师授课，内容丰富！
成就你的IT梦,名师授课,包教包会！
金牌讲师学到真正的技术,师资雄厚!
办公自动化课程培训,权威认证讲师全程面授,案例化教学,随堂指导!零基础学习,学不会免费重修。
大家知道怎么excel行列转换吗下面我们就给大家详细介绍一下吧!
数据从sheet1表里面的A1开始，运行下面宏，在sheet2中得到你要的结果。
Sub transpose1()
Dim Header, i, j, k
k = 1
For i = 1 To Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Header = Sheets("Sheet1").Cells(i, "A")
For j = 2 To Sheets("Sheet1").Cells(i, Columns.Count).End(xlToLeft).Column
Sheets("Sheet2").Cells(k, "A") = Header
Sheets("Sheet2").Cells(k, "B") = Sheets("Sheet1").Cells(i, j)
k = k + 1
Next
Next
End Sub
