「Excel」カテゴリーアーカイブ

【Excel】INDEX＋MATCH関数で柔軟で高速なデータ検索を実現

2025年10月3日管理者コメントする

Excelでデータ検索や参照を行うとき、多くの方が最初に思い浮かべるのは VLOOKUP関数 ではないでしょうか。
しかし、VLOOKUPには「参照範囲の制約」「列番号の固定」、「大量データだと重い」など不便な面もあります。
そこでおすすめなのが、 INDEX関数とMATCH関数を組み合わせる方法 です。

本記事では、INDEX＋MATCH関数の使い方を基礎から応用まで解説します。

1. INDEX関数とMATCH関数の役割

INDEX関数

指定した範囲から「行番号・列番号」を基準に値を取り出す関数です。

例：
=INDEX(B2:D5, 2, 3) → 範囲B2:D5の「2行目3列目」の値を取得

MATCH関数

指定した値が「範囲の何番目にあるか」を返す関数です。

検索方法：0（完全一致）、1（以下）、-1（以上）

例：
=MATCH("東京", A2:A10, 0) → 「東京」がA2:A10の中で何番目かを返す

2. INDEX＋MATCHの組み合わせ

INDEXとMATCHを組み合わせると、「検索値に基づいて柔軟に値を取得」できます。

例：
社員名を検索して、その人の所属部署を取得する場合

検索値：セルE1（社員名）
検索範囲：A2:A6（社員名一覧）
参照範囲：B2:B6（部署一覧）

→ F2に入力した社員名に対応する部署が返る

3. VLOOKUPとの違い・メリット

参照範囲を左右どちらにも指定可能
VLOOKUPは「左端から右方向」にしか検索できませんが、INDEX＋MATCHなら左にも右にも対応できます。
列削除に強い
VLOOKUPは列番号で指定するため列構成が変わるとエラーになりますが、INDEX＋MATCHは柔軟です。
高速処理が可能
大量データを扱う場合でも、VLOOKUPだと処理が重くなって使えない事象が発生しますが、INDEX＋MATCHの方を使用することで安定して動作します。

4. 応用例：2次元検索

行と列の両方で一致する値を取得することも可能です。

G2に入力した「名前」
G1に入力した「科目」
→ G3で名前×科目に対応する点数を取得

5. まとめ

INDEX関数は「値を取り出す」
MATCH関数は「位置を探す」
2つを組み合わせることで 柔軟な検索・参照が可能

VLOOKUPでは対応できない場面でもINDEX＋MATCHなら解決できます。
Excelで効率的なデータ検索を行いたい方は、ぜひ活用してみてください。

Excel, ブログ

Excelで年間カレンダーを自作する方法｜月間・週間スケジュールにも対応

2025年9月28日管理者コメントする

Excelを使えば、自分専用のカレンダーを簡単に作れます。この記事では、年間・月間・週間の3種類のカレンダーを順に作成し、最後に祝日を自動反映するマクロを組み込みます。

旧バージョン（Excel 2010〜2021）でも動作するよう、関数は基本的なものだけを使用しています。

ステップ1：年間カレンダーを作る

年入力セルを用意
- B1セルに「2025」など西暦年を入力
日付列を生成
- A3セルに次の数式を入力し、365行コピー
  
  =DATE($B$1,1,1)+ROW(A1)-1
曜日を表示
- B3セルに
  
  =TEXT(A3,"aaa")
条件付き書式で土日を色分け
- 土曜：=WEEKDAY($A3,2)=6
- 日曜：=WEEKDAY($A3,2)=7
- 祝日：=COUNTIF(祝日!$A:$A,$A3)>0

ステップ2：月間カレンダーを作る

入力セル
- B1=年、D1=月
月初を算出
- B3セルに
  
  =DATE($B$1,$D$1,1)-WEEKDAY(DATE($B$1,$D$1,1),2)+1
カレンダー枠を埋める
- 各セルに =$B$3+オフセット を入力
条件付き書式
- 他月の日付はグレー表示
- 土日を色分け

ステップ3：週間カレンダーを作る

