vba读取Excel一列所有文本内容并放入同一单元格
时间: 2023-08-21 10:05:43 浏览: 309
您可以使用以下VBA代码来读取Excel表格中的一列文本内容,并将其放入同一单元格中:
```VBA
Sub ConcatenateColumn()
Dim LastRow As Long
Dim i As Long
Dim ConcatenateText As String
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行
ConcatenateText = "" '初始化拼接文本
For i = 1 To LastRow '循环读取每一行
ConcatenateText = ConcatenateText & Cells(i, 1).Value & " " '将每一行的文本内容拼接到一起
Next i
Cells(1, 2).Value = ConcatenateText '将拼接的文本放入B1单元格中
End Sub
```
在这个例子中,我们将第一列的所有文本内容拼接到了B1单元格中。您可以根据您的实际需要修改代码中的行号和列号。
阅读全文
相关推荐










