Excel アドイン用VBA 選択したセルを縮小して全体表示にする

縮小して全体表示にするマクロ

これはアドインに登録してツールバーに乗せてもいいかもしれません。

Sub shrinktofiton()
'For Excel
'選択したセルを縮小して全体表示にする ShrinkToFit
'(複数可能,結合、非結合セルどちらでもよく、混在も可能)
'
Dim R As Range
For Each R In Selection
R.ShrinkToFit = True
Next R
End Sub

なんだか随分簡単ですが、これでできます。