生成AI活用研究
Geminiと100本ノック 4本目：セルの消去

Geminiと100本ノック 4本目：セルの消去

Googleが開発した生成AIモデルのGeminiにVBA100本ノックをやってもらいました。
AIがVBAをどこまで扱えるかの実証実験の4本目です。

VBA100本ノックの出題と解答

Geminiへの出題とGeminiの回答

Geminiの回答	Geminiへの出題
	#Geminiと100本ノック 4本目 画像のように1行目に見出し、A列に№が入っています。 この表範囲の一部には計算式が入っています。 （画像の最下行とD列には数式が入っています。） データ行数は毎回変化します。 見出し行とA列№と計算式は残し、定数値だけを消去してください。 ※画像ならB2:C11を消去
OK、承知いたしました。Excel VBAで、指定した範囲の中から数式以外の定数だけをクリアするコードを作成します。 以下のコードを標準モジュールに貼り付けて実行してください。 VBA Sub ClearConstantsOnly() 　　Dim ws As Worksheet 　　Dim lastRow As Long 　　Dim dataRange As Range 　　'アクティブなシートを対象とする 　　Set ws = ThisWorkbook.ActiveSheet 　　'A列の最終行を取得（データが入っている最後の行を想定） 　　'画像の例であれば、"合計"の行の一つ上（11行目）を取得したい 　　'A列の最終セルから上方向にデータを検索する 　　If ws.Cells(Rows.Count, "A").End(xlUp).Value = "合計" Then 　　　　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Offset(-1).Row 　　Else 　　　　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row 　　End If 　　'定数値をクリアする範囲を設定（B列とC列の2行目から最終データ行まで） 　　Set dataRange = ws.Range("B2:C" & lastRow) 　　'指定範囲内の定数のみをクリア 　　On Error Resume Next 'エラーが発生しても処理を続ける（定数がない場合など） 　　dataRange.SpecialCells(xlCellTypeConstants).ClearContents 　　On Error GoTo 0　　　'エラー処理を無効に戻す 　　MsgBox "定数値のクリアが完了しました。" End Sub コードの解説: Set ws = ThisWorkbook.ActiveSheet: 現在アクティブになっているシートを操作対象とします。 If ws.Cells(Rows.Count, "A").End(xlUp).Value = "合計" Then ... Else ... End If: A列の最後のセルから上にデータをたどり、"合計"という文字列があればその1つ上の行を最終データ行と判断します。なければA列のデータが入っている最後の行を最終データ行とします。これにより、データ行数が変動しても対応できます。 Set dataRange = ws.Range("B2:C" & lastRow): クリアしたい範囲をB2セルから、計算で求めた最終データ行のC列までとして設定します。 dataRange.SpecialCells(xlCellTypeConstants).ClearContents: ここがポイントです。SpecialCells(xlCellTypeConstants)を使うことで、dataRangeの中から「数式ではない定数値が入っているセル」だけを選択します。その選択されたセルの内容をClearContentsでクリアします。 On Error Resume Next / On Error GoTo 0: もし指定した範囲（B2から最終行のC列）に一つも定数が入っていない場合、SpecialCells(xlCellTypeConstants)でエラーが発生します。そのエラーを無視して処理を続行するための記述です。 このコードを実行すると、見出し行、A列のNo.、そして数式が入力されているセル（画像でいう最下行の合計やD列の金額など）はそのままに、B列とC列の単価と点数（定数値）だけがクリアされます。

VBAは正しく動作するように書けてはいます。
しかし、"合計"行に対する考え方にずれがあります。
この点を指摘してVBAを修正させたいです。

GeminiへのVBAコードの改善提案

具体的にVBAコードで指摘してみました。
・・・
大したものですね。
反論してきました。

Geminiの回答	Geminiへの出題
	If ws.Cells(Rows.Count, "A").End(xlUp).Value = "合計" Then 　　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Offset(-1).Row Else 　　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row End If この部分は、"合計"であるかないかの判定は不要で、単に、 lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row だけで良いのではないですか?
