Excel 字典循环和应用程序定义或对象定义错误

由于字典包含列地址，我在字典中循环试图转到指定的单元格时出错。这是一个小回环-

循环浏览任何有注释的单元格（仅限顶行！！）

将该列和注释文本存储在dictionary对象中

循环浏览其余行，只转到与第一行注释相同列中的单元格。然后，此信息将发送到另一个工作表

例如：

---

出现此错误是因为需要将整数传递给

单元格（“2”，列）

，而不是字符串。您应该传递包含

Long

或

Long

的

变量

Dim col As Variant

或

然后


这里也有一个错误

Public Property Let allinaBuild(Value As Worksheet)
    Set targWs = Value ' <== was   Set targWs = allinaBuild
End Property

公共属性Let allinaBuild（值为工作表）
为keyValue.keys中的每个元素设置targWs=Value？设置值为对象的属性时，应使用
公共属性集
，而不是
公共属性Let
。不知道这是否是问题的一部分。此外，在引用范围时，最好始终使用特定工作表的引用对其进行限定，而不是依赖于您认为当时的活动工作表。
单元格（2，col）。选择不带引号的
。欢迎使用。另外，由于您是StackOverflow的新手，我想通知您，您可以通过勾选答案旁边的勾号来选择好答案并接受对您帮助最大的答案。在这个网站上，一次投票或一个被接受的答案都算作“谢谢”。谢谢——我会试试看。另一双眼睛很有帮助
Dim col As Variant

Dim col As Long

Cells(2, col).Select

Public Property Let allinaBuild(Value As Worksheet)
    Set targWs = Value ' <== was   Set targWs = allinaBuild
End Property