将1000个列的单元连接到底部的一个单元格

Question

我想将特定列的1000个单元格（例如从A1到A1000）的文本组合到一个单个单元格（比如说A1001），有人可以告诉宏吗？

Answer 1

尝试以下 UDF

Public Function concat(r As Range) As String
    concat = ""
    For Each rr In r
        concat = concat & rr.Value
    Next rr
End Function

用户定义函数（UDF）非常易于安装和使用：

1. ALT-F11调出VBE窗口
2. ALT-I ALT-M打开了一个新模块
3. 粘贴内容并关闭VBE窗口

如果保存工作簿，UDF将随之保存。 如果您在2003年之后使用的是Excel版本，则必须保存 该文件为.xlsm而不是.xlsx

删除UDF：

1. 按上述方式调出VBE窗口
2. 清除代码
3. 关闭VBE窗口

从Excel使用UDF：

= CONCAT（A1：A1000）

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

和

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

有关UDF的详细信息

必须启用宏才能使其生效！

Answer 2

=concatenate(A1:A1000)

如A1001中的公式