読者です 読者をやめる 読者になる 読者になる

与えられた列からRangeの最終列まで非表示にするマクロを作りたかったけど眠いからあきらめる

Sub test(rngSrc As Range, iStartColumn As Integer)
    MsgBox "最終列は : " & rngSrc.Column
    MsgBox "最終列は : " & rngSrc.EntireColumn.Count

    Dim rng As Range
    
    If rngSrc.MergeCells Then
        rng = rngSrc.MergeArea
    End If
    
    Set rng = Cells(rngSrc.Row, iStartColumn)
    
    
    
    
    Range(Cells(1, 1), Cells(3, 2)).Select
    
    
        
    
    rng.Hidden = True


End Sub