对range使用sort方法后，无法继续使用Find方法

还是叫蜜蜂好了

因公司业务需要，我在开发自己的程序的时候，对原先的数据只需要在交易日列数据中找到最后一个交易日的行数即可，但是新的需求是，如果交易日列的数据中的交易日是乱序的，我需要先进行排序，然后找到最后一个交易日所在行。
问题出现在，我在对表格中的数据按时间排序完成后，无法对交易时间数据所在列使用Find方法，提示错误：运行时错误“1004”，应用程序定义或对象定义错误。
代码如下：

1. With Workbooks(fileName).Worksheets(wst)
   
2. 
   
3.             .Range(sourceCol & 1).Sort key1:=.Range(tradingDateCol & 1).Value2, Order1:=xlAscending, Header:=xlYes
   
4. 
   
5.             lastRow = .Range(tradingDateCol).Find(What:=lastTradingDay, SearchOrder:=xlByRows, LookAt:=xlWhole).row '程序运行到这里出错
   
6. 
   
7.             For firstRow = 2 To lastRow
   
8. 
   
9.                 If Not sourceDict.Exists(.Range(sourceCol & firstRow).Value2) Then
   
10. 
    
11.                     GoTo continue
    
12. 
    
13.                 End If
    
14. 
    
15.                     GJDataFromProductionReport = .Range(GJDataCol & firstRow).Value2
    
16. 
    
17.                     NmDataFromProductionReport = .Range(NmDataCol & firstRow).Value2
    
18. 
    
19.                     '检查每天出入库数据
    
20. 
    
21.                     If (GJDataFromProductionReport > 0 And NmDataFromProductionReport <= 0) Or (GJDataFromProductionReport <= 0 And NmDataFromProductionReport > 0) Then
    
22. 
    
23. 
    
24.                         errorMessage = errorMessage & "逻辑有误。生产日报中" & .Range(sourceCol & firstRow).Value2 & "在" & .Range(tradingDateCol & firstRow).Value2 & "日，吉焦或立方米数据为0，但对应的吉焦数据不为0" & "/"
    
25. 
    
26.                     ElseIf NmDataFromProductionReport <> 0 And .Range(sourceCol & firstRow).Value2 <> "xxx" Then
    
27. 
    
28.                         coefficient = .Range(coefficientCol & firstRow).Value2
    
29. 
    
30.                         If GJDataFromProductionReport / (NmDataFromProductionReport * 10) - coefficient > 0.015 Or GJDataFromProductionReport / (NmDataFromProductionReport * 10) - coefficient < -0.015 Then
    
31. 
    
32.                                 errorMessage = errorMessage & "在生产日报中" & Application.WorksheetFunction.Text(.Range(tradingDateCol & firstRow).Value2, "yyyy-mm-dd") & .Range(sourceCol & firstRow).Value2 & "万方转吉焦数不一致，两者相差" & NmDataFromProductionReport * 10000 * coefficient / 1000 - GJDataFromProductionReport & "/"
    
33. 
    
34.                         End If
    
35. 
    
36.                     End If
    
37. 
    
38. continue:
    
39. 
    
40.             Next firstRow
    
41. 
    
42.     End With

复制代码

liulang0808

lastRow = .Range(tradingDateCol).Find(What:=lastTradingDay, SearchOrder:=xlByRows, LookAt:=xlWhole).row '程序运行到这里出错
因为区域内没有符合要求的值导致的吧
set rng= .Range(tradingDateCol).Find(What:=lastTradingDay, SearchOrder:=xlByRows, LookAt:=xlWhole)
if not rng is nothing then lastRow =rng.row '程序运行到这里出错

还是叫蜜蜂好了

liulang0808 发表于 2018-3-22 07:11
lastRow = .Range(tradingDateCol).Find(What:=lastTradingDay, SearchOrder:=xlByRows, LookAt:=xlWhole). ...

谢谢！
我重新调整代码，代码如下：

1. Set rng = .Range(tradingDateCol & 2 & ":" & tradingDateCol & .Range(tradingDateCol & 2).End(xlDown).row).Find(what:=lastTradingDay, LookIn:=xlValues, SearchOrder:=xlByRows, LookAt:=xlWhole)

复制代码