如何将Excel中动态结构化引用转为固定值以生成子表？

直接通过单元格值赋值的方式替代复制粘贴，既能固定动态引用的数值，又能让自动化流程更顺畅，以下是优化后的代码：

Sub GenerateStaticSubTable()
    ' 定义原数据区域（替换成你实际的结构化引用或单元格区域）
    Dim sourceRange As Range
    Set sourceRange = ThisWorkbook.Worksheets("原表名称").Range("Sample_range")
    
    ' 添加新工作表作为子表
    Dim subSheet As Worksheet
    Set subSheet = ThisWorkbook.Worksheets.Add
    
    ' 直接将原区域的值赋值到新工作表，跳过复制粘贴
    subSheet.Range("A1").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
    
    ' 可选：给子表命名
    subSheet.Name = "静态子表"
End Sub

关键说明 #

• 摒弃Selection依赖：原代码靠选中状态执行操作，容易因误操作出错，直接指定工作表和区域更稳定
• 直接赋值.Value：这是效率最高的方式，比复制粘贴快，还不会触发剪贴板相关问题
• 灵活提取特定列：如果不需要整个Sample_range，只想提取指定列（比如第2、4列），可以修改源区域定义：

  ' 示例：提取原区域的第2列和第4列
  Set sourceRange = Union(ThisWorkbook.Worksheets("原表名称").Range("Sample_range").Columns(2), _
                          ThisWorkbook.Worksheets("原表名称").Range("Sample_range").Columns(4))
  

内容的提问来源于stack exchange，提问作者Jan Tásler