[VBA]_限制选定单元格

Private Sub Worksheet_Activate()
    Sheets(1).ScrollArea = "$B$" & i & ":$B$" & i
End Sub