将细胞转化为变体数组

时间:2018-10-02 17:58:12

标签: excel vba

我需要将一些单元格值存储到变量数组中。 (我在每个循环的a中都使用此数组,因此它必须是变体)以下代码给出了类型不匹配错误。有人可以告诉我该怎么做吗?预先感谢。

Public Sub MainSub()
    Dim ws_names() As Variant
    ws_names = Worksheets("Lookup").Range("K3:K5")
    ShowCertainWorksheets ws_names
End Sub

Public Sub ShowCertainWorksheets(ByVal ws_names As Variant)
    Dim ws_name As Variant
    For Each ws_name In ws_names
        ThisWorkbook.Worksheets(ws_name).Visible = True
    Next ws_name
End Sub

Worksheets(“ Lookup”)。Range(“ K3:K5”)仅包含文件中存在的工作表名称,因此没有问题...

0 个答案:

没有答案