如何在宏链接的超链接旁边的 select 单元格

Question

我在单元格A1中有一个超链接，其中有一个链接到它的代码

单元格 B1->E1 中填充了数据

我想要一个代码，一旦单击超链接，它将剪切单元格 B1->E1

我想将这些粘贴到不同的选项卡中，但我熟悉这部分代码

这是一张大表，所以我不想专门剪切单元格 B1->E1，我想剪切超链接旁边的单元格，即点击过的行。

抱歉，如果我的解释令人困惑，哈哈，希望这能说明我正在尝试做的事情；

A                   B            C              D           E  
hyperlink          value        value          value      value 

hyperlink          value        value          value      value 

hyperlink          value        value          value      value 

hyperlink          value        value          value      value

我试过的代码

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    Dim r As Range 
    Set r = Range(Target.SubAddress) 
    Range("B7:E7").Select 
    Selection.Cut 
    Sheets("Wash Bay").Select 
    Worksheets("Wash Bay").Range("B6").Activate 
    ActiveSheet.Paste 
End Sub

Answer 1

您可以使用：

r.Offset(0, 1).Resize(1, 4).Cut Sheets("Wash Bay").Range("B6")

请注意，您可以使用Cut的Destination参数来指定粘贴剪切单元格的位置。 无需选择/激活。

Answer 2

您（几乎）获得了对所需范围的引用（在r中），然后不使用它。

而且，您不需要任何Select / 无论如何Activate东西（有关有用的提示，请参见此处）

您的代码可能很简单（假设工作表“Wash Bay”与代码位于同一工作簿中）：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim r As Range
    Set r = Range(Target.SubAddress).Offset(0, 1).Resize(1, 4)
    r.Cut ThisWorkbook.Worksheets("Wash Bay").Range("B6")
End Sub