当然可以！针对你这种数据集大小不固定的场景，用Cells来动态计算滚动区域完全可行，而且是解决这类问题的标准思路。我给你写个实用的实现代码，再解释下关键细节：

Private Sub Worksheet_Activate()
    Dim lastRow As Long
    Dim lastCol As Long
    
    ' 获取A列最后一个有数据的行（假设你的数据从A3开始，可按需调整）
    lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
    ' 设置要限制的最大列数（对应你提到的第30列，也可以改成自动识别）
    lastCol = 30 
    ' 如果你想自动识别数据的最后一列，替换上面的lastCol赋值为：
    ' lastCol = Me.Cells(3, Me.Columns.Count).End(xlToLeft).Column
    
    ' 动态拼接滚动区域范围并设置
    Me.ScrollArea = "A3:" & Me.Cells(lastRow, lastCol).Address(False, False)
End Sub

关键细节说明： #

• 动态获取最后一行：Me.Rows.Count会取当前工作表的总行数，End(xlUp)相当于手动按Ctrl+↑，能精准定位到A列最后一个有数据的单元格所在行，完美适配数据量变化。
• 列数设置灵活：你可以直接指定固定列数（比如代码里的30），也可以改成自动识别最后一列的逻辑，注释里已经给出了写法，根据你的实际需求选就行。
• 地址拼接技巧：Cells(lastRow, lastCol).Address(False, False)会把单元格坐标转换成不带$的A1格式（比如F123），和起始位置A3拼接后，就得到了完整的滚动区域范围。

注意事项： #

• 如果你的数据起始位置不是A3，记得把代码里的"A3"以及自动识别列时的Me.Cells(3, ...)里的3，改成实际的起始行号。
• 如果数据区域存在空白行/列，End(xlUp)/End(xlToLeft)会停在第一个非空单元格，这种情况你可能需要调整获取最后行/列的逻辑（比如用UsedRange，但要注意UsedRange可能包含空单元格的问题）。

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