有没有一种简单的方法可以在Excel中没有CONCATENATE的情况下将列转换为文本？

Question

我知道text-to-columns按钮.可以通过选择列,可能运行宏或使用类似按钮来完成相反的操作吗？

Answer 1

通常我会说"请发布您的代码"以获取帮助/协助编写宏,但这个非常非常简单.

Public Function ColumnsToText(rng As Range, Optional DelimitBy As String = " ") As String
'Applies on a row/partial row of data. Must be continuous cells, e.g., A1:D1.
Dim var As Variant

var = Application.Transpose(Application.Transpose(rng.Value))
    ColumnsToText = Join(var, DelimitBy)

End Function

在工作表单元格中输入它,如:

=ColumnsToText(A1:F1)

或者您可以指定可选的分隔符,默认情况下它是一个空格,但您可以使用任何字符串字符:

=ColumnsToText(A1:F1,"%")

等等.