要连接的 Excel 宏

Question

在创建 Excel 宏方面需要帮助。我有一个 Excel 工作表。Excel 工作表不一致。我打算使它统一和结构化。

例如。

  A            B            C         D
1 test      tester         tester
2 hai       test
3 Bye       test           tested
4 GN        test           tested    Fine

  A            B            C         D
1 test      testertester   
2 hai       test
3 Bye       testtested     
4 GN        testtestedFine 

基本上，我必须找到放置元素的最后一个单元格，以便基于此我可以编写我的 CONCATENATE 函数。

在这种情况下，它将是 D 列，因此我的连接函数将是=连接(B1，C1，D1)我再次希望结果在 B1 中，但如果我必须隐藏，这不是问题。

谁能帮我做这件事？

Answer 1

您可以使用以下 VBA 函数连接(串联)任意单元格范围内的值，并使用可选的分隔符。

Public Function Join(source As Range, Optional delimiter As String)
    Dim text As String
    Dim cell As Range: For Each cell In source.Cells
        If cell.Value = "" Then GoTo nextCell

        text = text & cell.Value & delimiter

nextCell:
    Next cell

    If text <> "" And delimiter <> "" Then
        text = Mid(text, 1, Len(text) - Len(delimiter))
    End If

    Join = text
End Function

有关如何使用该函数的示例，请在电子表格任意位置的单元格中输入 =JOIN(A1:D1)。