vba - 有没有一种简单的方法可以在 Excel 中将列转换为文本而无需 CONCATENATE？

Question

我知道文本到列按钮。可以通过选择列并可能运行宏或使用类似的按钮来完成相反的操作吗？

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,"%")

等等