根据单元格值取消隐藏Excel行

Question

我试图在Excel 2011 For Mac上编写VBA脚本，但取得的成功有限。

根据单元格A1中的值，脚本需要取消隐藏下面的行。

If A1 = 1, it needs to unhide row B.
If A1 = 2, it needs to unhide rows B and C.
If A1 = 3, it needs to unhide rows B, C and D.

...依此类推，最大A1值为8。

A1中的值使用数据验证来从工作表上其他位置的列表中查找。

谢谢！

Answer 1

如果您说B, C, D ，似乎是说Columns而不是Rows 。

您可以使用此：

Range("B1").Resize(1, Range("A1")).EntireColumn.Hidden = False

Answer 2

Select Case Range("A1").Value

   Case 1
      Range("A2").EntireRow.hidden = false      
   Case 2
      Range("A2,A3").EntireRow.hidden = false

   '...   

   Case Else
      MsgBox("Invalid number in cell A1")

End Select

在这种情况下，A2将引用第2行，A2，A3将是2和3，依此类推，等等

编辑：

根据您的评论，也许像这样会更好

Dim rng as Range
Dim val as Integer

val = Range("AE25").Value
if (val >= 1) then
  set rng = Range("A26:A27").Resize(val,0)
  rng.EntireRow.Hidden = false
end if