大神们，求救🆘。水平不行，搞到现在还没搞定

gl0807

通过<售卡登记表>(C列)客户姓名&(D列)客户电话&(E列)客户地址&(F列)卡号
与《签单登记表》中(E列)客户姓名&(F列)客户电话&(G列)客户地址&(I列)卡号
进进行对比，找出：
<售卡登记表>中的客户信息已经《签单登记表》中显示签单，并且在新的《售卡签单登记表》中显示匹配售卡签单结果。
谢谢，附件示例
系统是MAC版本office 365

sjlxp2010

Sub 登记()
Dim arr, brr
Dim rng As Worksheet
Dim rng1 As Worksheet
Set rng = Sheets(2)
Set rng1 = Sheets(4)
Dim i As Integer, j As Integer, M As Integer, n
arr = Sheets(1).Range("a1").CurrentRegion
brr = rng.Range("a1").CurrentRegion
Application.ScreenUpdating = False
   For i = 1 To UBound(arr)
       For j = 1 To UBound(brr)
       M = Sheets(4).Range("a1045876").End(xlUp).Row + 1
          If arr(i, 3) & arr(i, 4) & arr(i, 5) & arr(i, 6) = brr(j, 5) & brr(j, 6) & brr(j, 7) & brr(j, 9) Then
          n = n + 1
           rng1.Range("a" & M) = n
           rng.Range("b" & j).Resize(1, 14).Copy rng1.Range("b" & M)
          End If
         Next j, i
Application.ScreenUpdating = True
End Sub
   

sjlxp2010

Sub 登记()
Application.ScreenUpdating = False
Dim arr, brr
Dim rng As Worksheet
Dim rng1 As Worksheet
Set rng = Sheets(2)
Set rng1 = Sheets(4)
Dim i As Integer, j As Integer, M As Integer, n
arr = Sheets(1).Range("a1").CurrentRegion
brr = rng.Range("a1").CurrentRegion
   For i = 1 To UBound(arr)
       For j = 1 To UBound(brr)
       M = Sheets(4).Range("a1045876").End(xlUp).Row + 1
          If arr(i, 3) & arr(i, 4) & arr(i, 5) & arr(i, 6) = brr(j, 5) & brr(j, 6) & brr(j, 7) & brr(j, 9) Then
             x = Application.Index(brr, j)
           rng1.Range("a" & M).Resize(1, 15) = x
           n = n + 1
           rng1.Range("a" & M) = n
          End If
         Next j, i
Application.ScreenUpdating = True
End Sub
这个运行快些

gl0807

sjlxp2010 发表于 2018-7-21 00:45
Sub 登记()
Application.ScreenUpdating = False
Dim arr, brr

谢谢老师。。。已经开始测试了。。
想请您帮我看下。。
为什么在MAC版office 365中运行不了。

gl0807

sjlxp2010 发表于 2018-7-21 00:45
Sub 登记()
Application.ScreenUpdating = False
Dim arr, brr

在吗？老师这个问题修改那些内容？
麻烦您了。。

sjlxp2010

Range("a1045876")改为CELLS(ROWS.COUNT,1)

microyip

http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下

gl0807

microyip 发表于 2018-7-22 11:44
http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下

谢谢，基础差，努力学习去。。。