vba 結合されたセルの列を隠す

Quick Edit Pencil
sub セルの名前から列を非表示(myRange As Range)

'    Dim myRange As Range
'    Set myRange = ActiveCell
'    Set myRange = ActiveSheet.Range("名前")

If myRange.MergeCells Then '結合を検証
    
        '結合されている
    
'        Debug.Print myRange.MergeArea.Address
        
        For Each cell In myRange.MergeArea
        
            Columns(cell.Column).Hidden = True
        
        Next
        
    Else
    
        '結合されていない
        
        Columns(cell.Column).Hidden = True
    
    End If

End sub

このブログの人気の投稿

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

PowerShellで複数ファイルのプロパティを取得する方法(準備編)

書字方向 横書方向変換スクリプト 左書きから右書きへ(コピペ用途)

ヤバい!JAPANNEXT WQHD対応 27型ワイド液晶ディスプレイ「JN-IPS2716WQHD」を注文してみた!!!

簡単 らじるらじるの聴き逃し番組、NHKラジオのストリーミングを保存・ダウンロードする方法 2019

簡単 NHKゴガクのラジオストリーミングをダウンロードする 2019

TWINGOのルーフボックスを選ぶ :: トゥインゴ 5ドア用のルーフキャリア

AppleScript 改行 コード 置換

Blender: 辺の長さを数値で指定するアドオン