软件: EXCEL
版本: 2010
档案1 test.xlsm
档案2 date.xls
以档案1的字段以搜寻的的方法来找寻是否有出现在档案2
附上程式码
Sub FindAddress()
Dim s As Integer
Dim r As Integer
Dim GCell, txt As Range
Dim MySheet As String
'路径
MyPath = "d:\test\"
'档案名称
MyWB = "date.xls"
MySheet = ActiveSheet.Name
'关显示开唯读
Application.ScreenUpdating = False
Workbooks.Open Filename:=MyPath & MyWB, ReadOnly:=True
e = 5
For r = 17 To 36
i = r
Set txt = Cells(r, e)
Set GCell = ActiveSheet.Cells.Find(What:=txt)
If Not GCell Is Nothing Then
With ThisWorkbook.ActiveSheet.Range("f" & (i))
.Value = "ok"
End With
Else
With ThisWorkbook.ActiveSheet.Range("f" & (i))
.Value = "no"
End With
End If
Next r
'开显示不存盘
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
问题1:无法指定档案1的字段来做搜寻，他都会跳到档案2字段做为搜寻的条件
请问是我哪里写错了吗??
问题2:因为档案2会以月份做为工作表，所以之后会输入的工作表至少会有12页，
这样开档搜寻之后又关档效率会好吗?
请各位多多指教~~~谢谢!!

问题1，原cells(r,e)，前加上thisworkbook.activesheet 试试

s大~加上去就可以了，可是如果有是空格他还是会判定是成功，我有加上lookin:=xlvalues lookin:=xlwhole还是一样，空格的问题有可以解吗??谢谢

有空格是指，如"a "去找"a"的话是可以找到吗？

空格的意思是搜寻字段是没资料的假如后面有10笔的字段是没有打入资料的他也会判定成功

那加上个判断寻找目标如没资料则不执行range.find的部分

请问有相关范本可以参考吗??是要if等于 "" 然后就直接跳出吗这样吗??

如原po回文，为""时则不执行range.find，再执行其他部分

我先写看看~~先感谢神S的指导~~

你先做个测试 先别用vba先手动 确定 两笔资料是否相同 有可能都一样的文字 缺不同的资料却是不同的资料我会建议你把档案传上来问题一 一定可以指定 甚至可以套入循环 甚至自己抓档名连指定档案都不用问题二 其实要看资料的概况甚至只要有一个表 多个月份字段，基本上12张合成一张都无所谓，除非你一个月分的资料破2万笔但反过来说 甚至你可以用年当资料分类其实是我会比较用土一点但比较不会错的方式用vba把档案二的资料贴到档案ㄧ的某个页面，在做分析同时开启12个档案当然会很慢，我会建议，你把ActiveWorkbook.Close savechanges:=FalseApplication.ScreenUpdating = TrueEnd SubEnd sub 不用这几行 放入循环中 每次处理完就关掉就好啦

问题在于我连第一个都解不出来了QQ问题2不合并的原因在于他是在做出货的查询，只要有出货他要查到是否有打入，所以我才会用find去做而已

你把档案po上来直接让我们改比较快 毕竟问题 不是单一函数

应该星期2我也还没解出来~~QQ

http://imgur.com/a/X1Zx8 要产生这样的结果吗?

对~~感谢神S的神支援，小弟在此叩谢!!!