定位数据集首行编号：VBA无法获取First/Last变量坐标求助

嘿Scott，我来帮你排查这个问题！你遇到的First和Last变量无法加载坐标的情况，大概率是因为InputBox的返回值处理、查找逻辑的参数设置，或者错误屏蔽导致的，咱们一步步来解决：

一、先修正InputBox的输入验证 #

你当前的代码没有限制InputBox的输入类型，也没处理用户取消输入的情况，这会导致后续查找逻辑接收无效值。建议指定输入类型为整数，并添加取消判断：

Public Sub Create_Report()
    Dim ww_from As Integer, ww_to As Integer
    
    ' 获取起始工作周，限制只能输入整数
    ww_from = Application.InputBox("请输入报告起始工作周？", Type:=1)
    ' 判断用户是否取消输入
    If ww_from = False Then
        MsgBox "你取消了起始周输入，程序终止。"
        Exit Sub
    End If
    
    ' 获取结束工作周，限制只能输入整数
    ww_to = Application.InputBox("请输入报告结束工作周？", Type:=1)
    If ww_to = False Then
        MsgBox "你取消了结束周输入，程序终止。"
        Exit Sub
    End If
    
    ' 后续查找逻辑...

二、正确使用Range.Find获取坐标 #

要在全整数的C列找到ww_from的第一个出现位置和ww_to的最后一个出现位置，需要给Find方法设置正确的参数，避免默认参数导致的查找偏差：

Dim ws As Worksheet
    Set ws = ActiveSheet ' 建议替换成具体工作表，比如ThisWorkbook.Worksheets("数据报表")
    
    ' 查找起始周的第一个位置
    Dim First As Range
    Set First = ws.Columns("C").Find( _
        What:=ww_from, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, ' 精确匹配整数值，避免部分匹配
        MatchCase:=False _
    )
    ' 检查是否找到
    If First Is Nothing Then
        MsgBox "未找到起始工作周 " & ww_from & "，程序终止。"
        Exit Sub
    End If
    
    ' 查找结束周的最后一个位置，设置SearchDirection为xlPrevious
    Dim Last As Range
    Set Last = ws.Columns("C").Find( _
        What:=ww_to, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False, _
        SearchDirection:=xlPrevious _
    )
    If Last Is Nothing Then
        MsgBox "未找到结束工作周 " & ww_to & "，程序终止。"
        Exit Sub
    End If
    
    ' 测试输出坐标
    MsgBox "起始工作周位置：" & First.Address & vbCrLf & "结束工作周位置：" & Last.Address
End Sub

三、移除或合理使用错误处理 #

你开头的On Error Resume Next会屏蔽所有错误，包括查找失败的情况，导致你无法定位问题根源。建议移除这句，改用明确的错误捕获：

Public Sub Create_Report()
    On Error GoTo ErrorHandler ' 捕获错误跳转至处理逻辑
    
    ' ... 上述所有代码 ...
    
    Exit Sub ' 正常结束时跳过错误处理
ErrorHandler:
    MsgBox "程序运行出错：" & Err.Description
End Sub

完整测试代码 #

把以上部分整合起来，你可以直接运行测试：

Public Sub Create_Report()
    On Error GoTo ErrorHandler
    
    Dim ww_from As Integer, ww_to As Integer
    Dim ws As Worksheet
    Dim First As Range, Last As Range
    
    ' 获取并验证起始周输入
    ww_from = Application.InputBox("请输入报告起始工作周？", Type:=1)
    If ww_from = False Then
        MsgBox "你取消了起始周输入，程序终止。"
        Exit Sub
    End If
    
    ' 获取并验证结束周输入
    ww_to = Application.InputBox("请输入报告结束工作周？", Type:=1)
    If ww_to = False Then
        MsgBox "你取消了结束周输入，程序终止。"
        Exit Sub
    End If
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("数据报表") ' 替换成你的表名
    
    ' 查找起始周第一个位置
    Set First = ws.Columns("C").Find(What:=ww_from, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    If First Is Nothing Then
        MsgBox "未找到起始工作周 " & ww_from & "，程序终止。"
        Exit Sub
    End If
    
    ' 查找结束周最后一个位置
    Set Last = ws.Columns("C").Find(What:=ww_to, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchDirection:=xlPrevious)
    If Last Is Nothing Then
        MsgBox "未找到结束工作周 " & ww_to & "，程序终止。"
        Exit Sub
    End If
    
    ' 输出结果
    MsgBox "成功定位范围：" & vbCrLf & _
           "起始位置：" & First.Address & vbCrLf & _
           "结束位置：" & Last.Address
    
    Exit Sub
ErrorHandler:
    MsgBox "程序运行出错：" & Err.Description
End Sub

内容的提问来源于stack exchange，提问作者Scott