週の開始日を指定
- B1セルに「週の開始日」（例: 2025/9/29）を入力
見出し表示
- B2以降に
  
  =TEXT($B$1+列番号,"m/d(aaa)")
条件付き書式
- 列ごとに「土曜」「日曜」「祝日」を判定して色付け

ステップ4：祝日を自動反映する

仕組み

固定祝日（元日、建国記念日など）
ハッピーマンデー制度（成人の日、海の日、敬老の日、スポーツの日）
春分・秋分（1980〜2099年は近似式で計算）
振替休日（日曜の祝日→翌平日）
国民の休日（祝日で挟まれた平日）

このルールをVBAで計算し、「祝日」シートに一覧化 → 他シートが COUNTIF で参照して色分けします。
※ネットから取得しているわけではありません。

VBAコード全文（標準モジュールに貼り付け）

Option Explicit

' 祝日シートB1に年を入力 → ボタンで実行
Public Sub FetchHolidays()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("祝日")
    
    Dim y As Long
    y = CLng(ws.Range("B1").Value)
    If y < 1949 Or y > 2099 Then
        MsgBox "Year is out of range (1949-2099).", vbExclamation, "Error"
        Exit Sub
    End If
    
    Dim hol As Collection
    Set hol = BuildJapaneseHolidays(y)
    
    ws.Range("A2:A1000").ClearContents
    Dim i As Long
    For i = 1 To hol.Count
        ws.Range("A" & (i + 1)).Value = hol(i)
    Next i
    ws.Range("A2:A" & (hol.Count + 1)).NumberFormatLocal = "yyyy/mm/dd"
    
    MsgBox CStr(y) & "年の祝日を更新しました (" & hol.Count & "日)", vbInformation, "更新完了"
End Sub

' 指定年の祝日リストを作成
Private Function BuildJapaneseHolidays(ByVal Y As Long) As Collection
    Dim c As New Collection

    ' 固定日
    AddUnique c, DateSerial(Y, 1, 1)   ' 元日
    AddUnique c, DateSerial(Y, 2, 11)  ' 建国記念の日
    If Y >= 2020 Then AddUnique c, DateSerial(Y, 2, 23) ' 天皇誕生日
    AddUnique c, DateSerial(Y, 4, 29)  ' 昭和の日
    AddUnique c, DateSerial(Y, 5, 3)   ' 憲法記念日
    AddUnique c, DateSerial(Y, 5, 4)   ' みどりの日
    AddUnique c, DateSerial(Y, 5, 5)   ' こどもの日
    AddUnique c, DateSerial(Y, 8, 11)  ' 山の日
    AddUnique c, DateSerial(Y, 11, 3)  ' 文化の日
    AddUnique c, DateSerial(Y, 11, 23) ' 勤労感謝の日

    ' ハッピーマンデー
    AddUnique c, NthWeekday(Y, 1, vbMonday, 2)   ' 成人の日
    AddUnique c, NthWeekday(Y, 7, vbMonday, 3)   ' 海の日
    AddUnique c, NthWeekday(Y, 9, vbMonday, 3)   ' 敬老の日
    AddUnique c, NthWeekday(Y, 10, vbMonday, 2)  ' スポーツの日

    ' 春分・秋分
    AddUnique c, DateSerial(Y, 3, VernalDay(Y))
    AddUnique c, DateSerial(Y, 9, AutumnDay(Y))

    ' 振替休日・国民の休日
    AddSubstituteHolidays c
    AddCitizensHoliday c

    SortCollection c
    Set BuildJapaneseHolidays = c
End Function

' 月内の第N・曜日を返す
Private Function NthWeekday(ByVal Y As Long, ByVal M As Long, ByVal FirstWeekday As VbDayOfWeek, ByVal N As Long) As Date
    Dim d As Date
    d = DateSerial(Y, M, 1)
    Do While Weekday(d, vbMonday) <> (FirstWeekday - 0)
        d = d + 1
    Loop
    NthWeekday = d + (N - 1) * 7
End Function

