基于单元格值取消隐藏Excel行

我正在尝试在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中的值使用数据validation从表单中的其他位置查找。

谢谢！

Answer 1

如果你说B, C, D ，那么你的意思是列 ，而不是行 。

你可以使用这个：

 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