我正在处理一个电子表格,该电子表格正在从Capital IQ(CIQ(中提取许多数据。我想将所有这些公式进行硬码。如果没有CIQ插件的人尝试查看电子表格,那么他们所看到的只是#Name和#Value。我不想将所有单元格进行硬编码,因为其中一些单元格很有用,可以看到它们如何链接到其他选项卡。我正在寻找仅编码包含CIQ公式的单元格。感谢您的帮助!miha
未经移动的测试
Sub find()
Dim c as range
For each c in range(“A1:B100”).Cells
On Error Resume Next
If application.worksheetFunction. Search(c.value,”CIQ”) > 0 then c = c.value
Next c
End sub