如何将链接粘贴到工作表？

【问题标题】：How to paste a link to a worksheet?如何将链接粘贴到工作表？
【发布时间】：2023-03-21 02:15:01
【问题描述】：

所有变量均已正确定义。这一直有效，直到它到达显示的最终语句，然后它说

“Worksheet 类的粘贴方法失败”。

Set TargetSheet = ActiveSheet
For Each cell In TargetSheet.Columns(1).Cells
    If IsEmpty(cell) = True Then FirstRow = cell.Row: Exit For
Next cell
LastRow = FirstRow + 6

Sheets(ClientName).Range("A3:Q9").Copy

With Sheets("4 Policies")
    .Activate
    .Range("A" & FirstRow).Select
    ActiveSheet.Paste Link:=True
End With

【问题讨论】：

标签： excel vba hyperlink paste

【解决方案1】：

试试这个

Set TargetSheet = ActiveSheet
For Each cell In TargetSheet.Columns(1).Cells
  If IsEmpty(cell) = True Then FirstRow = cell.Row: Exit For
Next cell
LastRow = FirstRow + 6

Sheets("4 Policies").Range("A" & FirstRow).Resize(7, 17).Formula = "=" & ClientName & "!A3"

如果您尝试在 A 列中找到最后使用的单元格下方的单元格，您的代码将变为

FirstRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheets("4 Policies").Range("A" & FirstRow).Resize(7, 17).Formula = "=" & ClientName & "!A3"

或者，如果活动工作表是“4 个策略”

ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(7, 17).Formula = "=" & ClientName & "!A3"

【讨论】：

谢谢 - 我会试一试。