Excel 基于非统一数据范围在两张图纸之间链接数据

我试图在一张工作表上获取一个非统一的数据范围，并将其链接到同一工作簿中的另一张工作表（单元格将具有“=Sheet1！A1”，而不是硬编码的值）

我不能使用just.UsedRange，因为我的选择中有很多空单元格，我不想链接到其他工作表

这是到目前为止我的代码，但我得到一个错误，说你不能使用。复制这种选择。有人能建议一下解决这个问题的方法吗。多谢各位

Sub test()
Application.ScreenUpdating = False


ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Copy
With Sheets("Sheet2")
    .Activate
    .Range("A1").Select
    ActiveSheet.Paste Link:=True
End With


Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

---

您可以逐个单元格迭代

SpecialCells

范围，并根据源单元格地址编写链接，如下所示

Sub test()
    Dim cl As Range
    Dim sh As Worksheet
    Dim ShName As String
    Dim OldCalc As XlCalculation

    Application.ScreenUpdating = False
    OldCalc = Application.Calculation
    Application.Calculation = xlCalculationManual

    Set sh = Worksheets("Sheet2")
    sh.Cells.Clear '<-- Optional
    ShName = "='" & ActiveSheet.Name & "'!"
    For Each cl In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
        sh.Range(cl.Address).Formula = ShName & cl.Address
    Next

    Application.ScreenUpdating = True
    Application.Calculation = OldCalc
End Sub

子测试（）
Dim cl As范围
将sh设置为工作表
将名称设置为字符串
作为XLC计算的Dim OldCalc
Application.ScreenUpdating=False
OldCalc=应用程序计算
Application.Calculation=xlCalculationManual
设置sh=工作表（“表2”）
SH Cel.ScRe:“你想复制所有的值域，而留下空白的吗？信息是如何安排在原版工作簿中的？”都在A栏吗？多列？一行，多行？你能举一个小例子，说明数据在原始表格中是什么样的，以及你希望它在成品中是什么样的吗？我不知道如何在这里附加excel文件..找不到附加它的方法，所以这里是下一个最好的方法..数据在5-6列中，向下100行左右。有多个表的表标题由空行分隔。我希望空白行/单元格不链接到新的表。因此，在创建新的系列之后，您是否试图将表与值合并？不尝试合并表。只想开始粘贴低几行的链接，将单元格留空。。。。我刚刚得到了以下代码的帮助：[code]Sub test56（）Dim area，myRng作为范围集myRng=ActiveSheet.UsedRange.SpecialCells（xlCellTypeConstants）和myRng For I=1到.Areas.Count.Areas（I）.复制工作表（“Sheet6”）。选择范围（.Areas（I）.单元格（1，1）.Address）.Select ActiveSheet.Paste Link:=True Next End With End Sub[/code]感谢您花时间查看我的问题。错误处理应始终与
特殊单元格一起使用。