find vba 模糊_vba语言中find 的用法

各位高手，在使用EXCEL中的VBA时，遇到了用find找不到的问题。程序如下：明明刚从第19列中把一个值给了mytmpcell,但又从此列中找到与mytmpcell的value相同的单元格，就找不到了。并且...

各位高手，在使用EXCEL中的VBA时，遇到了用find找不到的问题。程序如下：

明明刚从第19列中把一个值给了mytmpcell,但又从此列中找到与mytmpcell的value相同的单元格，就找不到了。

并且，刚开始调试的时候还能够找到的。请帮忙解决一下。有分送的哟！

For j = 5 To worksub.Columns(19).Rows.Count '开始填写对应的单元格

Set mytmpcell = .Cells(j, 19)

If mytmpcell.Value <> "" Then

.Cells(j, 21).Value = .Cells(j, 19).Value

.Columns(22).Value = .Columns(19).Value

Set mycell = worksub.Columns(19).Find(What:=mytmpcell.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)

If Not (mycell Is Nothing) Then

If mytmpcell.Row = mycell.Row Then

sht4.Cells(i, 17).Value = .Cells(mycell.Row, 19).Value

sht4.Cells(i, 4).Value = .Cells(mycell.Row, 14).Value

sht4.Cells(i, 5).Value = .Cells(mycell.Row, 15).Value

sht4.Cells(i, 6).Value = .Cells(mycell.Row, 13).Value

sht4.Cells(i, 8).Value = .Cells(mycell.Row, 2).Value

sht4.Cells(i, 9).Value = .Cells(mycell.Row, 4).Value

sht4.Cells(i, 10).Value = .Cells(mycell.Row, 3).Value

sht4.Cells(i, 11).Value = .Cells(mycell.Row, 20).Value

sht4.Cells(i, 2).Value = .Cells(mycell.Row, 16).Value

sht4.Cells(i, 3).Value = .Cells(mycell.Row, 17).Value

sht4.Cells(i, 7).Value = mygx

i = i + 1

End If

End If

End If

Set mycell = Nothing

Set mytmpcell = Nothing

Next j

刚开始以为Find中的默认值不对，但我把其他的参数都设置了，也找不到呀。运行时找到的结果为nothing.

展开