0

说我有一个dim range B2:E7. 如何找出活动单元格相对于范围的坐标?

4

1 回答 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 回答