VBA100本ノック 5本目：セルの計算
セルの消去に関する問題です。
セルを使った計算結果の値をセルに入れます。
また、表示形式も設定します。
ツイート文字数制限があるので、ブック・シート指定等省略可能な記述は省略しています。
出題
画像のようにB2から始まる表があります。
B列×C列を計算した値をD列に入れ、通貨\のカンマ編集で表示してください。
ただしB列またはC列が空欄の場合は空欄表示にしてください。
例.D3にはB3×C3の計算結果の値を「\234,099」で表示、D5は空欄
※ブック・シートは任意
https://excel-ubara.com/vba100sample/VBA100_05.xlsm
https://excel-ubara.com/vba100sample/VBA100_05.zip
VBA作成タイム
この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。
他の人の回答および解説を見て、書いたVBAを見直してみましょう。
頂いた回答
解説
Dim i As Long
For i = 3 To Range("B2").CurrentRegion.Rows.Count + 1
If Cells(i, 2) = "" Or Cells(i, 3) = "" Then
Cells(i, 4) = ""
Else
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
End If
Next
Columns("D").NumberFormatLocal = "\#,##0"
\の設定はNumberFormatLocalを使います。
B列C列ともに空欄（つまり空行）があるような場合は、空行より下は処理されません。
End(xlUp)を使う場合、非表示行が無いことが前提となります。
UsedRangeを使う場合は、他の列にゴミデータがあると行数が大きくなってしまいます。
これらについては、記事の補足で。
補足
表範囲内だけにしたいと思うかもしれませんが、エクセルのシートの列は同一書式で使う事が基本です。
とはいえ、範囲を限定したい場合の紹介も兼ねて、少し違ったVBAの書き方をしてみます。
Dim rng As Range
Set rng = Range("B2").CurrentRegion
Set rng = Intersect(rng, rng.Offset(1, 2))
rng.ClearContents
rng.NumberFormatLocal = "\#,##0"
Dim i As Long
For i = rng.Row To rng.Row + rng.Rows.Count - 1
If Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
End If
Next
また、エクセルの計算では空欄は0と同じなので、構わずに計算してしまい、表示形式で0を空白表示するという方法も、やり方としては良いと思います。
さらに、セルに計算式を入れてから値貼り付けするという方法もありますが、これについては今後の題材に残します。
扱う表形式を確認して適宜良い方法を選択するようにしてください。
最終行・最終列の取得方法（End,CurrentRegion,SpecialCells,UsedRange）｜VBA技術解説
先のRange("B2").CurrentRegion以外で、
今回の出題に対応した最終行取得のパターンをいくつか掲載しておきます。
With ActiveSheet
Debug.Print .UsedRange.Item(.UsedRange.Count).Row
Debug.Print .Cells.SpecialCells(xlCellTypeLastCell).Row
Debug.Print WorksheetFunction.Max(.Cells(.Rows.Count, 2).End(xlUp).Row, .Cells(.Rows.Count, 3).End(xlUp).Row)
Debug.Print Range("B:C").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End With
表範囲にフィターがかかっているとか、表の外側がどうなっているかによって一長一短があります。
サイト内関連ページ
同じテーマ「VBA100本ノック」の記事
2本目：セルのコピー
3本目：セルの消去
4本目：セルの消去
5本目：セルの計算
6本目：セルに計算式
7本目：日付データの扱い
8本目：点数の合否判定
9本目：フィルターコピー
10本目：行の削除
11本目：セル結合の警告
12本目：セル結合を解除
新着記事NEW ・・・新着記事一覧を見る
AIは便利なはずなのに…「AI疲れ」が次の社会問題になる｜生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開｜エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法｜エクセル雑感(2026-01-27)
IMPORTCSV関数（CSVファイルのインポート）｜エクセル入門(2026-01-19)
IMPORTTEXT関数（テキストファイルのインポート）｜エクセル入門(2026-01-19)
料金表（マトリックス）から金額で商品を特定する｜エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA｜その終焉とAIの台頭｜エクセル雑感(2026-01-13)
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 5本目：セルの計算
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.