' 春分日（近似）
Private Function VernalDay(ByVal Y As Long) As Integer
    VernalDay = Int(20.8431 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)
End Function

' 秋分日（近似）
Private Function AutumnDay(ByVal Y As Long) As Integer
    AutumnDay = Int(23.2488 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)
End Function

' コレクションに重複なく追加
Private Sub AddUnique(ByRef c As Collection, ByVal d As Date)
    On Error Resume Next
    c.Add d, Format$(d, "yyyy-mm-dd")
    On Error GoTo 0
End Sub

' 振替休日
Private Sub AddSubstituteHolidays(ByRef c As Collection)
    Dim i As Long
    Dim arr() As Date
    arr = ToArray(c)
    For i = LBound(arr) To UBound(arr)
        If Weekday(arr(i), vbSunday) = vbSunday Then
            Dim dd As Date: dd = arr(i) + 1
            Do While IsHoliday(c, dd)
                dd = dd + 1
            Loop
            AddUnique c, dd
        End If
    Next i
End Sub

' 国民の休日
Private Sub AddCitizensHoliday(ByRef c As Collection)
    Dim i As Long
    Dim arr() As Date
    arr = ToArray(c)
    For i = LBound(arr) To UBound(arr) - 1
        Dim mid As Date: mid = arr(i) + 1
        If mid = arr(i + 1) - 1 Then
            If Weekday(mid, vbMonday) <= 5 Then
                AddUnique c, mid
            End If
        End If
    Next i
End Sub

Private Function IsHoliday(ByRef c As Collection, ByVal d As Date) As Boolean
    On Error Resume Next
    Dim tmp As Date: tmp = c(Format$(d, "yyyy-mm-dd"))
    IsHoliday = (Err.Number = 0)
    Err.Clear
    On Error GoTo 0
End Function

' 昇順ソート
Private Sub SortCollection(ByRef c As Collection)
    Dim arr() As Date: arr = ToArray(c)
    Dim i As Long, j As Long, t As Date
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(j) < arr(i) Then
                t = arr(i): arr(i) = arr(j): arr(j) = t
            End If
        Next j
    Next i
    Dim c2 As New Collection
    For i = LBound(arr) To UBound(arr)
        AddUnique c2, arr(i)
    Next i
    Set c = c2
End Sub

' Collection → 配列
Private Function ToArray(ByRef c As Collection) As Date()
    Dim arr() As Date
    ReDim arr(1 To c.Count)
    Dim i As Long
    For i = 1 To c.Count
        arr(i) = c(i)
    Next i
    ToArray = arr
End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

Option Explicit

' 祝日シートB1に年を入力 → ボタンで実行

Public Sub FetchHolidays()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("祝日")

Dim y As Long

y = CLng(ws.Range("B1").Value)

If y < 1949 Or y > 2099 Then

MsgBox "Year is out of range (1949-2099).", vbExclamation, "Error"

Exit Sub

End If

Dim hol As Collection

Set hol = BuildJapaneseHolidays(y)

ws.Range("A2:A1000").ClearContents

Dim i As Long

For i = 1 To hol.Count

ws.Range("A" & (i + 1)).Value = hol(i)

Next i

ws.Range("A2:A" & (hol.Count + 1)).NumberFormatLocal = "yyyy/mm/dd"

MsgBox CStr(y) & "年の祝日を更新しました (" & hol.Count & "日)", vbInformation, "更新完了"

End Sub

' 指定年の祝日リストを作成

Private Function BuildJapaneseHolidays(ByVal Y As Long) As Collection

Dim c As New Collection

' 固定日

AddUnique c, DateSerial(Y, 1, 1) ' 元日

AddUnique c, DateSerial(Y, 2, 11) ' 建国記念の日

If Y >= 2020 Then AddUnique c, DateSerial(Y, 2, 23) ' 天皇誕生日

AddUnique c, DateSerial(Y, 4, 29) ' 昭和の日

AddUnique c, DateSerial(Y, 5, 3) ' 憲法記念日

AddUnique c, DateSerial(Y, 5, 4) ' みどりの日

