VBA 初心者です。 下記のVBAをもう少しわかりやすく、 コンパクトにする方法はありますか？ 宜し

VBA 初心者です。

下記のVBAをもう少しわかりやすく、
コンパクトにする方法はありますか？
宜しくお願いします。

【やりたいこと】
・表の特定の行、列を非表示、再表示
・文字入力
・式の置き換え
・グループ化を閉じるです。

Dim Lastcol As Long, i As Long
Lastcol = Range("I8").CurrentRegion(Range("I8").CurrentRegion.Count).Column

If Rows(11).Hidden = True Then
Rows(7).Hidden = True
Rows(10).Hidden = True
Rows(49).Hidden = True
Rows(6).Hidden = False
Rows(11).Hidden = False
End If

For i = 11 To Lastcol Step 7
Columns(i).Hidden = False
Columns(i + 1).Hidden = False

Columns(i + 2).Hidden = True
Columns(i + 3).Hidden = True

Cells(12, i) = "実績"
Next i

Range("K2") = 16
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("H11").Replace What:="!$H$8", Replacement:="!$H$10"


End Sub

No.1 ベストアンサー 回答者： artoo 回答日時： 2019/11/15 21:38

内容からして十分コンパクトでわかりやすいと思います。

これ以上コンパクトにするには、内容を減らすしかないです。

この回答へのお礼

早速のご回答ありがとうございます。
こちらで進めていきます‼

お礼日時：2019/11/15 22:29