作者：乔山办公网日期：
返回目录：excel表格制作
w=cells(rows.count,1).end(xlup).row+1
要表示你来要的单元格自区域，可以表百示为
range("A" &w &":K" & w+11)
或者度
range(cells(w,1),cells(w+11,"K"))
也可以直接取得知这个区域，代码如下道
Sub test()
Dim rng1 As Range
Set rng1 = Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(11, 11)
End Sub
加一复句制zd
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
sh.ScrollArea = "a1:a100"
End Sub
引用一百个区域可以使用Range对象。Range对象代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域。
可以使用度WorkSheet的Range方法来返回一个Range对象，下例将单元格 A1 中的值赋给单元格 A5：
Worksheets("Sheet1").Range("A5").Value =
Worksheets("Sheet1").Range("A1").Value在不带对专象识别符（句点左边的对象）的情况下使用 Range 属性，该属性会返回活动表上的一个区域。使用前需要用WorkSheet的Activate方法来使一个工作属表成为活动表。下例设置A1:H8的公式：
Worksheets("Sheet1").Activate
Range("A1:H8").Formula = "=Rand()"也可以用WorkSheet的Cells方法来返回一个单元格，其为Range对象
Worksheets(1).Cells(1, 1).Value = 24
改成
If Target.Column > 1 And Target.Column < 4 And Target.Row > 1 And Target.Row < 6 Then