|
▼Jaka さん:
ありがとうございました。
おかげさまで、下記マクロを作成できました。
以前のものに比べ、格段に軽くなりました。
本当にありがとうございました。
Sub 全面クリアー2()
With Range("E8:AS62")
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.UnMerge
End With
Range("F11:AS62").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
>編集 → ジャンプ → セル選択
>定数 → 数値以外のチェックを外す
>選択されたセルをDeleteキーで消す。
|
|