编写EXCEL宏程序 实现 相同数据合并

整理后的数据，放在D/E/F列

Sub MC_TEST()

    Set d = CreateObject("Scripting.Dictionary")

    For i = 1 To [a65536].End(3).Row

        aa = Cells(i, 1) & "|" & Cells(i, 3)

        d(aa) = d(aa) & "," & Cells(i, 2)

    Next

    ar = d.keys: br = d.items

    For n = 0 To d.Count - 1

       段岩 ss = Split(ar(n), 森燃好"|")

        Cells(n + 1, 4) = ss(0)

        Cells(n + 1, 5) = Mid(br(n), 此铅2)

        Cells(n + 1, 6) = ss(1)

    Next

End Sub

Sub test()

Dim ar(), br(), cr(), tempr1(), tempr2()

Dim i, j, k, n As Long

ar = Array("Shell"档银, "Case", "Cover", 链蠢嫌"Backcover", "Back Cover", "housing", "Skin", "protection", "protector", "Protective", "Pouch", "Flip", "Holster", "Wallet", "bumper")

br = Array("A", "B")

ReDim cr((UBound(ar) + 1) * (UBound(br) + 1) - 1)

ReDim tempr1((UBound(ar) + 1) * (UBound(br) + 1) - 1)

For i = 0 To UBound(ar)

    For j = 0 To UBound(br)

        tempr1(k) = ar(i) & " " & br(j)

        k = k + 1

    Next

Next

k = 0

Do While UBound(tempr1) >= 0

    Randomize

    cr(k) = tempr1(Int(Rnd() * (UBound(tempr1) + 1)))

    If UBound(tempr1) <> 0 Then GoSub Rtempr Else Exit Do

    k = k + 1

Loop

GoTo e

Rtempr:

n = 0

ReDim tempr2(UBound(tempr1) - 1)

For i = 0 To UBound(tempr1)

    If tempr1(i) <> cr(k) Then tempr2(n) = tempr1(i): n = n + 1

Next

ReDim tempr1(UBound(tempr2))

For i 棚手= 0 To UBound(tempr1)

    tempr1(i) = tempr2(i)

Next

Return

e:

Range("A1").Resize(UBound(cr) + 1, 1) = Application.WorksheetFunction.Transpose(cr)

End Sub

IF 判断条件1 THEN

符合->执行后面语句->完成后跳到END IF语句后面执行

不符合继续往基启下执行

EELSEIF 判断条件2 THEN

符合->执行后面语句->完成后跳到END IF语句后敏明面执行

不符合继续往下执行

ELSEIF 判断条件3 THEN

符合->执行后面语句->完成后跳到END IF语句后面执行

不符合继续往下执行

.............后面可以有无数个ELSEIF

END IF

若有所有判断条件都不符合，则语句走完到最后END IF 完成IF的判断功能

9个条件就相当于用了搏拿如第一个IF 和后面8个ELSEIF，每个后面都写一个你扣税的标准判断条件

只有有一个符合就执行，然后跳出IF 功能块

你的VBA代码中，也就用到了IF这个功能，希望能帮到你，不懂可以再问我

---