VBA Find 函数忽略百分比 -> 只查找小数

Question

我的宏在所有打开的工作簿中搜索事件单元格值(例如 98%)。但是，它仅在其他单元格中找到值 0.98 而不是值 98%。为什么？

这是我的宏:

Sub FindIt2()
Dim wSheet As Worksheet
Dim wBook As Workbook
Dim rFound As Range
Dim firstAddress As String
lookfor = Selection.Value

On Error Resume Next
For Each wBook In Application.Workbooks
    For Each wSheet In wBook.Worksheets

        Set rFound = wSheet.Cells.Find(What:=lookfor, After:=wSheet.Cells(1, 1), _
        LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False)

        If Not rFound Is Nothing Then

            firstAddress = rFound.Address

            Do

                Application.Goto rFound, True

                MsgBox "The Search String has been found these locations: "

                Set rFound = wSheet.Cells.FindNext(rFound)

            Loop While Not rFound Is Nothing And rFound.Address <> firstAddress

        End If

    Next wSheet

Next wBook
On Error GoTo 0

任何人都有一个想法如何解决这个问题？谢谢!

编辑:我希望它同时找到:98% 和 0.98

Answer 1

有时 98% 是单元格的值。即当您在单元格中输入 98% 时。 Excel 会将其视为字面上的 98%。在其他情况下，单元格值为 .98 或 .98231 并显示 98%。您很可能希望查找两位有效数字的舍入，以便在值为 0.98321 时找到 0.98。

我会尝试寻找两者。

cell.text 和 round(cell.value, 2)

How to round up with excel VBA round()?

本文介绍如何在 Excel VBA 中使用舍入功能