AddUnique c, DateSerial(Y, 5, 5) ' こどもの日

AddUnique c, DateSerial(Y, 8, 11) ' 山の日

AddUnique c, DateSerial(Y, 11, 3) ' 文化の日

AddUnique c, DateSerial(Y, 11, 23) ' 勤労感謝の日

' ハッピーマンデー

AddUnique c, NthWeekday(Y, 1, vbMonday, 2) ' 成人の日

AddUnique c, NthWeekday(Y, 7, vbMonday, 3) ' 海の日

AddUnique c, NthWeekday(Y, 9, vbMonday, 3) ' 敬老の日

AddUnique c, NthWeekday(Y, 10, vbMonday, 2) ' スポーツの日

' 春分・秋分

AddUnique c, DateSerial(Y, 3, VernalDay(Y))

AddUnique c, DateSerial(Y, 9, AutumnDay(Y))

' 振替休日・国民の休日

AddSubstituteHolidays c

AddCitizensHoliday c

SortCollection c

Set BuildJapaneseHolidays = c

End Function

' 月内の第N・曜日を返す

Private Function NthWeekday(ByVal Y As Long, ByVal M As Long, ByVal FirstWeekday As VbDayOfWeek, ByVal N As Long) As Date

Dim d As Date

d = DateSerial(Y, M, 1)

Do While Weekday(d, vbMonday) <> (FirstWeekday - 0)

d = d + 1

Loop

NthWeekday = d + (N - 1) * 7

End Function

' 春分日（近似）

Private Function VernalDay(ByVal Y As Long) As Integer

VernalDay = Int(20.8431 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)

End Function

' 秋分日（近似）

Private Function AutumnDay(ByVal Y As Long) As Integer

AutumnDay = Int(23.2488 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)

End Function

' コレクションに重複なく追加

Private Sub AddUnique(ByRef c As Collection, ByVal d As Date)

On Error Resume Next

c.Add d, Format$(d, "yyyy-mm-dd")

On Error GoTo 0

End Sub

' 振替休日

Private Sub AddSubstituteHolidays(ByRef c As Collection)

Dim i As Long

Dim arr() As Date

arr = ToArray(c)

For i = LBound(arr) To UBound(arr)

If Weekday(arr(i), vbSunday) = vbSunday Then

Dim dd As Date: dd = arr(i) + 1

Do While IsHoliday(c, dd)

dd = dd + 1

Loop

AddUnique c, dd

End If

Next i

End Sub

' 国民の休日

Private Sub AddCitizensHoliday(ByRef c As Collection)

Dim i As Long

Dim arr() As Date

arr = ToArray(c)

For i = LBound(arr) To UBound(arr) - 1

Dim mid As Date: mid = arr(i) + 1

If mid = arr(i + 1) - 1 Then

If Weekday(mid, vbMonday) <= 5 Then

AddUnique c, mid

End If

Next i

End Sub

Private Function IsHoliday(ByRef c As Collection, ByVal d As Date) As Boolean

On Error Resume Next

Dim tmp As Date: tmp = c(Format$(d, "yyyy-mm-dd"))

IsHoliday = (Err.Number = 0)

Err.Clear

On Error GoTo 0

End Function

' 昇順ソート

Private Sub SortCollection(ByRef c As Collection)

Dim arr() As Date: arr = ToArray(c)

Dim i As Long, j As Long, t As Date

For i = LBound(arr) To UBound(arr) - 1

For j = i + 1 To UBound(arr)

If arr(j) < arr(i) Then

t = arr(i): arr(i) = arr(j): arr(j) = t

End If

Next j

Next i

Dim c2 As New Collection

For i = LBound(arr) To UBound(arr)

AddUnique c2, arr(i)

Next i

Set c = c2

End Sub

' Collection → 配列

Private Function ToArray(ByRef c As Collection) As Date()

Dim arr() As Date

ReDim arr(1 To c.Count)

Dim i As Long

For i = 1 To c.Count

arr(i) = c(i)

Next i

ToArray = arr

End Function

