处理数据时,常常会出现所要获取的单元格信息里没有统一的关键字,而在它们上方或者下方的某个位置会有规律出现有统一关键字的字符可以定位,我们可以利用以下代码:
Sub 选中上一格()
Selection.Offset(-1, 0).Select
End Sub
Sub 选中下一格()
Selection.Offset(2, 0).Select
End Sub
Sub 选中上一格和当前单元格()
Dim a As Range
Set a = Union(Selection, Selection.Offset(-1, 0))
a.Select
End Sub