删除指定行改为隐藏指定列。

19611024

这有个代码可以删除指定行，在弹出对话框内输入1:5，7:30  他就可以删除1-5行和7到30行。

我想修改一下，可以隐藏指定列。




Sub BatchDelete()
    Dim inputstr As String
    Dim result() As String
    Dim i As Integer
   
    inputstr = InputBox("请输入要删除的行号（用英文逗号间隔）", "批量删除指定行")
    result = Split(inputstr, ",")

    For i = LBound(result) To UBound(result)
        If InStr(1, result(i), ":", vbTextCompare) <= 0 Then
            ' not containing :
            result(i) = result(i) & ":" & result(i)
        End If
    Next

    inputstr = Join(result, ",")
    ActiveSheet.Range(inputstr).Delete
End Sub


附件使用方法：开发工具中选择加载项。

Peny2020

ActiveSheet.Range(inputstr).EntireRow.Hidden = True

19611024

Peny2020 发表于 2024-7-5 09:50
ActiveSheet.Range(inputstr).EntireRow.Hidden = True

感谢大佬，我试了一下，这样改可以隐藏行。改什么地方可以隐藏列呢？

19611024

感谢大神。

Sub BatchHidden()
    Dim inputstr As String
    Dim result() As String
    Dim i As Integer
   
    inputstr = InputBox("请输入要隐藏的列号（用英文逗号间隔）", "批量隐藏指定列")
    result = Split(inputstr, ",")

    For i = LBound(result) To UBound(result)
        If InStr(1, result(i), ":", vbTextCompare) <= 0 Then
            ' not containing :
            result(i) = result(i) & ":" & result(i)
        End If
    Next

    inputstr = Join(result, ",")
    ActiveSheet.Range(inputstr).EntireColumn.Hidden = True
End Sub

附件为作业。

Peny2020

19611024 发表于 2024-7-6 08:02
感谢大神。

Sub BatchHidden()

ActiveSheet.Range(inputstr).EntireRow.Hidden = True就是列