我希望能够在工作表中找到值。我在循环的前两次迭代中成功匹配了字符串值。第三次迭代会在下面的行上导致错误。错误属于
类型“对象变量或未设置块变量”。
find方法中的字符串值是正确的(当我将鼠标悬停在它上面时),但是range变量不记录任何内容(它什么也不读取)。我相当确定与find方法关联的属性是正确的。
此外,我尝试在工作表中搜索字符串“ 08/17/2015”,尽管观察到它的存在,但也无法成功匹配它。我尝试了“查找”工具箱中提供的几种组合,但似乎没有任何效果。有什么想法为什么现在在这个日期值上失败了?有关如何进一步解决此问题的想法?
.Range(sampleSet, sampleSet.End(xlToRight)).Copy
For aa = 1 To samples
sampleVar = wkbk.Sheets("AllDistanceMeasures").Cells(aa + 4, 11).value
With Workbooks(COMBINED).Worksheets(Contract)
Set sampleSet = .Cells.Find(What:=sampleVar, After:=.Range("A1"),
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
.Range(sampleSet, sampleSet.End(xlToRight)).Copy
End With
Workbooks("KMEANS_TEMPLATE.xls").Sheets("Destination").Cells(aa + 8,
4).PasteSpecial xlPasteValues
Next aa