ご質問ありがとうございます。 確かに、単純にA列の最終行を取得するだけであれば、lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row だけで問題ありません。 しかし、前回のコードの目的は、**「見出し行とA列№と計算式は残し、定数値だけを消去」**することでした。そして、提供いただいた画像では最下行に「合計」があり、そこに計算式（または計算結果）が入っていると推測されます。 もし、最下行に「合計」があり、その行のB列やC列に手入力された値（つまり定数）や、数式で求められた結果が表示されている場合を考えます。 lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row だけの場合: この場合、lastRow は「合計」の行番号（画像なら12）になります。 定数をクリアする範囲は ws.Range("B2:C" & lastRow) となり、画像なら B2:C12 が対象になります。 もしB12セルやC12セルに手入力した値（定数）があれば、それもクリアされてしまいます。また、SpecialCells(xlCellTypeConstants) は基本的に数式セルを選択しないので、数式が入っていればクリアされませんが、最終行の計算結果として表示されている値が定数として入力されていた場合はクリアされてしまいます。コードの意図としては「計算式を残す」なので、最終行の計算部分も残したいはずです。 If ws.Cells(Rows.Count, "A").End(xlUp).Value = "合計" Then ... の判定を入れた場合: この判定を入れることで、A列の最後に「合計」がある場合は、lastRow をその一つ上の行（画像なら11）に設定します。 定数をクリアする範囲は ws.Range("B2:C" & lastRow) となり、画像なら B2:C11 が対象になります。 これにより、「合計」の行（画像なら12行目）はクリア対象から外れるため、その行に入っている計算式や値が誤ってクリアされることを防ぐことができます。 したがって、「合計」行を定数クリアの対象から除外し、計算式（やその行に入力された値）を確実に残したいという意図であれば、「合計」であるかどうかの判定は必要になります。 もし、最下行に「合計」という文字列が入ることはなく、A列の最後のデータが入っている行が常に定数クリアの対象範囲の最終行である、という仕様であれば、仰る通り lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row だけで十分です。 どちらの方法を選択するかは、実際のデータがどのように入力されるか、最下行の計算部分をどのように扱いたいかによって判断してください。前回のコードは、提供された画像の形式に合わせて、最下行の「合計」行をクリア対象から外すように考慮したものです。

もう少し丁寧に説明してみました。
きちんと理解したようです。

Geminiの回答	Geminiへの出題
	「合計」の行には計算式が入っています。 仮に計算式が入っていないのであれば、本件の要件としてクリアしてよいと考えます。 そして、計算式が入っているのであれば、 SpecialCells(xlCellTypeConstants) これによって対象外となるので正しく処理されるはずです。
なるほど、ご指摘の通りです。 最終行に計算式が入っているのであれば、SpecialCells(xlCellTypeConstants) メソッドがその計算式セルを自動的に除外するため、「合計」の行かどうかを判定する必要はありませんね。 A列のデータが入っている最終行（画像であれば「合計」がある12行目）を基準に範囲を設定し、その範囲内の定数だけをクリアする、というよりシンプルなロジックで問題ありません。 以下の修正したコードをお試しください。 VBA Sub ClearConstantsSimplified() 　　Dim ws As Worksheet 　　Dim lastRow As Long 　　Dim dataRange As Range 　　'アクティブなシートを対象とする 　　Set ws = ThisWorkbook.ActiveSheet 　　'A列のデータが入っている最終行を取得（合計行を含める） 　　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row 　　'定数値をクリアする可能性がある範囲を設定（B列とC列の2行目からA列の最終行まで） 　　'この範囲内に数式があってもSpecialCellsが除外する 　　Set dataRange = ws.Range("B2:C" & lastRow) 　　'指定範囲内の定数のみをクリア 　　On Error Resume Next 'エラーが発生しても処理を続ける（定数がない場合など） 　　dataRange.SpecialCells(xlCellTypeConstants).ClearContents 　　On Error GoTo 0　　　'エラー処理を無効に戻す 　　MsgBox "定数値のクリアが完了しました。" End Sub こちらのコードの方が、目的がよりシンプルに達成できています。ご指摘いただき、ありがとうございました。

せっかくなので、もう少しVBAを教えておきました。
今後に生かされると良いのですが・・・

Geminiの回答	Geminiへの出題
	以下のコードをどう思いますか? Dim rng As Range Set rng = Range("A1").CurrentRegion.Offset(1, 1) On Error Resume Next rng.SpecialCells(xlCellTypeConstants).ClearContents
