我有一个包含数字的长表格。
我需要将它们放在一个字符串中,用分号分隔; 例如:4364453;24332432;2342432
我知道可以这样做:
=concat(A1:A2000)
但是这将把它合并成一个字符串,没有分隔符 - 当你指定范围时,我似乎找不到有关分隔符的选项。
谢谢
我有一个包含数字的长表格。
我需要将它们放在一个字符串中,用分号分隔; 例如:4364453;24332432;2342432
我知道可以这样做:
=concat(A1:A2000)
但是这将把它合并成一个字符串,没有分隔符 - 当你指定范围时,我似乎找不到有关分隔符的选项。
谢谢
=TEXTJOIN(";",TRUE,A1:A2000)
Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
Dim d As Long
Dim c As Long
Dim arr2()
Dim t As Long, y As Long
t = -1
y = -1
If TypeName(arr) = "Range" Then
arr2 = arr.Value
Else
arr2 = arr
End If
On Error Resume Next
t = UBound(arr2, 2)
y = UBound(arr2, 1)
On Error GoTo 0
If t >= 0 And y >= 0 Then
For c = LBound(arr2, 1) To UBound(arr2, 1)
For d = LBound(arr2, 1) To UBound(arr2, 2)
If arr2(c, d) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
End If
Next d
Next c
Else
For c = LBound(arr2) To UBound(arr2)
If arr2(c) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c) & delim
End If
Next c
End If
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function
TEXTJOIN = Left...
而不是 TEXTJOIN2
,如果你不想在文本末尾添加分隔符。 - Rotsiser Mho如果你和我一样,使用的工作电脑上装有旧版本的Excel,没有TEXTJOIN函数,你可以使用宏来代替。这是一个我快速设计的示例,适用于单列或单行。只需点击要放置结果字符串的位置,然后运行宏。
请注意,此方法仅处理一行或一列的情况,与你提供的示例数据类似。如果你想要拼接A1:C3这样的范围,就需要不同的逻辑。
Sub ConcatenateRange()
Dim resultCell As Range
Set resultCell = Selection
Dim concatRange As Range
Set concatRange = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
Dim optionalSeparator As String
optionalSeparator = Chr(34) & InputBox("Any Separator?") & Chr(34)
Dim outputString As String
outputString = "=TRIM(CONCATENATE("
Dim rangeSize As Integer
rangeSize = concatRange.Columns.count + concatRange.Rows.count
For Each item In concatRange
outputString = outputString & item.Address(RowAbsolute:=False, ColumnAbsolute:=False)
rangeSize = rangeSize - 1
If (rangeSize > 1) Then
outputString = outputString & ", " & optionalSeparator & ", "
Else
outputString = outputString & "))"
End If
Next
resultCell.formula = outputString
End Sub
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
If TEXTJOIN <> "" Then
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
Else
TEXTJOIN = ""
End If
=TRANSPOSE(A1:A200)
F2
,您将获得一个带有默认分隔符','
的长字符串,该分隔符可以替换为您所需的分隔符。