vba - If 语句移动单元格

Question

我目前有这个 If MsgBox 语句。如果选择vbYes，它将编辑单元格H8，如果选择vbNo，它将编辑其下方的单元格3(H11)。

If MsgBox("Is X? ", vbYesNo, "Confirm") = vbYes Then
'do this to cell H8
'do this to cell h9
else
'do this to cell h11
'do this to cell h12
end if

编辑是相同的 - 唯一的区别是单元格向下偏移 3 个单元格。在此示例中，我仅使用 H8 和 H9，但在我的数据中，还有更多单元格正在更新。这使我的代码困惑。有没有简单的方法来巩固这一点？

Answer 1

'Make a range first
Set WorkingRange = '(YourRangeHere)'
If MsgBox("Is X? ", vbYesNo, "Confirm") = vbNo Then
    Set WorkingRange = WorkingRange.Offset(3)
End If

'Do this with WorkingRange here