'''
Sub RngSelect()
Sheet1.Range("A3:F6,B1:C5").Select
End Sub
Sub cell()
Dim icell As Integer
For icell = 1 To 100
Sheet1.Cells(icell, 1).Value = icell 'Cells(x,y) 以x,y组合来定位一个单元格
Next
End Sub
Sub cell1()
Sheet1.Cells(1, 6).Select
[A5:F3] = Int(Rnd * 100) 'rng函数, 随机数(0-1)
Debug.Print [A5] '立即窗口显示
End Sub
Sub uselect()
Union(Sheet1.Range("A1:D4"), Sheet1.Range("D3:H8")).Select '选择不连续区域
End Sub
Sub urange()
Sheet1.Activate
Sheet1.UsedRange.Select '所有使用中的区域
End Sub
Sub crang()
Sheet1.Range("A1").CurrentRegion.Select '选择连续区域
End Sub
Sub crang2()
Sheet1.Range("A1").Offset(1, 5).Value = 10 'offset(x,y) 偏移,
'Range("A1").Offset(1, 5) 表示以A1单元格为基准,向下偏移1行,向右偏移5列
'Range("C3").Offset(-1, -1), offset可以向上,向前偏移,但要注意,不要超过A1
End Sub
