Office中国论坛/Access中国论坛

标题: 请教一下如何实现如下的转换？各位大大帮忙 [打印本页]

作者: sataniv 时间: 2007-4-1 02:35
标题: 请教一下如何实现如下的转换？各位大大帮忙
请教一下如何实现如下的转换？各位大大帮忙：

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

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

a1b1

a2b2

a3b3

a4b4

……

a1b290

a2b290

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

yes@sohu.com]oyes@sohu.com[/url] 谢谢了 [attach]23802[/attach]

作者: 仔V仔 时间: 2007-4-1 03:03
用VBA可以做

作者: sataniv 时间: 2007-4-1 04:36
这位大哥我不会啊，呵呵帮帮忙可以么？

作者: 仔V仔 时间: 2007-4-1 20:40
可能太简单了,没人回

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)