我有一个包含 3 个工作表的工作簿。一个工作表将具有输入值(目前未创建且此问题不需要),一个具有多个“模板”或“源”表的工作表,最后一个工作表具有 4 个格式化的“目标”表(是否为空)没关系)。每个模板表有 3 列,其中一列标识后两列中的值是什么。值列中包含公式,并且每个单元格都已命名。公式使用单元格名称而不是单元格地址(例如 MyData1 而不是 C2)。
我正在尝试将模板复制到目标表中,同时还将单元格名称从源复制到目标中,或者根据源单元格名称在目标表中创建名称。我在下面的代码中通过在名称中使用“基”来创建目标名称,该名称将根据它被复制到的目标表而改变。我的示例表在所有单元格名称(例如 Num0_MyData1、Num0_SomeOtherData2 等)中都有“Num0_”作为基础。复制完成后,代码将通过查看目标名称(和地址)来命名单元格,用新的基础替换名称的基础,只需添加一些目标表,然后替换工作表地址中的名字。
这是我需要帮助的地方。仅当我的模板和目标使用其透视表的相同单元格地址时,我更改该地址的方式才有效。他们不是。(例如,Template1 表具有 B2 到 C10 的值单元格,每个都命名为 B2 到 C10,而我的副本目标表可能是 F52 到 G60)。底线我需要弄清楚如何使用模板复制这些名称或通过执行诸如替换之类的操作来动态命名单元格,其中我根据我的目标表增加地址值#...请记住我有 4 个目标表是静态的,我只会复制到那些区域。我是 VBA 新手,因此感谢您提供任何建议或帮助。
注意:表格的复制按我的意愿工作。它甚至命名单元格(如果模板和目标表具有相同的本地工作表单元格地址(例如 C2)
'Declare Module level variables
'Variables for target tables are defined in sub's for each target table.
Dim cellName As Name
Dim newName As String
Dim newAddress As String
Dim newSheetVar
Dim oldSheetVar
Dim oldNameVar
Dim srcTable1
Sub copyTables()
newSheetVar = "TestSheet"
oldSheetVar = "Templates"
oldNameVar = "Num0_"
srcTable1 = "TestTableTemplate"
'Call sub functions to copy tables, name cells and update functions.
copySrc1Table
copySrc2Table
End Sub
'****there is another sub identical to this one below for copySrc2Table.
Sub copySrc1Table()
newNameVar = "Num1_"
trgTable1 = "SourceEnvTable1"
Sheets(oldSheetVar).Select
Range(srcTable1).Select
Selection.Copy
For Each cellName In ActiveWorkbook.Names
'Find all names with common value
If cellName.Name Like oldNameVar & "*" Then
'Replace the common value with the update value you need
newName = Replace(cellName.Name, oldNameVar, newNameVar)
newAddress = Replace(cellName.RefersTo, oldSheetVar, newSheetVar)
'Edit the name of the name. This will change any formulas using this name as well
ActiveWorkbook.Names.Add Name:=newName, RefersTo:=newAddress
End If
Next cellName
Sheets(newSheetVar).Select
Range(trgTable1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub