需要分成两张表来做吧。一张表的行数最多就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)