我知道文本到列按钮。可以通过选择列并可能运行宏或使用类似的按钮来完成相反的操作吗?
通常我会说“请发布你的代码”来寻求编写宏的帮助/帮助,但这一个真的非常简单。
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,"%")
Etc.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)