[[20020606223602]]　『日々の集計表：消すセルがあまりに多い』（yachan）　ページの最後に飛ぶ

『日々の集計表：消すセルがあまりに多い』（yachan）

yachan

日々の集計表（１日～31日）を作りました。

データ入力セルと関数が入り組んでます。

月末に集計して、翌月はシートをコピーして頭から入力します。

その時に入力されたセルを一つ一つ消していきますが、

消すセルがあまりに多く面倒です。

関数のところはセルのロックをかけているので消される心配はありませんが

データを入力した所だけ一気に消すようにはできませんか。

 セルを範囲選択してDelキーで消せばよいのでは？

 そんな単純なことではないのかな...

 ツール＞マクロ＞新しいマクロの記録で、値の入ったセルを選択して削除する

 マクロを記録したらどうでしょう。

 マクロの記録方法は↓のHPを参考にしてください。

 （ramrun）

質問の意味を取り違えてるかも知れませんが、次の２つが考えられます。

①入力用ワークシートをコピーして使う（私はいつもこの方法でやってます）

・まず、見出し，コメント，色設定，罫線，関数等だけを入力/設定した

  ワークシートを作り、月毎にコピーしてデータを入力する。

  つまり、「データを消す」作業はありません。

②消すセルに名前を付けて一気に消す（「データを消す」作業をしたい場合）

・消すセル（毎月入力するセル）に名前を付けます。

  (ご存知かも知れませんが方法は下記の通りです)

     (1)Ctrlキーを押したまま、全ての消すセルを選択及びドラッグする

     (2)Ctrlキーを押したまま、F3キーを押す

     (3)「名前の定義」画面で適当な名前を入力してOKをクリック

・Excelの表のA列のすぐ上の▼(名称は知らないんです)を押すと、(3)で

  付けた名前が出るので、クリックしてDeleteキーを押す。これで消えます。

                                            (tenpoint)

マクロ（VBA）でよければ、下記のようなものを作り、実行する度、設定したセルは空になります。

Sub test()

  '指定セルのデータをクリアする｡

Cells(1, 1) = "" 'Cells(行番号,列番号)

cells(2, 5) = ""

' 後延々にクリアするセルを記載

End Sub

    （なお：久ぶりに覗いたら掲示板の代わりに質問ボードが出来ていまいたので早速。kazuさん、お久しぶりです。）

 私はデータの入っていないテンプレートを作る[tenpoint]案をお勧めしますが、

 ことばのとおり、データだけ消したい場合、下のように、数値を選び出して、

 その中から式が入っていないものを選択すれば技術的には可能です。

 [なお]さんは『複数ブック一括印刷』を作ったときの方でしたっけ？

 （kazu）

 Option Explicit

 Sub DataAllClear()

 Dim r As Integer, c As Integer, rx As Integer, cx As Integer

     rx = Selection.SpecialCells(xlCellTypeLastCell).Row

     cx = Selection.SpecialCells(xlCellTypeLastCell).Column

     For r = 1 To rx

         For c = 1 To cx

             If Len(Cells(r, c)) > 0 Then

                 If IsNumeric(Cells(r, c).Value) Then

                    If InStr(Cells(r, c).Formula, "=") > 0 Then

                     Else

                         'MsgBox r & " " & c & " " & Cells(r, c).Value

                         Cells(r, c) = ""

                     End If

                 End If

             End If

         Next c

     Next r

 End Sub

コメント返信：