请教一下如何实现如下的转换？各位大大帮忙

sataniv

请教一下如何实现如下的转换？各位大大帮忙：

表 290行 10列 需要转换成 1列 2900行

新表结构为 （原来的表格数据a为列b为行）

a1b1

a2b2

a3b3

a4b4

……

a1b290

a2b290

我以前没有研究过请各位大大帮帮忙，附件是我的表格数据的文本形式，或者那位大大帮我转换一下也可以。我这里多谢了我得邮箱是[url=mailtoyes@sohu.com]oyes@sohu.com[/url] 谢谢了

仔V仔

用VBA可以做

sataniv

这位大哥 我不会啊，呵呵 帮帮忙可以么？

仔V仔

可能太简单了,没人回

Sub jj()

For i = 2 To 10
x = Range("a65536").End(xlUp).Row + 1
'MsgBox "现在复制第" & i & "列"
Cells(1, i).Select
Range(Selection, Selection.End(xlDown)).Cut '至末行,CUT换成COPY不影响原始数据
Cells(x, 1).Select
ActiveSheet.Paste
Next
End Sub