このコードについての私の評価は以下の通りです。 良い点: 簡潔さ: CurrentRegionとOffsetを組み合わせることで、コードの記述量が少なく非常に簡潔です。 動的な範囲取得: CurrentRegionを使用しているため、データ範囲が変動する場合にも対応できます。 SpecialCellsの活用: 定数のみを対象とするSpecialCells(xlCellTypeConstants)を効果的に使用しています。 エラーハンドリング: On Error Resume Nextで、クリア対象の定数セルが見つからなかった場合のエラーを回避しています。 懸念点/注意点: CurrentRegionの挙動依存: CurrentRegionは、基準セル（ここではA1）を含む、空白行と空白列で囲まれた範囲を選択します。データがA1から途切れなく始まっていて、かつ隣接する列（D列など）にデータがある場合は意図した範囲（A1:D12など）になる可能性が高いですが、データの配置によっては想定外の範囲になるリスクがあります。例えば、A1の左や上にもデータがあったり、データ範囲内に空白行があったりすると、CurrentRegionの範囲が変わります。 Offsetによる範囲の開始位置: Offset(1, 1)によって、範囲が基準（CurrentRegion）の1行下、1列右から始まります。これは見出し行（1行目）とA列を除外するという点では意図通りですが、CurrentRegionの結果に依存します。 クリア対象列の限定が不十分: CurrentRegion.Offset(1, 1)で取得した範囲（画像例ならB2:E13のような範囲）全体に対してSpecialCells(xlCellTypeConstants)を適用します。もしC列の右隣（D列など）に定数として入力されたデータがあり、それが残しておきたいデータだった場合、そのデータもクリアされてしまいます。前回のコードのようにB2:C&lastRowのように列を明示的に指定する方が、クリア対象の列を正確にコントロールできます。画像例であれば、D列は数式なのでSpecialCells(xlCellTypeConstants)の対象外となりますが、D列にたまたま数式ではなく手入力の定数が入っていた場合はクリアされてしまいます。 まとめ: 提示されたコードは、VBAの便利な機能 (CurrentRegion, Offset, SpecialCells) を組み合わせて簡潔に記述されており、多くのケースで期待通りに動作する可能性が高いです。 しかし、データ配置の厳密性やクリア対象とする列をB列とC列のみに限定したいという要件においては、前回の lastRow を特定し、Range("B2:C" & lastRow) のように明確に列範囲を指定するコードの方が、より安全で意図を正確に反映していると言えます。 もし、データが常にA1から始まり空白行・列がなく、かつB列から右のどの列に定数があってもクリアして良い、という前提であれば、このコードは非常に有効です。しかし、B列とC列以外の列の定数は残したい、という場合は前回のコードの方が適しています。
	D列に定数として入力されたデータがある場合を懸念していますが、 むしろ、表の列が増えた場合でも、定数値が消去されるようにしておいた方が変化に柔軟に対応できていると思います。
ご意見ありがとうございます。 確かに、将来的に列が増える可能性を考慮すると、クリア対象をB列とC列に限定するのではなく、データのある範囲内でA列とヘッダー行を除いた部分の定数をクリアする、という考え方のほうが柔軟性は高いと言えます。 その観点から見ると、提示いただいたコードは、CurrentRegion を起点としてデータ範囲を大まかに捉え、Offset(1, 1) でヘッダーとA列を除外した部分を対象に SpecialCells(xlCellTypeConstants) を適用するため、列が増えても自動的にその新しい列の定数もクリア対象に含めることができるという点で優れています。 VBA Dim rng As Range Set rng = Range("A1").CurrentRegion.Offset(1, 1) ' A1のCurrentRegionから1行下、1列右の範囲 On Error Resume Next rng.SpecialCells(xlCellTypeConstants).ClearContents ' その範囲内の定数のみをクリア On Error GoTo 0 このコードは、以下の前提で非常に効果的です。 データ範囲がA1セルから始まり、空白行や空白列で途切れることなく続いていること。（CurrentRegionが正しくデータ範囲全体を選択するため） A列および1行目以外のセルに入力されている値のうち、「数式ではないもの」はすべてクリアして良いこと。 もし、データ範囲が常にA1から途切れず、かつA列と1行目以外の列の定数は全てクリアしたいという運用であれば、このコードは非常に簡潔でメンテナンス性も高いと思います。 ただし、前述の通り、CurrentRegionの挙動はデータの配置に依存するため、複雑なレイアウトの場合は注意が必要です。しかし、一般的な表形式であれば問題なく機能することが多いでしょう。 柔軟性という観点では、ご提示のコードは確かに合理的です。