【发布时间】:2017-02-14 16:57:32
【问题描述】:
我正在尝试在选择列时找到问题的解决方案 =-1
首先我选择单元格A1,然后应用此代码。
Sub exc()
ActiveCell.Offset(-1, 0).Select
If .Offset(-1, 0).Row < 1 Then
ActiveCell.Offset(1, 0).Select
End If
End Sub
但问题没有解决。
感谢您的帮助。
【问题讨论】:
我正在尝试在选择列时找到问题的解决方案 =-1
首先我选择单元格A1,然后应用此代码。
Sub exc()
ActiveCell.Offset(-1, 0).Select
If .Offset(-1, 0).Row < 1 Then
ActiveCell.Offset(1, 0).Select
End If
End Sub
但问题没有解决。
感谢您的帮助。
【问题讨论】:
你需要在做偏移之前进行测试:
Sub exc()
IF Activecell.Row > 1 then
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub
【讨论】: