VBA入门到进阶常用知识代码总结12

第12集 特殊单元格定位
33、 已使用的单元格区域
Sub d1()
Sheets(“sheet2”).UsedRange.Select
End Sub
34、 某单元格所在的单元格区域
Sub d2()
Range(“b8”).CurrentRegion.Select
End Sub
35、 两个单元格区域共同的区域
Sub d3()
Intersect(Columns(“b:c”), Rows(“3:5”)).Select
End Sub
36、 调用定位条件选取特殊单元格
Sub d4()
Range(“A1:A6”).SpecialCells(xlCellTypeBlanks).Select
End Sub
37、 端点单元格
Sub d5()
Range(“a65536”).End(xlUp).Offset(1, 0) = 1000
End Sub

Sub d6()
Range(Range(“b6”), Range(“b6”).End(xlToRight)).Select
End Sub
实例：

Sub t()
Dim x As Integer
For x = 2 To 6
If Cells(x, 2) > 0 Then
Cells(x, “N”) = “1月”
Else
Cells(x, “N”) = Range(“b” & x).End(xlToRight).Column - 1 & “月”
End If
Next x
End Sub