Excel VBA .查找范围异常

Question

'找到了一个有趣的 - 在 4 小时把我的头发撕掉之后。

如果第一列的宽度对于使用的字体大小而言太窄，Excel 2010 VBA 似乎无法在一系列合并的单元格中找到日期值。（这类似于 Excel VBA 无法在隐藏的 row/column 中找到日期值）。

3 种可能的解决方案：最好优先

将 LookIn 参数更改为 xlFormulas。
加宽列，直到宏适用于 LookIn:=xlValues。
减小字体大小，直到宏适用于 LookIn:=xlValues。

重现步骤：

在 A2 中插入一个日期（例如 7/3）。
合并 4 列 (A2:D2) - 这是要查找的日期字段
在单元格 A4:A35 中创建一组连续日期（例如 1/3 到 31/3）。
合并 4 列 (A4:D35)

运行以下代码：

Sub findDate()
Dim myRange As Range
Dim myDate As Date
Dim myFindDate As Date
Dim myRow As Integer

With ActiveSheet

    Set myRange = .[A2]

    myFindDate = .[A4:D35].Value

    On Error Resume Next

    myRow = myRange.Find( _
        what:=myFindDate, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False).Row

    On Error GoTo 0

    If myRow <> 0 Then
        MsgBox "The date is in row number = " & myRow
    Else
        MsgBox "Column A too narrow.  Either use LookIn:=xlFormulas, widen Column A or reduce the font size."
    End If

End With

End Sub

请注意，消息框显示了相关的行号。

现在将 A 列的宽度减小到 2.4，然后再次运行代码。

注意生成的消息框：Excel VBA 不再能够找到日期！

上面是解决方案 1 的代码：

Sub findDate()
Dim myRange As Range
Dim myDate As Date
Dim myFindDate As Date
Dim myRow As Integer

With ActiveSheet

    Set myRange = .[A2]

    myFindDate = .[A4:D35].Value

    On Error Resume Next

    myRow = myRange.Find( _
        what:=myFindDate, _
        LookIn:=xlFormulas, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False).Row

    On Error GoTo 0

    If myRow <> 0 Then
        MsgBox "The date is in row number = " & myRow
    Else
        MsgBox "Column A too narrow.  Either use LookIn:=xlFormulas, widen Column A or reduce the font size."
    End If

End With

End Sub

（唯一的变化是 LookIn 参数：xlFormulas 而不是 xlValues）

如果您运行这第二位代码，消息框将再次显示行号。

'希望这能减轻其他人给我带来的痛苦！！

加里

Answer 1

我遵循了您的 "Steps to reproduce" 说明，但您的示例对我不起作用。

虽然我注意到了一些事情。

Dim myDate As Date
Dim myFindDate As Date
Dim myRow As Integer

这些值可能是日期，但您使用的是范围。所以正确启动代码，

 Dim myRange As Range, myFindDate As Range, myRow As Range

然后正确设置范围。

 Set myRange = [A2]
 Set myFindDate = [A4:D35]
 Set myRow = myFindDate.Find(what:=myRange, lookat:=xlWhole)

以这种方式使用代码，列的宽度无关紧要。

完整代码。

Sub findDateB()
    Dim myRange As Range, myFindDate As Range, myRow As Range

    Set myRange = [A2]
    Set myFindDate = [A4:D35]
    Set myRow = myFindDate.Find(what:=myRange, lookat:=xlWhole)

    If Not myRow Is Nothing Then
        MsgBox "The date is in row number = " & myRow.Row
    Else: MsgBox "Not Found"
        Exit Sub
    End If

End Sub

Excel VBA .查找范围异常

Excel VBA .Find Range Anomaly

excel

vba

solution

find