说我有一个dim range B2:E7
. 如何找出活动单元格相对于范围的坐标?
问问题
5864 次
1 回答
0
如果您想获得从活动单元格到范围的距离,这将起作用:
Sub colOffset()
Dim testRange As Range
Dim colLeft As Integer
Dim colRight As Integer
Set testRange = Range("B2:E7")
colLeft = testRange.Column
colRight = testRange.Column + testRange.Columns.Count - 1
MsgBox "column-offset to first column: " & ActiveCell.Column - colLeft
MsgBox "column-offset to last column: " & ActiveCell.Column - colRight
End Sub
用行替换列以获得相同的行。
于 2013-10-29T07:33:03.860 回答