ステップ5：完成版テンプレート

上記の手順をすべてまとめた「サンプルExcelカレンダー.xlsm」を用意しました。

年間／月間／週間カレンダー
祝日シートに年を入力 → ［最新の祝日を取得］ ボタン
祝日・土日が自動で色分け

📂 ダウンロード：Excelサンプルをダウンロード

まとめ

Excel標準機能（DATE、TEXT、WEEKDAY、COUNTIF）で年間・月間・週間カレンダーを作成
VBAマクロで祝日リストを自動生成 → 条件付き書式で色分け
配布テンプレートを使えばすぐに利用可能

Excel, トラブル対応, ブログ

Excelの共有ファイルがロックされて閉じれない！原因と解除方法まとめ

2025年9月23日管理者コメントする

業務でよく使う共有サーバ上のExcelファイル。
「誰も開いていないはずなのに編集できない」「ファイルは編集のためロックされています」と表示されて閉じれない…
そんな経験はありませんか？

本記事では、Excelの共有ファイルがロックされて閉じれない原因と、実際に解除する方法をまとめます。

よくあるエラーメッセージ

「ファイルは編集のためロックされています」
「現在使用中です。読み取り専用で開きますか？」
「保存できませんでした。他のユーザーが変更しました。名前を付けて保存してください。」

いずれも、誰も開いていないのに“開いている扱い” になっているときに出る典型的なメッセージです。

原因1：一時ロックファイル（~$ファイル）の残存

Excelは共有ファイルを開くとき、同じフォルダに「~$ファイル名.xlsx」という隠しファイルを作ります。
本来は閉じると自動削除されますが、以下のような場合に残ってしまうことがあります。

Excelが強制終了した
ネットワーク切断が起きた
サーバが応答しなかった

→ この「~$ファイル」がある限り、Excelは「まだ開かれている」と判断し、編集不可になります。

解除方法：

共有フォルダに入り、「~$ファイル名.xlsx」を削除する

原因2：サーバ側のセッションが残っている

Excelを閉じたつもりでも、サーバが「まだ開いている」と誤認してセッションが残ることがあります。
これは特にWindows ServerやNAS環境で発生しやすいです。

解除方法：

サーバ管理者に依頼し、「コンピュータの管理」→「共有フォルダ」→「開いているファイル」から該当ファイルを強制クローズする

原因3：共有ブック機能の不具合・競合

古いExcelの「ブックの共有」機能は、複数人編集時に不具合や競合を起こしやすいです。
特に同時に保存した場合、誰も開いていなくても「保存できません」などのメッセージが出やすくなります。

解除方法：

コピーを別名保存して作業を続ける
長期的には、OneDriveやSharePointに移行して「共同編集」機能を利用するのがおすすめです

再発防止策

よく使うファイルはクラウドで共同編集に移行
→ OneDrive / SharePoint / Teamsなら同時編集が可能でロックの心配が少ない。
参照用と編集用を分ける
→ 参照専用ファイルを作り、更新担当者のみが編集ファイルを扱う。
ロック解除の手順をマニュアル化
→ 「~$ファイル削除」「サーバで強制クローズ」を手順化しておくとトラブル対応がスムーズ。

まとめ

原因の大半は「~$ファイル残り」か「サーバのセッション残り」
応急処置は「~$ファイル削除」または「管理者による強制クローズ」
頻発するなら クラウド共同編集に移行 するのが根本解決

💡 現場では「Excelがロックされて閉じれない！」という声が上がりがちですが、仕組みを知っておけば慌てず対処できます。

Excel, ブログ

【保存版】Excelで文字列を分割する方法（区切り位置＆関数）

2025年9月15日管理者コメントする

Excelで大量のデータを扱っていると「氏名を姓と名に分けたい」「住所から都道府県だけ抽出したい」といった場面がよくあります。
そんなときに便利なのが 文字列を分割する方法 です。

Excelには以下の2つの方法があります。

区切り位置 機能で一括分割
関数で動的に分割

さらに Excel 365以降なら TEXTSPLIT 関数 を使うことで一気に処理できます。本記事では、それぞれの使い方をわかりやすく解説します。

