创建从偏移量的范围

Question

我需要选择与某个单元格相关的范围。

这是我迄今为止 - 用户双击单元格：

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

细胞点击用户，然后在Target可作为Range。

然后我需要选择一个新的Range相对于Target的位置。我曾尝试下面的代码：

dataSheet.Range(Target.Offset(2, 2)), Target.Offset(15, bHeight)).Select 

我已经尝试了很多不同的方式使用.Cells，.Address阅读别人的帖子，但似乎无法得到它的工作。我想我正在混淆数据类型？有任何想法吗？

Answer 1

您可以结合Offset和Resize来实现您的结果。首先使用Offset从Target获取位移，然后使用Resize将范围增加到所需的行数和列数。以下是示例代码：

Option Explicit 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

    Dim rngNew As Range 
    Dim bHeight As Integer 

    bHeight = 3 
    Set rngNew = Target.Offset(2, 2).Resize(13, bHeight) 

    rngNew.Select 

End Sub