为什么添加类型不匹配，即使我施放？

我正在执行空白行分隔的两个数据块之间的操作，我需要获取第二个块的行。我通过使用'Selection.End（xldown）'选择数据的顶部数据块，然后从中取出数据行并添加两个数据来完成此操作。由于总是有一个单独的空行来分隔这些块，所以这应该起作用，但是在我将两行添加到该行的行上，尽管事实上我在添加之前使用CInt投射行，但我得到了类型不匹配。有问题的代码是为什么添加类型不匹配，即使我施放？

Dim col 
col = Split(Selection.Address, "$")(1) 
Dim tmp as Integer 
tmp = CInt(col) + 2

最后一行总是会导致类型不匹配错误。这是为什么？我在尝试什么错？最重要的是，我该如何解决它？

我找不到任何人遇到这个问题，除非他们从工作表中提取数据，看起来像是一组不同的情况。

来源

2015-07-21 VBAnoob

检查，看看有什么回报山坳......无论你怎么投是很难，它永远不会是一个Int – sous2817

col返回列名称。谢谢，那应该是问题了。是否有一个内置函数可以将名称更改为数字，还是只需要编写一个？ – VBAnoob

给我的答案一个旋转，看看它是否让你接近... – sous2817

您设置的方式，您将返回地址的字符表示形式。试试这个：

col = Selection.Column

应返回的数字位置（在我有限的测试它至少）

来源

2015-07-21 19:29:47 sous2817

这是它。再次感谢。 – VBAnoob

为什么添加类型不匹配，即使我施放？

回答

相关问题