搜索复杂度
你好我想diff中收集信息
**** Hidden Message ***** 使用“范围”对象的“查找”方法。
我做了一个简单的测试，将这两个“单词”放在不同的单元格中(单独和与其他字符一起),并且总是能够成功地识别它们
例如代码0]
如果这对您不起作用，请提供有关您的案例环境的更多详细信息
Thx for the reply mate
在代码下面我使用
“Option Explicit
Sub AylikSiparisDene（）
Dim a1， a2， a8， a20 As Variant
Dim a5， a9， a19， a23， a21， a22， a24 As Integer
Dim Rng As Range
Application.ScreenUpdating = False
Range（Sheets（2）.单元格（3， 9）， 工作表（2）.细胞（32， 20））。清除内容
a1 = ActiveWorkbook.Name
工作表（1）。激活
a2 = 工作表（1）。Cells（1， 2）
Workbooks.Open a2
a8 = ActiveWorkbook.Name
a5 = 32
a9 = 41
'**************************************************
激活
工作表（2）。激活
a20 = 工作表（2）。Cells（a19， 1） 'aranacak model ismi
a23 = 0 'aylık siparis adedi sıfırlandı
For a21 = 2 To a9 'forecast te model isminin oldugu satırlar
Workbooks（a8）.Activate 'forecast excelini aktive et
Sheets（1）.激活
If Sheets（1）。单元格（a21， 1） = a20 则
对于 a22 = 4 到 15
a23 = 0
工作簿（a8）。Activate 'forecast excelini aktive et
Sheets（1）.激活
a23 = 工作表（1）。Cells（a21， a22） 'model basına her ayın siparis adedi
Workbooks（a1）.激活
工作表（2）。激活
Set Rng = Range（“h：h”）。Find（what：=a20， lookat：=xlWhole， LookIn：=xlValues）
a24 = Rng.Row
Sheets（2）.单元格（a24， a22 + 5） = 工作表（2）。单元格（a24， a22 + 5） + a23
下一个 a22
其他：如果
下一个 a21
结束 下一个 a19
'******************
激活
工作表（2）。激活
结束子
，如您所见，我正在使用范围查找方法，但它仍然不起作用
，我试图删除其中一个的最后2位数字，现在它工作。
所以这两个词之间的区别比以前多得多
，但这不是一个确切的解决方案：/
我试着去通过你的代码,但它工作 哇，里克＜br＞我在考虑改变这个激活程序，你提出了这个解决方案
那是我的幸运日
也是.find建议的幸运日<只要我有能力，我都会给其他人送去干杯。
页:
[1]