• ベストアンサー

エクセルVBA　結合されたセルの内容を消去させる方法

こんにちは、いつもお世話になっています。 結合されたセルの入力内容を消去したいです。（書式などはそのまま） 現在 Range("A9").ClearContents となっているのですが、実行してみると 「実行エラー1004　結合されたセルの一部を変更することはできません」 と出てしまいます。 何かいい方法はあるでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

Range("A9").MergeArea.ClearContents の１行だけでもよいですね。 このほうがベターでしょう。

bari_saku
質問者

お礼

ありがとうございます、問題なく動きました！

その他の回答 (3)

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.4

実際で使用する場合は、こんな風にすればよいでしょうね。 Sub myTest() 　With Range("G3") 　 If .MergeCells Then 　　　 .MergeArea.ClearContents 　 Else 　　　.ClearContents 　 End If 　End With End Sub

  • ctrlzr
  • ベストアンサー率29% (18/62)
回答No.3

結合セルの先頭を指定してクリアはだめなんですね。私も知りませんでした^^; でもこれでできました♪ Range("A9").value = null

bari_saku
質問者

お礼

ありがとうございます、本当に助かりました。

回答No.1

Range("A9").Select Selection.ClearContents ではいかがでしょうか。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • VBA　結合セルの値を削除

    マクロ超初心者です。 C7～K７が結合されたセルの値を削除したいです。(値はC7に入力されています) Range("C7").MergeArea.ClearContents で実行してみたところ 実行時エラー'1004' アプリケーション定義またはオブジェクト定義のエラーです。 と出てきます。 セルの書式設定をみてみると、保護/ロックにチェックが入っておりました。もしかしたらこれが悪さをしているのでしょうか。 分かりにくくて申し訳ありませんが、知恵を貸していただけたら助かります。よろしくお願いいたします。

  • VBA　結合セルの

    EXCELにて結合セルを含む表の白紙化をしようとおもいます。しかしなぜか結合セルの部分はうまくいきません。 どうすればよいでしょうか。 range("A1:A6").clearcontents A1からA9に結合セル３つ含んでいます。

  • 結合セルのデータ消去でエラーになります。どのようにすればいいでしょうか？

    Range（”A1：A6”）にデータが入っていますが、そのうちA３、A４、A５セルは 結合されています。Range（”A1：A6”）のデータをクリアするために以下 コーディングをしましたが、結合セルの先頭でエラー(実行時エラー １００４）に なってしまいます。 結合セルのデータクリアはどのようにすればいいのでしょうか。 お分かりの方よろしくご教示ください。 Sub Sample() Dim i As Long For i = 1 To 6 Cells(i, 1).ClearContents Next i End Sub

  • Excel　特定セルのデータを一括で消去させたい

    こんにちは。 どなたか教えていただけませんか？ 車両別に毎日の日報データを入力するシートがあるのですが、 入力作業をするのがExcel初心者の人なので、関数が入っているセルを、 上書き・消去しないよう保護をかけて入力可能なシートのみ選択・入力できるようにしてあります。 １ヶ月ごとに入力したデータを消去し、新たなデータを入力していくのですが、 ロックされていないセルのデータだけを一括で消去出来るマクロがないかと探しています。 過去ログで Sub Cellsdel() Dim c As Range For Each c In Sheets("Sheet1").Range("A5:D10") If c.Locked = False Then c.ClearContents 'c.Clear '書式も含めて、全て消すならこれ一行 End If Next End Sub というマクロを見つけたのでカスタマイズして試してみましたが、 実行時エラー1004 結合されたセルの一部を変更することは出来ません となってしまいました。 入力するシートはC4:Z100までが１台分、以下、Z1200まで12台分の車両別に分かれていて、 入力するセルは飛び飛びになっています。 この説明では不足していると思いますが、補足をいたしますので、 どなたかご教授頂けないでしょうか？ マクロはまだ初心者で色々と勉強している最中です。 よろしくお願いいたします。

  • EXCEL VBA 結合したセルの制御

    いつもお世話になっております。 Excelで、VBAを使っているのですが、結合されたセルの値を Cells(Row,Column).ClearContents を使ってクリアしようとするとエラーになってしまいます。 結合されたセルには、Cells()のメソッドは処理不能なのでしょうか？ どなたかご存知の方がいらっしゃいましたら教えてください。

  • エクセルVBAのコピー方法について。

    セル結合された表を別シートコピーする方法を教えてください。 以下のように記述しましが、実行時エラーとなり 「結合されたセルの一部を変更することはできません。」となります。 Range("A1").CurrentRegion.Copy Destination:=Sheets("Sheet2").Range("A1") よろしくお願いします。

  • Excel　特定セルのデータを一括消去

    こんにちは。 以前同じ質問をさせていただいたのですが、 しばらくネット環境から離れていたため、再度質問下さい。 車両別に毎日の日報データを入力するシートがあるのですが、 入力作業をするのがExcel初心者の人なので、関数が入っているセルを、 上書き・消去しないよう保護をかけて入力可能なシートのみ選択・入力できるようにしてあります。 １ヶ月ごとに入力したデータを消去し、新たなデータを入力していくのですが、 ロックされていないセルのデータだけを一括で消去出来るマクロがないかと探していましたが、過去ログで、 Sub Cellsdel() Dim c As Range For Each c In Sheets("Sheet1").Range("A5:D10") If c.Locked = False Then c.ClearContents 'c.Clear '書式も含めて、全て消すならこれ一行 End If Next End Sub というマクロを見つけたのでカスタマイズして試してみましたが、 実行時エラー1004 結合されたセルの一部を変更することは出来ません　となってしまいました。 以前の質問させて頂いたときに、以下の変更箇所を教えていただいたので、 c.ClearContents ↓ c = "" こちらを試してみたのですが、計算式が多いのと、別シートへ反映させているためか、 ループ状態になってしまい、いくら待っても処理が終わってくれません。 再計算に時間がかかっているのでしょうか？ こういった場合は、マクロを組みなおしたほうがいいのでしょうか？ 入力するシートはC4:Z100までが１台分、以下、Z1200まで12台分の車両別に分かれていて、 入力するセルは飛び飛びになっています。 この説明では不足していると思いますが、補足をいたしますので、 どなたかご教授頂けないでしょうか？ マクロはまだ初心者で色々と勉強している最中です。 よろしくお願いいたします。

  • Excelでのセル内容の高速消去方法

    いつもお世話になっております。 Excel VBAで、広範囲のエリア（例えばA1:G65535）を消去したいのですが、動作させるとタスクがフリーズしたようになり（ＰＣ自体は正常）応答が帰ってきません。範囲を狭くすれば何も問題ないのですが・・・良い智恵をお貸し下さい。 コードは Range("A***:G***").ClearContents を使ってます。

  • 結合されたセルの移動　ＶＢＡ

    「結合されたセルの一部を変更することはできません」と言うメッセージイベントでＶＢＡを実行するにはどうしたらよいでしょうか？ 結合されたセルあるいは複数の結合されたセルを選んで移動する場合、移動先が自分のセルに重なると、「結合されたセルの一部を変更することはできません」と言うメッセージが現れます。 これを回避するには一旦何も無い離れたところに移動し、それから再び目的の場所に移動します。 私の技能では以下のようなマクロになると思います。 最初に元の結合セルを選び、場所を覚えるマクロを実行しする。 次に移動先を指定し、「一旦何も無い離れたところに移動し、それから再び目的の場所に移動」するマクロを実行します。 これをワン・アクションで、「結合されたセルの一部を変更することはできません」と言うメッセージが出るタイミングで実行するにはどうしたらよいでしょうか。 よろしくお願い申し上げます。

  • Excel VBA セルの選択と消去

    ご覧いただき、ありがとうございます。 最近、会社のPCでExcelでのVBAプログラミングの練習をしています。 先頭ページにボタンをつけて、マクロを設定していますが、以下の動作が どうしてもできません。 　・別シート(WORKとしておきます)にある表のデータをクリアしたい ・クリアしたいのは、WORKシートのA5、B5セル以下のデータが入力されている個所すべて 　・以下のプログラムを書いてみたが、エラーになる 　　　WorkSheets("WORK").Range("A5:B5", Range("A5:B5").End(x|down)). ClearContents 上記の構文に問題があるのはメッセージから分かるのですが、何が悪いのかが分かりません。 　WORKシートをSelecしてセルをSelect、Selection.ClearContentsだと上手くいくのですが、画面のちらつきが気になるので、できるならば、先頭ページから遷移せずに実行させたいです。 　現在、自宅のPCから質問を入力しているので、会社PCに書いていたプログラミングとは違うかもしれません。 　もし、ヒントだけでもお分かりになる方がいらっしゃいましたら、ご教授いただければと思います。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する