excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号

最新推荐文章于 2024-04-17 05:00:00 发布

lijil168

最新推荐文章于 2024-04-17 05:00:00 发布

阅读量4.7k

点赞数 1

分类专栏： vba 文章标签： excel vba 数据

本文链接：https://blog.csdn.net/lijil168/article/details/12200647

版权

vba 专栏收录该内容

31 篇文章 8 订阅

订阅专栏

Sub Macro3()
Application.OnKey "^h", "sHide"   '仅隐藏选择的行2013.3.15 by lijilin
Application.OnKey "^+h", "sNHide"  '仅显示选择的行2013.3.15 by lijilin
End Sub
 
 
Sub sHide()
    Application.ActiveWorkbook.ActiveSheet.UsedRange.EntireRow.Hidden = False
    Selection.EntireRow.Hidden = True
End Sub
 
 
Sub sNHide()
    Application.ActiveWorkbook.ActiveSheet.UsedRange.EntireRow.Hidden = True
    Selection.EntireRow.Hidden = False
End Sub

附程序：提取多重选择区的行列号，方便更复杂的数据操作

Sub Macro1()
Dim rg As Range
    Set rg = Range("A1,B1:B3,C5:D8")
    ad = rg.Address(ReferenceStyle:=xlR1C1)
    s = rg.Areas(rg.Areas.Count).Address(ReferenceStyle:=xlR1C1)
    'x = UBound(Split(s, ":"))
        l = Split(Split(s, ":")(0), "C")
        ksh = Split(l(0), "R")(1)  '开始行
        ksl = l(1)   '开始列
    If UBound(Split(s, ":")) > 0 Then
        l2 = Split(Split(s, ":")(1), "C")
        jsh = Split(l2(0), "R")(1)  '结束行
        jsl = l2(1)   '结束列
    Else
        jsh = ksh
        jsl = ksl
    End If
  End Sub