时间戳

首页 > 解决方案 > 复制/粘贴链接

excel - 复制/粘贴链接

问题描述

我需要复制/粘贴带有链接的范围。

我知道它与 Link:=True 相关，但我不知道如何修改我的代码以将其放入。

Sheets("Remboursement").Select 'select the sheet to copy
Dim maplage As Range ' set range
Set maplage = Range("B2:E140").SpecialCells(xlCellTypeVisible) 
maplage.Copy 'copy only visible cells
With Sheets("Controle")
        .Activate ' activate the destination sheet
        .Range("T3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 'paste the values
                              SkipBlanks:=False, Transpose:=False
End With
Set maplage = Nothing

我试过：

.Range("T3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                              SkipBlanks:=False, Transpose:=False

但像往常一样，它不起作用。这是我在 1 个月内制作的长代码的一部分，所以我有点害怕更改它，这就是为什么我先问你的原因。

标签： excelvba

解决方案

Range.PasteSpecial没有Link参数。

您正在寻找Worksheet.Paste：

根据文档，这是您确实需要的少数情况之一...Select

如果Link指定了该参数（ ），则Destination不能使用该参数。...如果不指定该Destination参数，则必须先选择目标范围，然后才能使用该方法。

With Sheets("Controle")
     .Activate
     .Range("T3").Select
     .Paste Link:=True

推荐阅读