zhendeaini

一点思路：
Sub 隐藏()
    Range("A1:D20").Select  '这个区域可根据实际确定
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.EntireRow.Hidden = True
End Sub



是否符合要求？

zhendeaini

代入以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Application.ScreenUpdating = False
  Application.DisplayAlerts = False
    Rows("2:69").Select
     Selection.EntireRow.Hidden = False
      Range("A1:D69").Select
     Selection.SpecialCells(xlCellTypeFormulas, 22).Select
    Selection.EntireRow.Hidden = True
    Sheet1.[A1].Select
   Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End If
End Sub

应该是这样的效果。

zhendeaini

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then   ‘当A1数据变化时
Application.ScreenUpdating = False   'Excel停止刷新，防止屏幕闪烁，目的是加快代码执行速度
  Application.DisplayAlerts = False     'Excel不显示警告和消息提示框
    Rows("2:69").Select                       '选择第2-69行，提示：这个你可以根据实际修改
     Selection.EntireRow.Hidden = False         '恢复第2-69行所隐藏的行，提示：这个你可以根据实际修改
      Range("A1:D69").Select              '选取A1：D69区域，提示：这个你可以根据实际修改
     Selection.SpecialCells(xlCellTypeFormulas, 22).Select      ‘将公式中逻辑和错误类型选择
    Selection.EntireRow.Hidden = True           '隐藏所中上一行代码的行
    Sheet1.[A1].Select                        ’以上操作后定位A1单元格
   Application.ScreenUpdating = True 'Excel启用刷新，代码执行后恢复
   Application.DisplayAlerts = True    'Excel显示警告和消息提示框
End If                                               '结束
End Sub

zhendeaini

如果可以你上传附件说明。不需要真实数据。

zhendeaini

稍微改动下：
A7=IF(A1=1,Sheet1!A1,FALSE)，采用逻辑关系。不然的话都为文本，系统无法识别。

zhendeaini

可以用如下代码：
If sheet1.Target.Row = 1 And sheet1.Target.Column = 1
如果你单纯是要Sheet2也随Sheet1表的A1的值变化而变化，可以直接在原来的代码加上（比如）： Sheet2.[A1]=Sheet1.[A1]←根据实际需要修改。

zhendeaini

要不你还是上传附件吧，这样描述，不知要达到怎样的效果。

zhendeaini

简单修改下，请参考：

zhendeaini

客气，互相交流[82]

zhendeaini

呵呵，你太追求完美了，这样会很累的哦，好吧，再次修改了下。

zhendeaini

不要再虐我了，我本菜鸟一枚。[25]