利用VBA来条件的匹配

fhqham

数据量很大时，用函数，要等很长时间，用VBA如何解决，谢谢各位老师

Yalishanda30

额。。。。。。。。。。。。。。。。

sxbjzjf110

grf1973

简单的字典运用。

sxbjzjf110

用数组写了一下，快一些

suntao2000

这么多人呀，刚做好做个参考吧

ykcbf1100

参与一下吧。

cjc209

Sub 测试()
    Set dic = CreateObject("Scripting.Dictionary")
    Sheet2.Activate
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        dic(Cells(i, 2).Value & "|" & Cells(i, 1).Value) = dic(Cells(i, 2).Value & "|" & Cells(i, 1).Value) + Cells(i, 3).Value
    Next
    Application.ScreenUpdating = False
    For Each wkst In ThisWorkbook.Worksheets
        If wkst.Name <> "数据" Then
            ar = wkst.UsedRange.Value
            For j = 3 To UBound(ar)
                For k = 3 To UBound(ar, 2)
                    ar(j, k) = dic(ar(j, 2) & "|" & ar(1, k))
                Next
            Next
            wkst.Range("A1").Resize(UBound(ar), UBound(ar, 2)) = ar
        End If
    Next
    Set dic = Nothing
    Application.ScreenUpdating = True
End Sub

罗达

留痕学习。。。。。

yumz@123

学习中，谢谢大家