如何在VBA中基于其他单元格的值动态选择单元格区域？

核心是用M4单元格的数值作为结束行号，动态构建目标区域，同时建议避免不必要的Select操作（直接操作Range更高效）。

基础实现代码 #

Sub Macro5()
    Dim lastRow As Long
    ' 提取M4里的行号
    lastRow = Range("M4").Value
    ' 动态生成区域并赋值
    Range("O4:O" & lastRow).FormulaR1C1 = "x"
End Sub

增强容错版（处理异常输入） #

如果需要避免M4输入非数字或行号小于4的情况，可以加判断逻辑：

Sub Macro5()
    Dim lastRow As Long
    ' 先检查M4是否为有效数字
    If IsNumeric(Range("M4").Value) Then
        lastRow = CLng(Range("M4").Value)
        ' 确保结束行号不小于起始行4，防止区域无效
        If lastRow >= 4 Then
            Range("O4:O" & lastRow).FormulaR1C1 = "x"
        Else
            MsgBox "M4的值必须大于等于4！"
        End If
    Else
        MsgBox "M4请输入有效的数字行号！"
    End If
End Sub

关键说明 #

• 用"O4:O" & lastRow字符串拼接的方式，把固定的O22替换成由M4决定的动态行号
• 去掉Select和Selection是VBA的最佳实践，直接操作Range能提升代码效率，还能避免选中单元格带来的意外问题

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