VBA使用lookuprange时计数错误，周数序列生成异常

当前代码生成的周数序列间隔为4，原因是依赖单元格行号差计算增量——如果目标区域resultrange的单元格并非连续行（比如存在隐藏行、或实际选择的是间隔行），resultcell.Row - resultrange.Row的结果就不是连续的0到6，而是跳变的数值，导致周数每次加4。

改用独立计数器变量控制周数增量，即可确保生成连续的startweek到startweek+6序列，修正后的代码如下：

Dim endweek As Long
Dim lookuprange As Range
Dim resultrange As Range
Dim resultcell As Range
Dim weeknumber As Long
Dim counter As Long
Dim foundCell As Range ' 移到循环外声明更规范

Sub updategraphs()
    Dim startweek As Variant ' 先声明为Variant，方便判断是否为数字
    startweek = InputBox("Specify the beginning range of the weeks you wish to graph (numbers only):", "Beginning Week Range?")
   
    If Not IsNumeric(startweek) Then
        MsgBox "Error, please input data using a number-only format.", vbOKOnly, "ERROR"
        Exit Sub
    End If
   
    startweek = CLng(startweek)
    endweek = startweek + 6
   
    Set lookuprange = Worksheets("FY2023").Range("A3:BT62")
    Set resultrange = Worksheets("W2W").Range("A2:A8")
   
    counter = 0 ' 初始化计数器，从0开始
    For Each resultcell In resultrange
        weeknumber = startweek + counter ' 用计数器控制增量，确保每次+1
       
        Set foundCell = lookuprange.Columns(1).Find(weeknumber, LookIn:=xlValues, LookAt:=xlWhole)
       
        If Not foundCell Is Nothing Then
            resultcell.Value = foundCell.Offset(0, 6).Value
        Else
            resultcell.Value = "Week Not Found"
        End If
        counter = counter + 1 ' 计数器自增
    Next resultcell
End Sub

关键修改说明 #

• 新增counter变量作为独立计数器，循环开始前初始化counter=0，每次循环后自增1，确保周数增量连续（0→1→2…→6）。
• 将weeknumber的计算逻辑从依赖行号差改为startweek + counter，彻底避免行号变化带来的增量错误。
• 把foundCell的声明移到循环外，符合VBA代码规范（虽然循环内声明也能运行，但过程级声明更清晰）。
• 新增startweek的变量声明，避免隐式变量带来的潜在问题。

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