VBA100本ノック 3本目：セルの消去
セルの消去に関する問題です。
セルの値だけを消去します。
ツイート文字数制限があるので、ブック指定等省略可能な記述は省略しています。
マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。
出題
出題ツイートへのリンク
#VBA100本ノック 3本目
画像のように1行目に見出し、A列に№が入っています。
№行数およびデータ行数は毎回変化します。
この表の見出し（1行目）と№（A列）を残して、データ部分のみ値を消去してください。
※シートはアクティブシート
サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_03.xlsm
https://excel-ubara.com/vba100sample/VBA100_03.zip
画像のように1行目に見出し、A列に№が入っています。
№行数およびデータ行数は毎回変化します。
この表の見出し（1行目）と№（A列）を残して、データ部分のみ値を消去してください。
※シートはアクティブシート
https://excel-ubara.com/vba100sample/VBA100_03.xlsm
https://excel-ubara.com/vba100sample/VBA100_03.zip
VBA作成タイム
この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。
他の人の回答および解説を見て、書いたVBAを見直してみましょう。
頂いた回答
解説
Range("A1").CurrentRegion.Offset(1, 1).ClearContents
Resizeを使って1行1列減らしている解答が目につきました。
CurrentRegionは空白セルで囲まれた範囲なので、Offset(1, 1)でずれた範囲のセルは必ず空欄です。
ClearContentsであれば、はみ出た部分については気にしなくても良いでしょう。
また最終行を取得して範囲を求めようとするとかなり面倒です。
列を固定だとしても、
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Range("B2"), Cells(lastRow, "D")).ClearContents
補足
先に書いたように、Offset(1, 1)かつClearContentsであればズレてはみ出した部分については気にする必要が無いのですが、
きっちり表範囲だけで指定する場合について追記しておきます。
簡単な方法としてResizeとIntersectを使う方法がありますが、Intersectの方がより簡素な記述で済みます。
Resize
きっちり表範囲だけで指定する場合について追記しておきます。
簡単な方法としてResizeとIntersectを使う方法がありますが、Intersectの方がより簡素な記述で済みます。
With ActiveSheet.Range("A1").CurrentRegion
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).ClearContents
End With
Dim rng As Range
Set rng = ActiveSheet.Range("A1").CurrentRegion
rng.Offset(1, 1).Resize(rng.Rows.Count - 1, rng.Columns.Count - 1).ClearContents
Intersect
With Range("A1").CurrentRegion
Intersect(.Cells, .Offset(1, 1)).ClearContents
End With
Dim rng As Range
Set rng = ActiveSheet.Range("A1").CurrentRegion
Intersect(rng, rng.Offset(1, 1)).ClearContents
CurrentRegion
Resize
Offset
Intersect
これらの仕様については、以下の関連ページを参照してください。
Resize
Offset
Intersect
これらの仕様については、以下の関連ページを参照してください。
サイト内関連ページ
第28回．セル・行・列の選択（Select,ActivateとCurrentRegion）｜VBA入門
・選択セルとアクティブセル ・セルの選択 ・セルをアクティブにする ・行の選択、列の選択 ・セル領域の選択 ・メソッドとはプロパティとは
第39回．セルのクリア（Clear,ClearContents）｜VBA入門・セル(Rangeオブジェクト)のクリア関係のメソッド（動作を与える） ・Range.Clear ・Range.ClearContents ・クリア関係メソッドについて
第82回．RangeのResizeプロパティ｜VBA入門・Resizeプロパティの構文 ・Resizeの使用例 ・Resizeのまとめ
第83回．RangeのOffsetプロパティ｜VBA入門・Offsetプロパティの構文 ・Offsetの使用例 ・Offsetの注意点 ・Offsetのまとめ
第102回．Intersectメソッド｜VBA入門・Intersectメソッド ・Intersectの使用例 ・Intersectメソッドの最後に
同じテーマ「VBA100本ノック」の記事
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
2本目：セルのコピー・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
3本目：セルの消去4本目：セルの消去
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
5本目：セルの計算・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
6本目：セルに計算式・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
7本目：日付データの扱い・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
8本目：点数の合否判定・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
9本目：フィルターコピー・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
10本目：行の削除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
11本目：セル結合の警告・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
新着記事NEW ・・・新着記事一覧を見る
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
累計を求める数式あれこれ｜エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE｜エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。｜エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 3本目：セルの消去
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。