[求助]在EXCEL中如何将很多短列接成一长列？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

在论文的数据处理过程中遇到一个工作量比较大的问题：

     在一张EXCEL表格中有180列，每列400个数据（180×400），我想把这180列数据接成一个长的列1×72000（在EVIEWS面板数据中需要），有没有什么宏命令或其他比较简捷的办法转换呢？

     我这样一列列的复制粘贴实在是太耗时了，而且这样的表格有好多张，又是在数据处理的尝试阶段，经常需要修改指标，得不停的重复复制粘贴，实在是痛苦，急需高手指点有没有简捷的方法……

   谢谢啊

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce xcel cel excel表格 EXCEL 成一长

用STATA吧，一个命令就搞定

打开你的ExcelVBA，新建一个模块，然后粘贴如下代码

Sub MySub()
For i = 2 To 180
    For j = 1 To 400
        Cells((i - 1) * 400 + j, 1) = Cells(j, i)
    Next
Next
End Sub
回到工作簿，按Alt+F8，运行宏MySub就ok
注意，你的工作表中数据的格式应为
从A1单元格开始，B1,C1,D1，……，每列400个数据，good luck!

顶一下楼上，写的真好

呵呵，我不会STATA软件

非常感谢3楼的帮助，我试试看

由于之没接触过EXCELVBA,刚刚自己摸索了一下，成功了，非常感谢三楼的fanglibing！

一直觉得EXCEL功能强大，现在尝到甜头了，呵呵，得认真自学EXCEL这个工具了。

需要分成两张表来做吧。一张表的行数最多就65535

to yanxuqi

是的，疏忽了，呵呵，请楼主注意

行数较多最好还是直接输出到文本文件。

'测试环境Excel2003,Winxp

Sub 输出到文件()
    Application.ScreenUpdating = False
    irow = [a65536].End(xlUp).Row
    icol = Cells(1, 255).End(xlToLeft).Column
    On Error Resume Next
        Kill ("C:\out.txt")
    On Error GoTo 0
    Open "C:\out.txt" For Output As #1
    For i = 1 To icol
        For j = 1 To irow
           Write #1, Cells(j, i).Value
        Next
    Next
    Close #1
    Application.ScreenUpdating = True
End Sub

公式可以解决：

CONCATENATE

请参阅

将几个文本字符串合并为一个文本字符串。

语法

CONCATENATE (text1,text2,...)

Text1, text2, ...    为 1 到 30 个将要合并成单个文本项的文本项。这些文本项可以为文本字符串、数字或对单个单元格的引用。

说明

也可以用 &（和号）运算符代替函数 CONCATENATE 实现文本项的合并。

示例

如果您将示例复制到空白工作表中，可能会更易于理解该示例。

操作方法

创建空白工作簿或工作表。
请在“帮助”主题中选取示例。不要选取行或列标题。


从帮助中选取示例。

按 Ctrl+C。
在工作表中，选中单元格 A1，再按 Ctrl+V。
若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“工具”菜单上，指向“公式审核”，再单击“公式审核模式”。
   
1
2
3
4
A
数据
brook trout
species
32
公式 说明
=CONCATENATE("Stream population for ",A2," ",A3," is ",A4,"/mile") 将上述数据合并成一个语句 (Stream population for brook trout species is 32/mile)