我目前在宏中有问题，我正在为Excel 2013编写有关读取隐藏列的宏。我正在尝试将A列用作一行唯一键，以允许我快速开发基于A列中的键值隐藏和显示一行的逻辑。当出于视觉目的手动将A列隐藏在工作表中时，无法从该列读取内容，也就是我的代码返回错误。如果我显示该列，则代码将清晰执行。在此先感谢您的帮助！
Public Sub hideRow(findId As String, sheetName As String)
Dim lastRow As Long
Dim foundCell As Range
Dim hideThisRowNum As Integer
'Get Last Row
lastRow = Worksheets(sheetName).Range("A" & Rows.Count).End(xlUp).Row
'Find ID
With Worksheets(sheetName).Range("a1:a1000") 'This needs to be A1 to AxlDown
Set foundCell = Worksheets(sheetName).Range("A1:A" & lastRow).Find(What:=findId, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
End With
'Get Row # to Hide
hideThisRowNum = Val(foundCell.Row)
'Hide row
Worksheets(sheetName).Rows(hideThisRowNum).Hidden = True
'Set Add To Action Plan = No
Worksheets(sheetName).Range("G" & hideThisRowNum).Value = "No"
End Sub
问题出在.Find（）调用中。使用LookIn:=xlValues不会找到隐藏的单元格。将其更改为LookIn:=xlFormulas，它应该可以工作。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句