求助VBA按钮隐藏特定字符对应的行和列

ICEGo

求教大神帮助：
1.按PMP按钮时候PME对应的行和列自动隐藏
2.按PME按钮的时候PMP对应的行和列自动隐藏
3.增加一个对比按钮的时候，按一下全部显示

3190496160

Sub 隐藏pme()
    Dim r&, i&
    r = Cells(Rows.Count, 1).End(3).Row
    y = Cells(2, Columns.Count).End(xlToLeft).Column
    For i = 2 To r Step 1
      If Cells(i, 1) = "PME" Then
        Rows(i).EntireRow.Hidden = True
      End If
    Next
    For i = 2 To r Step 1
      If Cells(2, i) = "PME" Then
        Columns(i).EntireColumn.Hidden = True
      End If
    Next
End Sub

3190496160

Sub 隐藏pme()
    Dim r&, i&
    r = Cells(Rows.Count, 1).End(3).Row
    Rows("2:" & r).EntireRow.Hidden = False
    y = Cells(2, Columns.Count).End(xlToLeft).Column
    lh = Replace(Cells(1, y).Address(0, 0), "1", "")
    Columns("a:" & lh).EntireColumn.Hidden = False
    For i = 2 To r Step 1
      If Cells(i, 1) = "PME" Then
        Rows(i).EntireRow.Hidden = True
      End If
    Next
    For i = 2 To r Step 1
      If Cells(2, i) = "PME" Then
        Columns(i).EntireColumn.Hidden = True
      End If
    Next
End Sub
Sub 隐藏pmp()
    Dim r&, i&
    r = Cells(Rows.Count, 1).End(3).Row
    y = Cells(2, Columns.Count).End(xlToLeft).Column
    Rows("2:" & r).EntireRow.Hidden = False
    y = Cells(2, Columns.Count).End(xlToLeft).Column
    lh = Replace(Cells(1, y).Address(0, 0), "1", "")
    Columns("a:" & lh).EntireColumn.Hidden = False
    For i = 2 To r Step 1
      If Cells(i, 1) = "PMP" Then
        Rows(i).EntireRow.Hidden = True
      End If
    Next
    For i = 2 To r Step 1
      If Cells(2, i) = "PMP" Then
        Columns(i).EntireColumn.Hidden = True
      End If
    Next
End Sub

3190496160

QIUZHU.rar (26.72 KB, 下载次数: 4)

2022-12-7 19:21 上传

点击文件名下载附件

ICEGo

3190496160 发表于 2022-12-7 19:22

感谢大神帮助，另外再请教两个问题
1.如何在列中增加累积计算。
Next
    For i = 2 To r Step 1
      If Cells(2, i) = "PME" Then
        Columns(i).EntireColumn.HIDDEN = True
      End If

2.增加一个对比按钮，PMP和PME都显示，十分感谢

ICEGo

3190496160 发表于 2022-12-7 19:22

还有就是两个按钮来回按的次数太多了，行列隐藏就不显示了