我正在尝试根据单元格的名称对象将单元格的值设置为“ NA”。
步骤1:在名为FHLBCL的工作表中获取带标签的FHLB中的单元格的定义名称-可以正常工作。
步骤2 根据If Left(nm.Name, 5) = "FHLB_" Then Cell.Value="NA"
将单元格的值设置为“ NA”。这是导致命名范围中的每个单元格都获得“ NA”值的步骤,我不知道为什么。
代码:
Sub NamedRanges()
Dim nm As Name
Dim cell As Range
For Each nm In ActiveWorkbook.Names
If Left(nm.RefersTo, 8) = "=FHLBCL!" Then
For Each cell In [CL_AllCells]
If Left(nm.Name, 5) = "FHLB_" Then
cell.Value = "NA"
Debug.Print UCase("Cell Name") & ": " & nm.Name & " and " & UCase("Refers to Cell") & ": " & nm.RefersTo
End If
Next cell
End If
Next nm
End Sub
谢谢您的帮助。