Question

我不确定这里发生了什么。从高层次来看，这就是我想要实现的目标：

在名为“LH-to-HousingL1L4 Fastener”的工作表中，找到包含“LCID的最小值”文本的单元格
使用上面（1）的结果向下偏移2个单元格，向左边的1个单元格开始我的选择
使用Selection.End(xlDown)).Select方法从上面（2）中的单元格中选择一直到数据的末尾（没有空格/间隙）
复制上面（3）中选择的范围
在另一个名为“SuperMargins”的工作表上将（4）的链接粘贴到从“B3783”开始向下的范围

当我运行代码时，几乎可以正常工作，但是粘贴的链接不是完全限定的。也就是说他们看起来像这样：

=AX27

而不是：

='LH-to-HousingL1L4 Fastener'!AX24

如何获得所需的行为？

感谢阅读！

Option Explicit
Sub CopyFastenerMargins()

Dim nameRng As Range
Dim r As Range

Set r = Worksheets("LH-to-HousingL1L4 Fastener").Cells.Find(What:="Minimums by LCID", Lookat:=xlWhole, MatchCase:=True)
Set r = r.Offset(2, -1)
Dim s As String
s = r.Address
With Worksheets("LH-to-HousingL1L4 Fastener")
    Range(s).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
End With

Sheets("SuperMargins").Select
Range("B3783").Select
ActiveSheet.Paste Link:=True

End Sub

工作表中的Excel VBA复制/粘贴链接

0 个答案: