|
▼りんりん さん:
こんにちは。
>文字列、数値、数式、空白が入り混じった
>縦一列があります。
>この列のうち、数値が入った行のセルだけを
>クリアするにはどうしたらよいか教えてください。
>
>例えばこのB列のような感じです。
>
> A B
>1 受注日報
>2 8月度
>3 5,000
>4 1,000
>5 3,000
>6 合計 9,000(←数式が入っている)
>7
>
>この例で言うとB3、B4、B5のみをクリアするには
>どうすればいいでしょうか?
>ちなみに、この列の行数は変化していきますので、
>数式が入っているセルは特定できません。
>
>数値のみを選択するという方法があれば教えて
>いただきたいです。
'==================================================
Sub test()
Dim rng As Range
On Error Resume Next
Set rng = Range("b1", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeConstants, xlNumbers)
If Err.Number = 0 Then
rng.ClearContents
End If
On Error GoTo 0
End Sub
一例ですが、SpecialCellsメソッドを調べて下さい。
例のコードは、アクティブシートのB列の数値セルをクリアします。
|
|