1. 区切り位置を使って文字列を分割する方法

「区切り位置」は、セル内の文字列を スペース・カンマ・タブ などの区切り文字で分割し、複数列に展開する機能です。

手順

分割したいセル範囲を選択
[データ] タブ → [区切り位置] をクリック
「区切り文字あり」を選んで [次へ]
区切り文字（スペース、カンマなど）を指定
[完了] を押すと自動で分割

例

「山田太郎」 → 「山田」「太郎」に分割
「東京都,新宿区,西新宿」 → 「東京都」「新宿区」「西新宿」に分割

✅ メリット

ワンクリックで大量のセルを一気に処理可能
初心者でも簡単

⚠️ デメリット

元データが更新されても自動反映されない

2. 関数を使って文字列を分割する方法

データが更新されても動的に処理したい場合は関数を利用します。

代表的な関数

LEFT / RIGHT / MID 関数

=LEFT(文字列, 文字数) → 先頭から指定文字数を抽出
=RIGHT(文字列, 文字数) → 末尾から指定文字数を抽出
=MID(文字列, 開始位置, 文字数) → 任意の位置から文字を抽出

FIND / SEARCH 関数

=FIND(" ",A2) → セルA2のスペース位置を検索
SEARCH は大文字小文字を区別せず検索可能

3. TEXTSPLIT関数（Excel 365以降）

Excel 365以降では TEXTSPLIT を使えば一発です。

構文

例

→ 「山田」「太郎」に分割

住所の例

→ 「東京都」「新宿区」「西新宿」に分割

✅ シンプルで応用も簡単！

4. 古いExcelでTEXTSPLITを代替する方法

Excel 2016 / 2019 など TEXTSPLIT未対応のバージョンでは、LEFT / MID / RIGHT / FIND / LEN の組み合わせで対応できます。

氏名の分割（A2セルが「山田太郎」の場合）

姓（山田）

名（太郎）

住所の分割（E2セルが「東京都新宿区西新宿」の場合）

都道府県

市区町村

町域

⚠️ 注意：スペースが「全角」で入力されている場合は、事前に

で半角に置換してから使うと安定します。

5. 区切り位置と関数の使い分け

一度だけ分割する場合 → 区切り位置が便利
更新されるデータを扱う場合 → 関数を使うのがベスト
Excel 365以降のユーザー → TEXTSPLITで最速処理

まとめ

Excelで文字列を分割する方法は大きく分けて以下の3つ：

区切り位置（手早く一括分割）
TEXTSPLIT関数（Excel 365以降）（最もシンプル）
LEFT / MID / RIGHT 関数の組み合わせ（古いバージョン対応）

環境や目的に合わせて最適な方法を選べば、日常業務がさらに効率化できます。

AI, ChatGPT, Excel, ブログ

ChatGPTにExcelマクロを書かせてCSVを自動処理｜初心者でもできるフィルタリング自動化

2025年9月9日管理者コメントする

はじめに

業務でCSVデータを扱う機会は多いですが、毎回手作業でフィルタリングするのは大変です。
そんなときに便利なのが Excelマクロ（VBA）による自動処理。

しかも今は、ChatGPTに「CSVを読み込んでフィルタリングするマクロを書いて」と依頼するだけで、即座にマクロコードを生成してくれます。

この記事では、その手順を実際の例で紹介します。

手順①：ChatGPTに依頼する

ChatGPTに次のように入力します。

プロンプト例：

CSVファイルを読み込んで、列Bが「完了」のデータだけを新しいシートに表示するExcel VBAマクロを書いてください。

👉 条件（例：「列Bが完了」）は自由に変更できます。

手順②：ChatGPTが生成したマクロコード

ChatGPTは以下のようなコードを生成してくれます。

