VBA查找方法不返回表中实际上存在的值

时间:2018-11-29 01:44:19

标签: excel vba

我希望能够在工作表中找到值。我在循环的前两次迭代中成功匹配了字符串值。第三次迭代会在下面的行上导致错误。错误属于

类型
  

“对象变量或未设置块变量”。

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

0 个答案:

没有答案