Question

我正在尝试创建查找条件串联vba宏。

理想情况下，如果我定义了查找，它应该根据A列中的值查找和连接B列中的文本，并按如下所示输出。

示例

数据集：

A   B
Car Alex 
Car Kieth
Bus Jenny
Car Jessica
Taxi Dom
Taxi Sabrina
Car Dick

查找输出

Car     Alex, Kieth, Jessica, Dick

相对于函数，我更喜欢使用vba宏，因为它理想情况下会消耗更少的内存。

Sub positionbreach()

Dim i As Long
Dim result As String
Dim Search_in_col As Range, Return_val_col As Range

Set Search_in_col = Worksheets("CARS").Range("A2:A50")
Set Return_val_col = Worksheets("CARS").Range("B2:B50")

Last = Cells(Rows.Count, "A").End(xlUp).Row

For j = Last To 2 Step -1

    For i = 1 To Search_in_col.Count

        If Search_in_col.Cells(i, 1) = Worksheets("CARS").Cells(j, 15) Then

        result = result & " " & Return_val_col.Cells(i, 1).Value

        End If

    Next

Worksheets("CARS").Cells(j, 17) = Trim(result)

Results = ""

Next
End Sub

我完全被卡在串联部分。将我的代码修改为我所在的位置

感谢您的协助。

我的输出如下

Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick Jenny Alex  Kieth Jessica Dick Alex  Kieth Jessica Dick
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick Jenny Alex  Kieth Jessica Dick
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick Jenny
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina Alex  Kieth Jessica Dick
Alex  Kieth Jessica Dick Dom Sabrina Dom Sabrina
Alex  Kieth Jessica Dick Dom Sabrina
Alex  Kieth Jessica Dick

Answer 1

Results = ""

与

不同

result = ""

如果使用Option Explicit，则可以避免此类错误，因为它会警告您未声明的变量。

与sumif相似的串联代码

1 个答案: