【2026年8月最新】ExcelVBAで最終行を取得する方法まとめ｜End(xlUp)・SpecialCells・UsedRangeの使い分け
aikanri-admin
この記事の内容
「Excel VBAでデータの最終行を取得しようとしたら、途中で処理が止まってしまった」——マクロで表を扱っていると、ほぼ必ず一度はぶつかる問題です。
最終行の取得は、VBAの中でも最も頻繁に使うのに、最も間違えやすい処理の一つです。書き方は何種類もあり、それぞれ「空白セルが途中にあると失敗する」「表の外にデータがあると誤検出する」といった落とし穴を抱えています。とりあえずネットのコードをコピペして動いたとしても、データの形が変わった瞬間に静かに壊れる、というのがこの処理の怖いところです。
この記事では、End(xlUp)を使った基本の書き方から、SpecialCells(xlCellTypeLastCell)・UsedRange・CurrentRegionといった代表的な方法、それぞれの落とし穴と使い分け、最終行の下にデータを追加する実践パターンまでを体系的に整理します。さらに後半では、こうした「地道だが間違えやすい」定型処理をClaude CodeのようなAIコーディングエージェントにどう任せられるかという実務的な視点も紹介します。
AI鬼管理山崎
代表菅澤
この記事を最後まで読むと、次の6つが明確になります。
01 BASICS 最終行取得の基本：Rows.Count + End(xlUp) 実務で最も安全とされる定番の書き方
最終行を取得する最も定番かつ安全な方法は、「シートの最下部から上方向にEndキーを押す」動作をコードで再現するEnd(xlUp)です。
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' A列の最終行番号がlastRowに入る📚 用語解説
Rows.Count：ワークシートに存在する行の総数を返すプロパティ。Excelのバージョンによって値は変わらず、現行のExcelでは1,048,576が返る。「シートの一番下」を指し示すために使われる。
📚 用語解説
End(xlUp)：ある起点セルから、Ctrl+↑キーを押したときと同じ動作（データが入っている次のセルまでジャンプ）をコードで再現するメソッド。xlUp以外にxlDown・xlToLeft・xlToRightも指定できる。
この書き方が指しているのは、「A列の一番下（1,048,576行目）から、Ctrl+↑キーを押した位置」です。人間がExcel画面上で行うキー操作をそのままコードにした形になっており、直感的で理解しやすいのが特徴です。
1-1. なぜ「一番下から上へ」なのか
多くの初学者は、最終行を取得するとき「1行目から下へ向かって数える」方法を想像しがちです。しかし実務でよく使われるのは逆に一番下から上へ向かってデータを探すEnd(xlUp)です。これは、表の途中に空白セルがあっても、末尾から探せば正しい最終行にたどり着けるという後述の理由によるものです。
Cells(Rows.Count, 1)の「1」は列番号（A列）を指定しています。もしA列にだけ空白が多い表の場合、必ずデータが入っている列（例えば商品コード列など）を指定するようにしてください。列を間違えると、実際より少ない行数を最終行として誤検出してしまいます。
代表菅澤
1-2. 最終列を取得したい場合：End(xlToLeft)
ここまでは「行」の最終位置を取得する方法を紹介してきましたが、表によっては「列」の最終位置（右端の列）を知りたい場面もあります。考え方は最終行と同じで、方向を変えるだけです。
Dim lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
' 1行目における最終列番号がlastColに入る📚 用語解説
Columns.Count：ワークシートに存在する列の総数を返すプロパティ。現行のExcelでは16,384（XFD列）が返る。Rows.Countの列バージョンとして、最終列取得の起点に使われる。
End(xlToLeft)は、End(xlUp)の「上下」を「左右」に置き換えたものと考えると理解しやすくなります。シートの右端（列の限界）を起点に、左方向へCtrl+←キーを押した位置を取得する、という同じ発想です。行方向・列方向のどちらでも「データが絶対にない場所を起点にする」という原則は変わりません。
縦横どちらの表も扱う可能性がある集計マクロでは、この「行版」「列版」をセットで押さえておくと、応用の幅が大きく広がります。
02 THE TRAP なぜEnd(xlDown)では失敗するのか（空白セルの罠） 「上から下」で探すアプローチが抱える根本的な弱点
End(xlUp)とは逆に、1行目から下方向にEnd(xlDown)で探すという書き方もよく見かけます。しかしこの方法には、実務データで深刻な落とし穴があります。
' 一見動きそうに見えるが、危険な書き方
Dim lastRow As Long
lastRow = Range("A1").End(xlDown).RowEnd(xlDown)は、途中に空白セルがあると、そこで探索を止めてしまいます。表の10行目が空白だった場合、A1から下方向に探すと9行目で止まり、本来100行あるはずのデータが「最終行は9行目」と誤って判定されてしまいます。
これが、この記事の冒頭で触れた「途中で処理が止まる」という現象の正体です。データ入力の過程で1行だけ空白セルができてしまうことは、実務では珍しくありません。その1行のせいで、以降のデータがすべて集計から漏れるという事故が起こり得ます。
| 起点・方向 | 空白セルが表の途中にある場合 | 空白セルが表の末尾（データなし部分）にある場合 |
|---|---|---|
| End(xlDown)（上から下） | 空白セルの手前で止まり、誤った最終行を返す | （通常はこの方向では使わない） |
| End(xlUp)（下から上） | 空白セルを飛び越えて正しい最終行を返す | 正しく最終データ行を返す |
この違いこそが、実務でEnd(xlUp)が定番として使われる最大の理由です。シートの一番下（データが絶対に無い場所）を起点にして上へ探せば、表の途中にある空白セルは通過点として無視され、最初に見つかったデータのある行が最終行として正しく取得できます。
上から下へ探索
空白で停止する
下から上へ探索
空白を飛び越える
AI鬼管理山崎
03 SPECIALCELLS SpecialCells(xlCellTypeLastCell)を使う方法と注意点 シート上で「一番右下」のセルを直接取得する方法
もう一つの代表的な方法が、SpecialCells(xlCellTypeLastCell)です。これはシート上でデータや書式が設定された、最も右下のセルを直接返します。
Dim lastCell As Range
Set lastCell = ActiveSheet.SpecialCells(xlCellTypeLastCell)
Dim lastRow As Long
lastRow = lastCell.Row📚 用語解説
SpecialCells(xlCellTypeLastCell)：ワークシート上で「データまたは書式が設定されている範囲」の右下のセルを取得するメソッド。列・行どちらの最終位置も一度に取得できる便利さがある一方、後述する「見えない罠」を抱えている。
SpecialCells(xlCellTypeLastCell)は、実際のデータの有無ではなく、過去に一度でも値や書式を設定したことがある範囲を記憶しています。例えば「以前は1000行目まで色を付けていたが、今はデータを50行目までしか入れていない」というシートでは、実データが50行目までしかなくても、1000行目を最終行として返してしまいます。
この「幽霊セル」問題は、Excelファイルを長期間使い回しているシートで頻発します。過去に削除したはずのデータの書式設定が残っていたり、一時的に離れた場所にメモを書いて消した跡が残っていたりするだけで、SpecialCellsの判定は簡単に狂います。
マクロを組む前に、Excel画面でCtrl+Endキーを押してみてください。実際のデータの終端と大きくズレた位置にカーソルが飛ぶ場合、そのシートはSpecialCells(xlCellTypeLastCell)が誤動作しやすい状態にあります。事前にシートのクリーンアップ（不要な書式のクリア）をしておくと安全です。
代表菅澤
04 USEDRANGE UsedRangeで使用範囲全体を取得する方法 シート全体の「使われた範囲」をまとめて扱う
UsedRangeは、ワークシート内で一度でも使用された（データや書式が設定された）セル範囲全体を返すプロパティです。
Dim lastRow As Long
lastRow = ActiveSheet.UsedRange.Rows.Count ' 簡易法：データが1行目から始まる場合のみ最終行番号と一致
' 開始行が1行目でない場合も正しく最終行番号を得る書き方
Dim lastRowNum As Long
lastRowNum = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row📚 用語解説
UsedRange：ワークシート上で使用されたことのあるセルの範囲全体を表すRangeオブジェクト。行・列の両方の使用範囲を一括で把握できるが、SpecialCellsと同様に過去の書式設定の影響を受けやすい。
UsedRangeは内部的にSpecialCells(xlCellTypeLastCell)に近い仕組みで動作するため、同じ「幽霊セル」問題の影響を受けます。過去に使われていた範囲を引きずるため、現在の実データより広い範囲を「使用範囲」として返すことがあります。
一方でUsedRangeには、「行数・列数の両方を一度に把握できる」という利点があります。表全体のおおよその範囲を素早く掴みたい、というラフな用途には向いていますが、正確な最終行を1行単位で厳密に特定したい場面には不向きと考えておくのが安全です。
4-1. UsedRangeをリセットする方法
シートの使用範囲情報が実データとズレてしまった場合、以下の操作でUsedRangeの認識をリセットできます。
' 実データに合わせてUsedRangeの認識をリセットする
ActiveSheet.UsedRange ' 一度参照するだけでも再計算のきっかけになることがある
' より確実な方法：保存して閉じ、再度開く
' （VBAだけで完全にリセットする決定的な方法はなく、対症療法的な対応になる）05 CURRENTREGION CurrentRegionで表全体を取得する方法 空白行・空白列で囲まれた「1つの表」だけを取得する
CurrentRegionは、指定したセルを含む、空白の行・空白の列で囲まれた連続データの範囲を取得するプロパティです。
Dim tbl As Range
Set tbl = Range("A1").CurrentRegion
Dim lastRow As Long
lastRow = tbl.Rows.Count + tbl.Row - 1 ' 表の最終行番号を計算📚 用語解説
CurrentRegion：指定したセルを起点に、上下左右に隣接する空白行・空白列が現れるまでの範囲を「1つの表」として自動的に取得するプロパティ。同一シート内に複数の表がある場合でも、それぞれ独立して範囲を取得できる。
CurrentRegionの最大のメリットは、シート内に複数の独立した表がある場合でも、目的の表だけをピンポイントで取得できる点です。前述のUsedRangeやSpecialCellsはシート全体を対象にしてしまうため、複数の表が混在するシートでは意図しない範囲を拾ってしまうことがあります。
CurrentRegionは空白行・空白列を「表の境界」とみなすため、表の途中に空白行が1行でもあると、そこで範囲が分断されてしまいます。データ入力の都合で意図せず空白行が挟まると、CurrentRegionは表の一部分しか認識できません。
CurrentRegionが分断の基準にするのは「行・列がすべて空白かどうか」です。表の中の1つのセルだけが空白でも、その行・列に他のデータが1つでもあれば、表は分断されず1つの範囲として認識されます。「1セルの空白」と「1行まるごと空白」の違いを理解しておくと、挙動を正確に予測できます。
代表菅澤
06 COMPARISON 【比較】5つの方法をどう使い分けるか 目的別の判断基準を1枚で整理する
ここまで紹介した4つの方法（End(xlUp)・SpecialCells・UsedRange・CurrentRegion）に加え、テーブル機能を使う場合の第5の方法も含めて、使い分けの基準を整理します。
| 方法 | 取得できるもの | 空白セルへの耐性 | こんな場面に向いている |
|---|---|---|---|
| End(xlUp) | 指定した列の最終データ行 | ◎ 表内の空白を飛び越えられる | 特定の列を基準に最終行を取りたい、最も一般的なケース |
| SpecialCells(xlCellTypeLastCell) | シート全体の右下セル | △ 過去の書式が残ると誤検出 | ざっくりシート全体の範囲感を掴みたいとき |
| UsedRange | シート全体の使用範囲 | △ SpecialCellsと同様の弱点 | 行数・列数を同時に大まかに把握したいとき |
| CurrentRegion | 起点セルを含む1つの表全体 | × 表内の空白行・空白列で分断される | 複数表が混在するシートで特定の表だけ扱いたいとき |
| ListObject（テーブル機能） | テーブルとして定義した範囲 | ◎ テーブルの範囲は常に正確 | あらかじめExcelのテーブル機能で表を定義できる場合 |
📚 用語解説
ListObject（テーブル）：Excelの「テーブルとして書式設定」機能で作成した表を指すオブジェクト。データの追加に合わせて範囲が自動的に拡張されるため、最終行の取得や範囲操作が最も安定する方法とされる。
迷ったときの結論はシンプルです。「特定の列で最終行だけ知りたい」なら End(xlUp)、「表として管理したい」ならテーブル機能（ListObject）に寄せるのが、実務で最もトラブルの少ない選択です。SpecialCellsとUsedRangeは、便利に見えて事故率が高いため、可能であれば避けるのが無難です。
最終行だけ知りたい
→ End(xlUp)
ピンポイントで扱いたい
→ CurrentRegion
安定運用したい
→ テーブル機能(ListObject)
AI鬼管理山崎
6-2. 処理速度の傾向を把握しておく
5つの方法は、正確性だけでなく処理速度の傾向にも違いがあります。数千行規模のシートを扱うマクロでは、この違いが体感できるレベルの差になることがあります。
| 方法 | 処理速度の傾向 | 備考 |
|---|---|---|
| End(xlUp) | 非常に高速 | セル1点を起点にした単純な探索のため負荷が小さい |
| SpecialCells(xlCellTypeLastCell) | 高速 | シート全体を対象にするがプロパティアクセス自体は軽い |
| UsedRange | やや重い場合がある | シート全体の使用範囲を毎回再計算するケースがある |
| CurrentRegion | 表のサイズに応じて変動 | 表が大きいほど範囲判定の負荷が増える |
| ListObject（テーブル） | 安定して高速 | あらかじめ範囲が管理されているため探索処理自体が発生しない |
📚 用語解説
パフォーマンス：ここでは処理速度・実行時間の意味で使っている。数百行程度のデータであればどの方法でも体感差はほぼないが、数千〜数万行規模になると方法による差が無視できなくなる。
大量データを扱う集計マクロを設計する際は、正確性と合わせて「この処理をループの中で何度も呼び出さないか」も意識してください。最終行取得自体は軽い処理でも、ループの内側で毎回呼び出すと、件数に比例して負荷が積み上がっていきます。
前章で紹介したReDim Preserveと同じ考え方ですが、最終行取得もループの中で毎回呼び出すのではなく、ループに入る前に1回だけ取得して変数に保存しておくのが鉄則です。「今何行目まで来たか」はループ内のカウンタ変数で管理し、最終行の再取得は避けてください。
07 ADD DATA 最終行の下に新しいデータを追加する実践パターン 取得した最終行番号を使った実務コード
最終行を取得する最大の目的は、「そのすぐ下に新しいデータを追加する」ことです。実務でそのまま使える基本パターンを紹介します。
Sub AddNewRecord()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' 最終行の1つ下に新しいデータを追加
Cells(lastRow + 1, 1).Value = "新商品A"
Cells(lastRow + 1, 2).Value = 1500
Cells(lastRow + 1, 3).Value = Date
End Sub7-1. 見出し行しかない（データが0件の）場合への対応
この処理には、実は1つ落とし穴があります。データが1件も入っていない（見出し行だけの）シートで実行すると、End(xlUp)は見出し行自体を「最終行」として返してしまい、新しいデータが見出し行に上書きされてしまいます。
Sub AddNewRecordSafe()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' データが0件（見出し行のみ）の場合を考慮
If Cells(2, 1).Value = "" Then
lastRow = 1 ' 見出し行の次（2行目）から書き込む基準にする
End If
Cells(lastRow + 1, 1).Value = "新商品A"
Cells(lastRow + 1, 2).Value = 1500
Cells(lastRow + 1, 3).Value = Date
End Subテスト段階では常にサンプルデータが数件入った状態でマクロを動かすため、この「データ0件」のケースは見落とされがちです。しかし本番運用では、月初のリセット直後など「見出し行しかない」状態が必ず発生します。事前に条件分岐で対応しておくことが重要です。
7-2. 複数件のデータをまとめて追加する場合
前章で紹介した動的配列と組み合わせると、複数件のデータを一括で追加する処理も効率的に書けます。
Sub AddMultipleRecords(newData() As Variant)
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim i As Long
For i = LBound(newData) To UBound(newData)
Cells(lastRow + 1 + i, 1).Value = newData(i)
Next i
End Sub数百件以上のデータを追加する場合、1セルずつCells().Valueで書き込むより、配列にまとめてRange().Value = 配列という形で一括書き込みする方が、はるかに高速です。追加件数が多いマクロほど、この一括書き込みの有無で体感速度が大きく変わります。
代表菅澤
08 COMMON MISTAKES 実務でよくある間違いパターン ここまでの内容を「事故のパターン集」として総整理
| 間違いパターン | 症状 | 対策 |
|---|---|---|
| End(xlDown)を1行目から使う | 表の途中の空白セルで検索が止まる | End(xlUp)でシート最下部から上へ探す方法に変更する |
| SpecialCells/UsedRangeを過信する | 過去の書式が残り、実データより広い範囲を誤検出する | End(xlUp)やテーブル機能など、より安定した方法に切り替える |
| CurrentRegionの表内に空白行がある | 表が意図せず分断され、一部データしか取得できない | 空白行を作らない運用にする、またはEnd(xlUp)で代替する |
| データ0件のケースを考慮しない | 見出し行に新しいデータが上書きされる | 見出し行の次のセルが空かどうかを事前にチェックする |
| 大量データを1件ずつCells().Valueで追加する | 数百件規模で処理が非常に遅くなる | 配列にまとめてから一括でRange().Valueに書き込む |
8-1. コードレビューで確認すべきチェックポイント
最終行取得のバグは、開発時のテストデータでは再現しにくく、本番データで初めて表面化するという共通点があります。空白セルのパターン、データ0件のパターンを意識的にテストケースへ加えておくことが、事故を未然に防ぐ最も確実な方法です。
AI鬼管理山崎
09 AI CODING 【独自】この手のルーティン処理をAIに任せる 「空白セルの罠」のような落とし穴の回避こそAIが得意な領域
ここまで紹介してきた最終行取得は、「知っていれば一瞬だが、知らないと何時間もハマる」典型的な処理です。End(xlDown)の罠、SpecialCellsの幽霊セル問題、CurrentRegionの分断——こうした落とし穴を踏まずに正しいコードを書く判断こそ、Claude CodeのようなAIコーディングエージェントが力を発揮しやすい領域です。
📚 用語解説
Claude Code：Anthropicが提供するAIコーディングエージェント。「A列の最終行を取得して、その下に新しいデータを追加するマクロを作って」といった自然な言葉の指示だけで、空白セルやデータ0件のケースまで考慮したVBAコードを生成してくれる。
弊社（株式会社GENAI）では、Excelを使った日々の集計・データ追加処理にもClaude Codeを活用しています。「このシートの最終行の下に、今日の売上データを追加して」といった感覚的な指示でも、End(xlUp)や見出し行のみのケースを踏まえた安全なコードを提案してくれるため、落とし穴を踏まずに一発で動くマクロにたどり着きやすくなります。
9-1. 非エンジニアがVBAの落とし穴を回避する意味
「VBAの5つの方法の違いなんて覚えられない」という経営者・事務担当の方も多いはずです。しかし、Excelでのデータ追加・集計処理は、多くの会社で日常的に発生する業務です。「この表に新しいデータを足したい」「空白セルがあっても正しく動くようにしたい」といった要望を、5つの方法の違いを知らないままClaude Codeに直接伝えて実装させられるのは、非エンジニアにとって大きな価値です。
追加したい」を伝える
感覚的な言葉でOK
安全な方法を選定
落とし穴を
踏まえて判断
動作確認
空白パターンも
テスト
繰り返して完成
試行錯誤の
時間を大幅短縮
もちろん、業務データの正確性の最終確認や、機密性の高いデータの取り扱いは人間が判断すべき領域です。Claude Codeはあくまで「落とし穴を踏まずにコードを書くためのアシスタント」という位置づけであり、最終的な業務判断を代替するものではありません。弊社ではVBA・データ処理以外にも営業・広告・経理・秘書業務までClaude Codeを組み込んでおり、月額約30,000円（Max 20xプラン）の投資で、こうした定型コーディング作業まで含めて業務を分担できている肌感があります。
代表菅澤
AI鬼管理山崎
VBA・Excel業務の効率化も、Claude Codeの全社活用も、AI鬼管理が伴走します
「Excelの集計・データ追加作業を安全に自動化したい」「開発以外の業務にもAIを活かしたい」という経営者・事務担当の方に向けて、Claude Codeの導入設計をサポートしています。
AI鬼管理山崎
NEXT STEP
この記事の内容を、あなたのビジネスで
実践してみませんか？
AI活用を自社で回せるようになりたい方へ
AI鬼管理
Claude Code・Cowork導入支援から業務設計・社内浸透まで実践ベースで伴走。「自社で回せる組織」を90日で作る経営者向けトレーニング。
よくある質問
Q. End(xlUp)とEnd(xlDown)、どちらを使うべきですか？
A. 実務ではEnd(xlUp)が推奨されます。シートの最下部を起点に上方向へ探すため、表の途中に空白セルがあっても飛び越えて正しい最終行にたどり着けます。End(xlDown)は1行目を起点に下方向へ探すため、途中の空白セルで検索が止まってしまう弱点があります。
Q. SpecialCells(xlCellTypeLastCell)はなぜ誤動作しやすいのですか？
A. 実際のデータの有無ではなく、過去に一度でも値や書式を設定した範囲を記憶し続けるためです。削除したはずのデータの書式が残っていると、実データより広い範囲を最終行として誤検出します。事前にCtrl+Endキーで実際の挙動を確認しておくことをお勧めします。
Q. CurrentRegionはどんな場面で使うと便利ですか？
A. 1つのシートに複数の独立した表がある場合に、目的の表だけをピンポイントで取得したいときに便利です。ただし表の途中に空白行・空白列が1行でもあると、そこで範囲が分断されてしまう点に注意が必要です。
Q. データが1件も入っていないシートで最終行を取得するとどうなりますか？
A. 見出し行だけのシートでEnd(xlUp)を使うと、見出し行自体が最終行として返されます。この状態を考慮せずに「最終行の下に追加」する処理を書くと、見出し行にデータが上書きされてしまうため、事前に条件分岐で対応する必要があります。
Q. 最終行取得に「絶対に失敗しない」方法はありますか？
A. 完全に万能な方法はありませんが、Excelのテーブル機能（ListObject）で表を管理すれば、データの追加に応じて範囲が自動的に拡張されるため、最も安定した運用ができます。手動でのセル範囲管理より事故が起きにくい方法です。
Q. VBAのこうした定型処理をAIツールで効率化できますか？
A. 可能です。Claude CodeのようなAIコーディングエージェントに「表の最終行を正しく取得して追加して」と自然な言葉で依頼すると、空白セルやデータ0件のケースまで考慮したコードを提案してくれます。5つの方法の違いを細かく覚えていない方でも活用しやすい方法です。
Claude Codeで業務自動化を90日で叩き込む
経営者向けの伴走型パーソナルトレーニング
Claude Code を業務に落とし込む
専門研修コース一覧
受講者本人の業務を題材に、「使いこなせる」状態になるまで伴走する研修プログラム。1対1特化型・ハンズオン・法人講座の3コースを展開中。業務特化・実装まで踏み込むタイプのClaude Code研修です。
研修コース一覧を見る →AI鬼管理へのお問い合わせ
この記事を読んで気になった方へ。
AI鬼管理の専門スタッフが、御社に最適な
業務自動化プランを無料でご提案します。
- AI業務自動化サービス「AI鬼管理」を運営 — Claude Code を活用し、経営者の業務を「AIエージェントに任せる仕組み」へ転換するパーソナルトレーニングを 伴走構築 で提供。日報・採用・問い合わせ対応・経費精算・議事録・データ集計・営業リスト等の定型業務を、AIに代行させる体制を経営者と一緒に作り込む
- Claude Code 実装ノウハウを 経営者・法人クライアント に直接指導。生成AIを「便利ツール」ではなく 「業務を任せる存在」 として運用する手法を体系化
- 「やらせ切る管理」メソッドの開発者。シンゲキ株式会社（2021年設立・鬼管理専門塾運営）にて累計3,000名以上の学習者を志望校合格に導いた管理メソッドを、AI × 経営者支援 に転用
- 著書『3カ月で志望大学に合格できる鬼管理』(幻冬舎)、『親の過干渉こそ、最強の大学受験対策である。』(講談社)
- メディア出演: REAL VALUE / カンニング竹山のイチバン研究所 / ええじゃないかBiz 他
- 明治大学政治経済学部卒
