Excel VBA问题：判断用户不在数组时隐藏列出现类型不匹配错误

你遇到的类型不匹配错误，根源在于直接将单个文本字符串（Application.UserName）和数组（userlist）做相等性对比——VBA不支持这种跨类型的直接比较。

下面是两种正确的实现方式：

方法一：遍历数组检查（直观易懂） #

Dim userlist As Variant
Dim isAuthorized As Boolean
Dim i As Integer

userlist = Array("user1", "user2", "user3", "user4")
isAuthorized = False

' 遍历数组，确认当前用户是否在授权列表内
For i = LBound(userlist) To UBound(userlist)
    If Application.UserName = userlist(i) Then
        isAuthorized = True
        Exit For ' 找到匹配项后立即退出循环，提升效率
    End If
Next i

' 若用户不在列表中，隐藏O:P列
If Not isAuthorized Then
    Worksheets("Master").Range("O:P").EntireColumn.Hidden = True
End If

方法二：用Match函数实现（代码更简洁） #

利用工作表函数Match判断用户是否在数组中，需要添加错误处理避免找不到匹配项时的报错：

Dim userlist As Variant
Dim isAuthorized As Boolean

userlist = Array("user1", "user2", "user3", "user4")

On Error Resume Next ' 临时捕获Match函数的未匹配错误
isAuthorized = Not IsError(WorksheetFunction.Match(Application.UserName, userlist, 0))
On Error GoTo 0 ' 恢复默认错误处理机制

If Not isAuthorized Then
    Worksheets("Master").Range("O:P").EntireColumn.Hidden = True
End If

两种方案都能正确完成需求：当当前用户名不在指定数组中时，隐藏O:P列，同时避免了原代码的类型不匹配问题。

内容的提问来源于stack exchange，提问作者Mohamad Noruznia