[英]Named Range Duplication/ Formula Altering
我目前正在使用命名范围的标签进行工作。 它们都与类1相关联。我想重复这些单元格两次,为类2和3创建相同的列。除了为下两个类附加的_2 / _3之外,命名范围应保持相同。 我还需要在每列中更改公式,但要包含正确的后缀(_2 / _3)。
这是一个简化版本,可以更好地解释我要执行的操作:
**Class 1**
Lives
Age
Adjust
Claim
Risk
**Class1 Class2 Class3**
Lives Lives_2 Lives_3
Age Age_2 Age_3
Adjust Adjust_2 Adjust_3
Claim Claim_2 Claim_3
Risk Risk_2 Risk_3
这些代表单元名称 ; 它们还包含在每个类内链接的公式。 已经完成的1类区域有9列和120行。 我希望第二类填充第10列至第18列,第三类填充下9列。这是我正在尝试尝试更改名称的代码,但是我没有成功:
Sub ChangeNames()
Dim OldName As String
Dim NewName2 As String
Dim NewName3 As String
Dim rng As Range
For r = 1 To 127
For c = 1 To 10
If IsNamedRange(Cells(r, 1 + c)) Then
Set rng = Sheets("Medical").Cells(r, 1 + c)
OldName = rng.Name
NewName2 = OldName & "_2"
NewName3 = OldName & "_3"
Sheets("Medical").Cells(r, 11 + c).Name = NewName2
Sheets("Medical").Cells(r, 21 + c).Name = NewName3
End If
Next c
Next r
End Sub
Function IsNamedRange(MyRange) As Boolean
Dim vntName As Variant
On Error Resume Next
IsNamedRange = MyRange.Name <> ""
Exit Function
End Function
VBA是否可以? 任何帮助将非常感激!
Sub names()将其作为字符串Dim替换为OldName作为字符串Dim替换为NewName2作为字符串的Dim替换为NewName3作为字符串的Dim x作为整数将Dim y作为整数
For Each this In Workbook.names
If Range(this).Worksheet = "Medical" Then
NewName2 = Range(this).Name & "_2"
NewName3 = Range(this).Name & "_3"
x = Range(this).Column
y = Range(this).Row
Sheets("Medical").Cells(x, 10 + y).Name = NewName2
Sheets("Medical").Cells(x, 20 + y).Name = NewName3
End If
Next this
结束子
试试看这段代码,您可能需要对偏移量进行一些小的调整或调整,以适合您的确切数据集,但是我尽可能地精确地定义了它。
Sub ChangeNames()
Dim rName As Name
For Each rName In ThisWorkbook.Names
If rName.RefersToRange.Parent.Name = "Medical" Then
Select Case rName.RefersToRange.Column
Case 2 To 10
For i = 1 To 2
Dim sName As String
sName = "=" & rName.RefersToRange.Offset(, i * 10).Parent.Name
sName = sName & "!" & rName.RefersToRange.Offset(, i * 10).Address
ThisWorkbook.Names.Add rName.Name.Name & "_" & i + 1, RefersTo:=sName
Next
End Select
End If
Next
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.