有两个表格的几列数据需要对比

柳生十兵卫

   有两个表格1和2
需要用表格1的C D G三列和表格2的E H I三列进行对比
如果对比结果都相同，在表1的L列输出 result
如果不相同，把表2中H列的值复制到表1的L列
请各位大神指点一下
谢谢

zopey

附件数据 两表数字排序后 对比结果是一致的。
但实际数据只有 一组数字 ，还是有2组以上数字要做比较呢 ，无从得知。

柳生十兵卫

zopey 发表于 2018-7-9 11:33
附件数据 两表数字排序后 对比结果是一致的。
但实际数据只有 一组数字 ，还是有2组以上数字要做比较呢 ， ...

抱歉  没有看懂你的意思

一把小刀闯天下

'可能是这样的。按你这条件没法写

Option Explicit

Sub test()
  Dim arr, brr, dic, i
  Set dic = CreateObject("scripting.dictionary")
  arr = GetObject(ThisWorkbook.Path & "\222.xlsx").Sheets("sheet1").[a1].CurrentRegion
  For i = 3 To UBound(arr, 1): dic(arr(i, 1)) = arr(i, 8): Next
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For i = 1 To UBound(arr, 1)
    If dic.exists(arr(i, 1)) Then
      brr(i, 1) = IIf(arr(i, 4) = dic(arr(i, 1)), "reslut", dic(arr(i, 1)))
    End If
  Next
  [l1].Resize(UBound(brr, 1)) = brr
End Sub