如何将非相邻列中的单元格逐行组合成一个单元格

Question

我正在尝试编写代码来组合一个范围内两列的值，并使用 vba 将其写入 excel 下一张工作表上的单元格

将列合并为唯一值后，范围如图所示

A 列和 E 列是不相邻的列。 我希望单元格中下一张纸上的结果为 := BCCH NL:968,TCHNL:961

我是 vba 新手。

我使用下面的代码来合并单元格

Sub MergeAdjacentCell()

Dim sheet As Worksheet
Dim Rng As range, xCell As range
Dim WorkRng As range
Dim xTitleId As String
Dim xRows As Integer
Dim i As Byte
Dim j As Byte

Set WorkRng = range("A1:A" & 6 & ",E1:E" & 6)
WorkRng.Select
Application.ScreenUpdating = False

Application.DisplayAlerts = False

xRows = WorkRng.Rows.Count

For Each Rng In WorkRng.Columns

    For i = 1 To xRows - 1

        For j = i + 1 To xRows

            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then

                Exit For

            End If

        Next

        WorkRng.Parent.range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge

        i = j - 1

    Next

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

我尝试了一些方法，但找不到方法。 请帮忙！

Answer 1

我不明白你为什么要使用 VBA：

我刚刚创建了这个 Excel 工作表：

     A   B   C   D
   --- --- --- ---
1 | AA           1
2 | BB           2

在另一个单元格中，我输入了以下内容：

=TEXTJOIN(";",TRUE,A1:D2)

意思：

TEXTJOIN : concatenate text
";"      : delimiter
TRUE     : omit empty cells

结果是：

AA;1;BB;2

如果您想使用不同的分隔符（“:”和逗号），您可以使用辅助列（如“E”列），其中使用=TEXTJOIN'(":",TRUE, A1:D1)，然后使用=TEXTJOIN(",",TRUE,E1:E10)。