VBA脚本中的excel命名范围

Question

我在用

Worksheets("Named_ranges").Range("A1").ListNames

在Named_ranges表中写入命名范围的列表，但结果类似于

is_pp4 = Checklist!$D$28 

所以要显示=Checklist!$D$28 ，我需要按F2，然后按Enter。 我已经尝试按照其他答案中的建议将=替换为=，并且可以从Excel界面执行，但必须使用VBA脚本自动完成，并且从那里搜索和替换方法无法解决问题。 “计算”选项设置为“自动”。

Answer 1

这应该按照您的描述进行：

With Worksheets("Named_ranges").Range("A1")
    .ListNames
    .CurrentRegion.Numberformat = "General"
    .CurrentRegion.Replace "=", "=", xlPart
End With

编辑：我认为ListNames可能存在计时问题，因此循环可能会更好：

Dim n As Long
Dim arrData()
With ActiveWorkbook.Names
ReDim arrData(1 To .Count, 1 To 2)
For n = 1 To .Count
    arrData(n, 1) = .Item(n).Name
    arrData(n, 2) = .Item(n).RefersTo
Next n
End With
Worksheets("Named_ranges").Range("A1").Resize(UBound(arrData, 1), 2).Value = arrData