Question

我正在尝试将PDF中有关怪物的信息粘贴到Excel中的一组单元格中，并以某种方式设置其格式。这些怪物具有各种能力，例如抵抗力，脆弱性和抗伤害能力。如果他们没有他们，那么什么也没有列出。我有一个宏，用于在单元格（即电阻）中搜索关键字并将其输出到特定的单元格。如果未列出该关键字，则将引发错误。有一个iferror公式，如果没有信息，它不会返回任何信息，但我不知道它如何搜索多个单元格。

当搜索词出现在单元格中时，我的代码可以正常工作，但是当缺少搜索单元格时，我的代码就会出错。

Const Challenge As String = "Challenge"

Dim CR_Ratting As String

CR_Ratting = Range("b1:b45").Find(Challenge, , xlValues, xlPart)

Range("i16") = CR_Ratting

何时|挑战1/2（100 XP）|输入到B1到B45范围内的单元格中，它将把单元格的内容放入I16中。如果在该范围内未找到“挑战”一词，则会提示错误。

Answer 1

您需要这样的东西：

Const Challenge As String = "Challenge"

Dim CR_Ratting As Range '<< not String

Set CR_Ratting = Range("b1:b45").Find(Challenge, , xlValues, xlPart)

If not CR_Ratting Is Nothing Then Range("i16") = CR_Ratting '<< test before assigning value

如果找不到文本，则返回无

1 个答案: