vba代码求助 小菜鸟谢谢大神们啦

ImaSvnnyLight

表名	字段名	此字段是否用到	此表是否用到
aa	12	是	是
aa	5927	否	是
aa	9714	否	是
bb	114yg	否	否
cc	g3	是	是
cc	srew	否	是
cc	wet	否	是
cc	1h	否	是
dd	ser	否	否
dd	34y	否	否
dd	3y	否	否

想根据前三列得到第四例。当表名相同时，只要此表名其中的一个字段用到状态显示为“是”，那第4列，所有此表名对应的字段都显示为“是“，若此表名对应的所有字段状态为”否“，则表的用到状态为”否“。
因为数据很多，几万行，所以想用vba试一下。求助大神们~谢谢啦。

qdzbk

Sub 查找()
Dim arr, i&, ii&
Application.ScreenUpdating = False  '关闭屏幕更新
oend = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To oend
    If Cells(i, 1).Value = "表名" Then orow = i + 1: Exit For
Next i
For i = Columns.Count To 1 Step -1    '查找列号
    If InStr(Cells(orow - 1, i).Value, "此表是否用到") > 0 Then ocol = i
    If InStr(Cells(orow - 1, i).Value, "此字段是否用到") > 0 Then ocoln = i
Next
If ocol < 2 Or oend <= orow Or ocol < ocoln Then Exit Sub
arr = Range(Cells(orow, 1), Cells(oend, ocol))  '将记录装入数组
Set d = CreateObject("Scripting.Dictionary")    '建立字典
For i = 1 To UBound(arr)
    If arr(i, ocoln) = "是" Then d(arr(i, 1)) = "是"
Next i
For i = 1 To UBound(arr)
    If d(arr(i, 1)) = "是" Then arr(i, ocol) = "是" Else arr(i, ocol) = "否"
Next i
Cells(orow, 1).Resize(UBound(arr), UBound(arr, 2)) = arr   '将数组放入工作表
Application.ScreenUpdating = True   '屏幕更新
End Sub

ImaSvnnyLight

qdzbk 发表于 2018-9-25 22:45
Sub 查找()
Dim arr, i&, ii&
Application.ScreenUpdating = False  '关闭屏幕更新

先谢谢啦。可为什么用到实际的表里，会报“应用程序定义或对象定义错误”啊？

ImaSvnnyLight

ImaSvnnyLight 发表于 2018-9-26 09:34
先谢谢啦。可为什么用到实际的表里，会报“应用程序定义或对象定义错误”啊？

我知道了，就是在我实际的表里，a列对应的是f列，b列对应h列，c列对应的为w列，想要生成的在真正表里的V列。请问应该怎么修改代码呀？

qdzbk

Sub 查找()
Dim arr, i&, ii&
Application.ScreenUpdating = False  '关闭屏幕更新
oend = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To oend
    If Cells(i, 8).Value = "表名" Then orow = i + 1: Exit For
Next i
For i = Columns.Count To 1 Step -1    '查找列号
    If InStr(Cells(orow - 1, i).Value, "此表是否用到") > 0 Then ocol = i
    If InStr(Cells(orow - 1, i).Value, "此字段是否用到") > 0 Then ocoln = i
Next
If ocol < 9 Or oend <= orow Or ocol < ocoln Then Exit Sub
arr = Range(Cells(orow, 8), Cells(oend, ocol))  '将记录装入数组
Set d = CreateObject("Scripting.Dictionary")    '建立字典
For i = 1 To UBound(arr)
    If arr(i, ocoln) = "是" Then d(arr(i, 1)) = "是"
Next i
For i = 1 To UBound(arr)
    If d(arr(i, 1)) = "是" Then arr(i, ocol) = "是" Else arr(i, ocol) = "否"
Next i
Cells(orow, 8).Resize(UBound(arr), UBound(arr, 2)) = arr   '将数组放入工作表
Application.ScreenUpdating = True   '屏幕更新
End Sub

请上传附件吧！