| |
▼りんりん さん：
こんにちは。
>文字列、数値、数式、空白が入り混じった
>縦一列があります。
>この列のうち、数値が入った行のセルだけを
>クリアするにはどうしたらよいか教えてください。
>
>例えばこの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メソッドを調べて下さい。
例のコードは、アクティブシートのＢ列の数値セルをクリアします。
|
|
ichinose
- 04/8/23(月) 17:14 -
