1

使用下面的代码,我试图推断存在定义值的列右侧的列字母。例如,如果 D1 = 'Postcode',我想insert_col等于 'E'。

如果 'Postcode' 中存在值,则此方法有效title_range,但如果不存在,我会在最后一行出现错误(类型不匹配)。

根据 Match 的文档,如果查找值在范围内不存在,则返回 Excel 错误“N/A”,但检查xlErrNA退出函数不起作用。

' Work out the column to insert
insert_col_pos = Application.Match("Postcode", title_range, 0)
If insert_col_pos = xlErrNA Then Exit Function ' Exit if the column to insert next to does not exist
insert_col = GetInsertCol(insert_col_pos + 1)

有没有人知道我做错了什么?谢谢。

4

1 回答 1

2

你想要的是

If insert_col_pos = CVErr(xlErrNA) Then Exit Sub   

前提insert_col_posDim'ed 为Variant

于 2012-09-28T12:07:46.857 回答