-1
我有问题使这个代码工作 - 任何帮助非常感谢!我知道这个问题是关于第一行...我有一个Private Sub Worksheet_Change(ByVal Target As Range)
上面这个代码来解决我需要VBA代码的其他元素。VBA代码隐藏和取消隐藏多张纸上的空行
Private Sub HideAndUnhideRowsInOtherWorksheet()
For Each c In Worksheets("FlatStage").Range("A7:A32")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
For Each c In Worksheets("Efficiency").Range("A7:A32")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
For Each c In Worksheets("DayRate").Range("A7:A10,A14:A22,A25:A25,A28:A39")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
For Each c In Worksheets("AddServ").Range ("A6:A8,A10:A11,A13:A17")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
For Each c In Worksheets("Enhancement").Range("A6:A7")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
End Sub
是我们应该去猜测什么问题? – jsotola