Sub ImportAndFilterCSV()
    Dim ws As Worksheet
    Dim importWs As Worksheet
    Dim filePath As String
    Dim lastRow As Long
    Dim i As Long
    Dim outputRow As Long
    
    ' CSVファイルのパスを指定
    filePath = "C:\Users\YourName\Documents\sample.csv"
    
    ' 新しいシートを作成
    Set importWs = Sheets.Add
    importWs.Name = "CSV_Import"
    
    ' CSVファイルを読み込み
    With importWs.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=importWs.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
    
    ' フィルタリング結果を出力するシートを作成
    Set ws = Sheets.Add
    ws.Name = "Filtered"
    
    lastRow = importWs.Cells(importWs.Rows.Count, "A").End(xlUp).Row
    outputRow = 1
    
    ' 列Bが「完了」の行だけコピー
    For i = 2 To lastRow
        If importWs.Cells(i, 2).Value = "完了" Then
            importWs.Rows(i).Copy ws.Rows(outputRow)
            outputRow = outputRow + 1
        End If
    Next i
End Sub

Sub ImportAndFilterCSV()

Dim ws As Worksheet

Dim importWs As Worksheet

Dim filePath As String

Dim lastRow As Long

Dim i As Long

Dim outputRow As Long

' CSVファイルのパスを指定

filePath = "C:\Users\YourName\Documents\sample.csv"

' 新しいシートを作成

Set importWs = Sheets.Add

importWs.Name = "CSV_Import"

' CSVファイルを読み込み

With importWs.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=importWs.Range("A1"))

.TextFileParseType = xlDelimited

.TextFileCommaDelimiter = True

.Refresh BackgroundQuery:=False

End With

' フィルタリング結果を出力するシートを作成

Set ws = Sheets.Add

ws.Name = "Filtered"

lastRow = importWs.Cells(importWs.Rows.Count, "A").End(xlUp).Row

outputRow = 1

' 列Bが「完了」の行だけコピー

For i = 2 To lastRow

If importWs.Cells(i, 2).Value = "完了" Then

importWs.Rows(i).Copy ws.Rows(outputRow)

outputRow = outputRow + 1

End If

Next i

End Sub

手順③：Excelに貼り付ける

Excelを開き、Alt + F11でVBAエディタを起動
「挿入」→「標準モジュール」を選択
上記コードを貼り付け
CSVファイルのパス（filePath）を自分の環境に合わせて変更

手順④：マクロを実行する

Excelに戻り、Alt + F8を押して「ImportAndFilterCSV」を実行
新しいシート「Filtered」に、列Bが「完了」のデータだけが表示される

これでCSVのフィルタリングが自動化できました！

応用ポイント

条件を「完了」以外に変えることで、自由にフィルタリング可能
複数条件もIf文を追加すれば対応できる
定期的に同じCSVを処理する場合は、処理時間を大幅に短縮できる

まとめ

ChatGPTを活用すれば、複雑に思えるCSV読み込み＋フィルタリング処理も、たった1行の依頼でマクロコードが完成します。

毎日の業務で繰り返しCSV処理をしている方は、ぜひChatGPTにコード生成を任せてみてください。

👉 次回は「条件付きでセルに色をつけるマクロ」をChatGPTで生成する方法を紹介予定です。

AI, ChatGPT, Excel, ブログ

👉 ChatGPTでできるExcel自動化の基本4ステップ｜列A＋Bを合計して列Cに表示する方法

2025年9月9日管理者コメントする

毎日のExcel作業で「同じ計算を繰り返すのが面倒…」と感じていませんか？
実はChatGPTを使えば、数行の依頼だけでExcelマクロを自動生成でき、作業を一気に効率化できます。

この記事では、列Aと列Bを合計して列Cに表示するシンプルなマクロをChatGPTに作らせる手順を紹介します。
初心者でもコピペで使えるので、今日からすぐに実践可能です。

手順①：ChatGPTに依頼するプロンプト例

まずはChatGPTを開き、次のように指示を入力します。

プロンプト例：

手順②：ChatGPTが生成したマクロコード

ChatGPTからは以下のようなコードが返ってきます。

Sub SumColumns()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow
        Cells(i, 3).Value = Cells(i, 1).Value + Cells(i, 2).Value
    Next i
End Sub