Excel VBA批量设置数据验证时单元格引用自动偏移问题

这个偏移不是代码逻辑错误，是Excel公式引用的默认规则导致的：

• 批量给单元格区域设置数据验证时，你传入的=F5是相对引用，没有锁定行坐标。Excel会以所选区域的左上角单元格为基准，自动给区域内其他单元格按相对位置偏移公式引用：你的选区从第6行开始，首行（第6行）基准引用是F5，每往下一行，引用行号自动+1，就出现了第7行引用F6、第8行引用F7的现象。
• 另外你当前代码写死了F列引用，循环处理G、H等其他题目列时，所有列的得分单元格都会错误校验F列的最高分，无法匹配对应题目的分值。

将上限引用改为锁行不锁列的混合引用即可：行号前加$固定指向第5行的最高分位置，列号保持相对引用，自动匹配当前单元格所在的题目列。
修正后的数据验证代码段如下：

With Range(Chr(69 + i) & "6:" & Chr(69 + i) & 5 + x).Validation
    .Delete
    .Add Type:=xlValidateWholeNumber, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="0", Formula2:="=" & Chr(69 + i) & "$5"
    .InputTitle = "Részpont"
    .ErrorTitle = "Helytelen adat"
    .InputMessage = "Egy érték 0 és maximális pont között."
    .ErrorMessage = "A részpont egy érték 0 és maximális pont között!"
End With

引用规则说明：Excel公式中$用于锁定坐标：$F$5是锁定F列5行的绝对引用，所有单元格都指向同一个位置；F$5仅锁定行号，列号随单元格位置自动变化，正好匹配你“取当前列第5行最高分”的需求。

你当前用Chr(69+i)拼接列字母的写法，在题目数量超过18道（列号超过Z列）时会生成无效列名，建议改用单元格地址生成方法自动适配任意列数：

' 自动生成当前列第5行的锁行不锁列引用，无需手动拼列字母
Dim maxScoreCell As Range
Set maxScoreCell = ws.Cells(5, 5 + i)
Dim maxScoreRef As String
maxScoreRef = "=" & maxScoreCell.Address(RowAbsolute:=True, ColumnAbsolute:=False)

' 数据验证处直接传入即可
.Add Type:=xlValidateWholeNumber, _
    AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="0", Formula2:=maxScoreRef

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