3 回答

TA貢獻1856條經驗 獲得超11個贊
我向您展示了我的ConcatenateRange VBA函數(感謝Jean的命名建議?。?。它將需要一個單元格范圍(任何尺寸,任何方向等),并將它們合并到一個字符串中。作為可選的第三個參數,您可以添加分隔符(例如空格或帶逗號的逗號)。
在這種情況下,您可以編寫以下代碼來使用它:
=ConcatenateRange(A1:A4)
Function ConcatenateRange(ByVal cell_range As range, _
Optional ByVal separator As String) As String
Dim newString As String
Dim cell As Variant
For Each cell in cell_range
If Len(cell) <> 0 Then
newString = newString & (separator & cell)
End if
Next
If Len(newString) <> 0 Then
newString = Right$(newString, (Len(newString) - Len(separator)))
End If
ConcatenateRange = newString
End Function

TA貢獻1847條經驗 獲得超11個贊
如果您希望在不使用VBA的情況下執行此操作,則可以嘗試以下操作:
將數據存儲在單元格A1:A999中(或諸如此類)
將單元格B1設置為“ = A1”
將單元格B2設置為“ = B1&A2”
將單元格B2一直復制到B999(例如,通過復制B2,選擇單元格B3:B99并粘貼)
現在,單元格B999將包含您要查找的串聯文本字符串。
- 3 回答
- 0 關注
- 997 瀏覽
相關問題推薦
添加回答
舉報