相关文章推荐
发财的煎饼果子  ·  excel vba ...·  1 周前    · 
豪情万千的双杠  ·  VBA ...·  昨天    · 
爽快的烤面包  ·  Enumerable.Contains ...·  4 月前    · 
阳刚的豆腐  ·  Autofac IOC ...·  1 年前    · 
豪情万千的围巾  ·  Unity Console 窗口 ...·  1 年前    · 
Set d = CreateObject("Scripting.Dictionary") arr = [A1].CurrentRegion brr = [A11].CurrentRegion For i = 2 To UBound(arr)     d(arr(i, 1) & arr(i, 2)) = i For j = 2 To UBound(brr)     If d.Exists(brr(j, 1) & brr(j, 2)) Then         m = d(brr(j, 1) & brr(j, 2))         brr(j, 3) = arr(m, 3)         brr(j, 4) = arr(m, 4)     End If [A11].Resize(UBound(brr), 4) = brr End Sub