|
度々質問させて頂きます下働きです。
ある範囲(E8:AS62)中の数値入力セルの数値だけを消去したいのですが、どうすればよろしいでしょうか?
範囲内には、数式セルが散在しています。これを消さないように数値入力セルだけを選択して消去するマクロを以下のように作成しましたが、動作がもっさりとしています。頻繁に行う操作ではないので我慢できなくもないのですが、もっと巧いやり方がありましたらお教えください。よろしくお願い致します。
Sub 全面クリアー()
'
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
Dim i, j As Integer
i = 0
While i < 7
j = 0
While j < 11
Range("F11").Offset(j * 5, i * 6).Range("A1:D2").ClearContents
j = j + 1
Wend
i = i + 1
Wend
End Sub
|
|