こんにちは、SkillStack Lab運営者のスタックです。
Excelで毎月同じ転記や集計を繰り返し、「この作業をマクロで自動化できないかな」と感じていませんか。
結論から言うと、重複削除、表示行だけのコピー、シート結合、PDF保存など、デスクトップ版Excel内で繰り返す定型操作はVBAマクロと相性があります。
ただし、インターネットで見つけたコードをそのまま本番ファイルへ貼り付けるのは危険です。
シート名、列、保存先、データ形式が1つ違うだけで、必要なデータを削除したり、誤ったファイルを上書きしたりする可能性があります。
この記事では、元情シス・現役管理部門長の視点から、実務で使いやすいExcel便利マクロ8選と、実行前に変更する場所、安全にテストする方法を解説します。
掲載コードはサンプルです。必ずファイルを複製し、個人情報や実データを含まないテスト環境で確認してください。勤務先のマクロ利用ルールやセキュリティポリシーがある場合は、そちらを優先してください。
- 実務で使いやすいExcel便利マクロ8選
- コードを貼り付ける前に変更・確認する箇所
- 削除・上書き・誤送信を防ぐ安全なテスト手順
- VBA・Power Query・Python・SaaSの使い分け
Excel便利マクロ8選の早見表
最初に、作業内容と注意点を一覧で確認しましょう。
| マクロ | 主な用途 | 注意点 |
|---|---|---|
| 重複削除 | 顧客・商品リストの整理 | 行が削除されるため複製必須 |
| 日付統一 | CSVや手入力データの整形 | 変換できない文字列を確認 |
| 可視セルコピー | フィルタ後のデータ転記 | 見出しの有無を確認 |
| 部署別シート分割 | 名簿・売上表の配布 | 個人情報とシート名に注意 |
| 複数シート結合 | 支店・月別データの集約 | 列構成を統一する |
| 複数ブック結合 | フォルダー内ファイルの集約 | 対象外ファイルを除外する |
| PDF保存 | 請求書・見積書の出力 | 保存先とファイル名を確認 |
| Outlook下書き作成 | 定型メールの作成補助 | 自動送信せず目視確認する |
複数のCSVやExcelファイルを毎月同じ形で結合・整形するだけなら、VBAよりPower Queryの方が管理しやすい場合があります。
VBA、Power Query、Pythonなどの選び方が決まっていない方は、先にExcel自動化の具体例と手段の使い分けを確認してください。
マクロを実行する前の安全チェック
コードを試す前に、次の準備を行ってください。
- 元ファイルを複製する
日付を付けたバックアップを作成し、コピー側でテストします。 - マクロ有効ブックで保存する
VBAコードを残す場合は、Excelマクロ有効ブックの「.xlsm」形式を使用します。 - シート名と列を確認する
コード内の「顧客リスト」「部署」「A列」などを自分のファイルに合わせます。 - 少量のダミーデータで試す
本番件数で実行する前に、5～10行程度で結果を確認します。 - 処理前後の件数を照合する
行数、金額、合計、ファイル数が想定どおりか確認します。 - 会社の利用ルールを確認する
外部から取得したマクロを禁止している会社もあります。
コード内ではActiveSheetよりThisWorkbookを優先する
ActiveSheetやSelectionに依存すると、利用者が別のシートを開いていた場合に、意図しない場所を変更する可能性があります。
この記事のコードでは、マクロを保存しているブックを示すThisWorkbookと、具体的なシート名をできるだけ明示しています。
データ整理に使えるExcel便利マクロ
1．重複データをコピーシート上で削除する
顧客リストや商品マスタを結合すると、同じデータが複数行に入ることがあります。
Excel VBAでは、RemoveDuplicatesメソッドを使って、指定した列の組み合わせが同じ行を削除できます。
次のコードは元シートを複製し、コピーしたシートだけを処理します。
Option Explicit
Sub RemoveDuplicatesOnCopy()
Dim wsSource As Worksheet
Dim wsCopy As Worksheet
Dim lastRow As Long
Dim newName As String
Set wsSource = ThisWorkbook.Worksheets("顧客リスト")
lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
If lastRow < 2 Then
MsgBox "処理するデータがありません。", vbExclamation
Exit Sub
End If
If MsgBox("顧客リストを複製して重複行を削除します。", _
vbYesNo + vbQuestion) <> vbYes Then
Exit Sub
End If
wsSource.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Set wsCopy = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
newName = Left$("重複削除_" & Format(Now, "yyyymmdd_hhnnss"), 31)
wsCopy.Name = newName
wsCopy.Range("A1:C" & lastRow).RemoveDuplicates _
Columns:=Array(1, 2, 3), Header:=xlYes
MsgBox "コピーシート上で重複削除が完了しました。", vbInformation
End Subこの例では、A列からC列までの3項目がすべて一致する行を重複として扱います。
- 「顧客リスト」を実際のシート名に変更する
- A～C列が判定に使用する列か確認する
- 見出しがない場合は
Header:=xlNoへ変更する - 同姓同名の別人を消さないよう判定列を決める
2．認識できる日付だけを統一する
元記事では、Format関数だけで文字列や和暦を含むすべての日付を変換できるように説明していました。
しかし、Formatは値の表示形式を整えるものであり、認識できない文字列を正しい日付へ自動判定する機能ではありません。
次のコードは、Excelが日付として認識できる値と「20260101」のような8桁の数字だけを変換し、判定できない値はそのまま残します。
Option Explicit
Sub NormalizeDates()
Dim ws As Worksheet
Dim lastRow As Long
Dim c As Range
Dim convertedDate As Date
Dim failedCount As Long
Set ws = ThisWorkbook.Worksheets("日付データ")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For Each c In ws.Range("A2:A" & lastRow)
If Len(Trim$(CStr(c.Value))) > 0 Then
If TryConvertDate(c.Value, convertedDate) Then
c.Value = convertedDate
c.NumberFormat = "yyyy/mm/dd"
Else
failedCount = failedCount + 1
End If
End If
Next c
MsgBox "変換できなかったセル: " & failedCount & "件", vbInformation
End Sub
Private Function TryConvertDate(ByVal sourceValue As Variant, _
ByRef resultDate As Date) As Boolean
Dim textValue As String
Dim yearValue As Long
Dim monthValue As Long
Dim dayValue As Long
On Error GoTo ConversionFailed
If IsDate(sourceValue) Then
resultDate = CDate(sourceValue)
TryConvertDate = True
Exit Function
End If
textValue = Trim$(CStr(sourceValue))
If Len(textValue) = 8 And IsNumeric(textValue) Then
yearValue = CLng(Left$(textValue, 4))
monthValue = CLng(Mid$(textValue, 5, 2))
dayValue = CLng(Right$(textValue, 2))
resultDate = DateSerial(yearValue, monthValue, dayValue)
If Year(resultDate) = yearValue _
And Month(resultDate) = monthValue _
And Day(resultDate) = dayValue Then
TryConvertDate = True
Exit Function
End If
End If
ConversionFailed:
TryConvertDate = False
End Function「R8.1.1」「令和8年1月1日」などの和暦文字列は、パソコンの地域設定や入力状態で判定結果が変わることがあります。変換できなかった件数を確認し、必要に応じて変換ルールを追加してください。
3．フィルタ後の表示セルだけをコピーする
フィルタで絞り込んだ行だけを別シートへコピーする場合は、SpecialCells(xlCellTypeVisible)を使用します。
Option Explicit
Sub CopyVisibleCells()
Dim wsSource As Worksheet
Dim wsOutput As Worksheet
Dim sourceRange As Range
Dim visibleRange As Range
Set wsSource = ThisWorkbook.Worksheets("売上データ")
Set wsOutput = ThisWorkbook.Worksheets("抽出結果")
Set sourceRange = wsSource.Range("A1").CurrentRegion
On Error Resume Next
Set visibleRange = sourceRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If visibleRange Is Nothing Then
MsgBox "コピーできる表示セルがありません。", vbExclamation
Exit Sub
End If
wsOutput.Cells.Clear
visibleRange.Copy Destination:=wsOutput.Range("A1")
Application.CutCopyMode = False
MsgBox "表示中のセルをコピーしました。", vbInformation
End Subコードを実行する前に、売上データシート側で必要なフィルタを設定しておきます。
- コピー先の既存データを消してよいか確認する
- 見出し行もコピーされることを確認する
- 結合セルを含む表では事前にテストする
- フィルタ条件が正しいか画面上で確認する
シートやブックを整理するExcel便利マクロ
4．データを部署別のシートへ分割する
1つの社員名簿や売上表を、部署・支店・担当者ごとのシートに分割する例です。
次のコードでは、C列に部署名が入っていることを前提にしています。
Option Explicit
Sub SplitDataByDepartment()
Dim wsSource As Worksheet
Dim wsOutput As Worksheet
Dim lastRow As Long
Dim lastColumn As Long
Dim departmentCell As Range
Dim departmentName As Variant
Dim departmentList As Object
Dim outputSheetName As String
Dim sourceRange As Range
Set wsSource = ThisWorkbook.Worksheets("社員名簿")
Set departmentList = CreateObject("Scripting.Dictionary")
lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
lastColumn = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
For Each departmentCell In wsSource.Range("C2:C" & lastRow)
If Len(Trim$(CStr(departmentCell.Value))) > 0 Then
departmentList(Trim$(CStr(departmentCell.Value))) = True
End If
Next departmentCell
Set sourceRange = wsSource.Range( _
wsSource.Cells(1, 1), _
wsSource.Cells(lastRow, lastColumn))
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
For Each departmentName In departmentList.Keys
outputSheetName = CreateSafeSheetName(CStr(departmentName))
Set wsOutput = Nothing
On Error Resume Next
Set wsOutput = ThisWorkbook.Worksheets(outputSheetName)
On Error GoTo ErrorHandler
If wsOutput Is Nothing Then
Set wsOutput = ThisWorkbook.Worksheets.Add( _
After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
wsOutput.Name = outputSheetName
Else
wsOutput.Cells.Clear
End If
sourceRange.AutoFilter Field:=3, Criteria1:=CStr(departmentName)
sourceRange.SpecialCells(xlCellTypeVisible).Copy _
Destination:=wsOutput.Range("A1")
Next departmentName
SafeExit:
If wsSource.AutoFilterMode Then
wsSource.AutoFilterMode = False
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "シート分割中にエラーが発生しました: " _
& Err.Description, vbExclamation
Resume SafeExit
End Sub
Private Function CreateSafeSheetName(ByVal sourceName As String) As String
Dim invalidCharacters As Variant
Dim targetCharacter As Variant
invalidCharacters = Array("\", "/", ":", "*", "?", "[", "]")
For Each targetCharacter In invalidCharacters
sourceName = Replace(sourceName, CStr(targetCharacter), " ")
Next targetCharacter
sourceName = Trim$(sourceName)
If Len(sourceName) = 0 Then
sourceName = "未設定"
End If
CreateSafeSheetName = Left$(sourceName, 31)
End Function部署ごとのシートを作ると、閲覧してはいけない社員情報まで同じブックへ残る可能性があります。シートを分けるだけではアクセス権限を分離できないため、配布前に個人情報と閲覧範囲を確認してください。
5．複数シートを1つの集計シートへ結合する
支店別・月別に分かれたシートの列構成が同じであれば、データを1つの「全社集計」シートへまとめられます。
Option Explicit
Sub MergeWorksheets()
Dim ws As Worksheet
Dim wsOutput As Worksheet
Dim lastRow As Long
Dim lastColumn As Long
Dim outputRow As Long
Dim headerCopied As Boolean
Set wsOutput = ThisWorkbook.Worksheets("全社集計")
If MsgBox("全社集計シートの既存データを消して再作成します。", _
vbYesNo + vbQuestion) <> vbYes Then
Exit Sub
End If
wsOutput.Cells.Clear
outputRow = 1
headerCopied = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> wsOutput.Name Then
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
If lastRow >= 1 And lastColumn >= 1 Then
If Not headerCopied Then
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, lastColumn)).Copy _
Destination:=wsOutput.Cells(1, 1)
outputRow = 2
headerCopied = True
End If
If lastRow >= 2 Then
ws.Range(ws.Cells(2, 1), _
ws.Cells(lastRow, lastColumn)).Copy _
Destination:=wsOutput.Cells(outputRow, 1)
outputRow = wsOutput.Cells( _
wsOutput.Rows.Count, "A").End(xlUp).Row + 1
End If
End If
End If
Next ws
Application.CutCopyMode = False
MsgBox "シートの結合が完了しました。", vbInformation
End Subこのコードは、すべてのシートの列順が同じで、1行目が見出しであることを前提にしています。
シートごとに列名や順序が違う場合は、VBAで無理に位置を合わせるより、Power Queryで列名を基準に結合する方法も検討してください。
6．フォルダー内の複数ブックを結合する
各担当者や支店から届いた複数のExcelファイルを、1つの集計シートへ追加する例です。
Option Explicit
Sub MergeWorkbooksInFolder()
Dim wsOutput As Worksheet
Dim sourceWorkbook As Workbook
Dim sourceWorksheet As Worksheet
Dim folderPath As String
Dim fileName As String
Dim lastRow As Long
Dim lastColumn As Long
Dim outputRow As Long
Dim folderPicker As FileDialog
Set wsOutput = ThisWorkbook.Worksheets("ブック集計")
Set folderPicker = Application.FileDialog(msoFileDialogFolderPicker)
If folderPicker.Show <> -1 Then
Exit Sub
End If
folderPath = folderPicker.SelectedItems(1) & Application.PathSeparator
If MsgBox("ブック集計シートの既存データを消して結合します。", _
vbYesNo + vbQuestion) <> vbYes Then
Exit Sub
End If
wsOutput.Cells.Clear
outputRow = 1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo ErrorHandler
fileName = Dir(folderPath & "*.xls*")
Do While Len(fileName) > 0
If folderPath & fileName <> ThisWorkbook.FullName Then
Set sourceWorkbook = Workbooks.Open( _
Filename:=folderPath & fileName, _
ReadOnly:=True)
Set sourceWorksheet = sourceWorkbook.Worksheets(1)
lastRow = sourceWorksheet.Cells( _
sourceWorksheet.Rows.Count, "A").End(xlUp).Row
lastColumn = sourceWorksheet.Cells( _
1, sourceWorksheet.Columns.Count).End(xlToLeft).Column
If outputRow = 1 Then
sourceWorksheet.Range( _
sourceWorksheet.Cells(1, 1), _
sourceWorksheet.Cells(lastRow, lastColumn)).Copy _
Destination:=wsOutput.Cells(1, 1)
ElseIf lastRow >= 2 Then
sourceWorksheet.Range( _
sourceWorksheet.Cells(2, 1), _
sourceWorksheet.Cells(lastRow, lastColumn)).Copy _
Destination:=wsOutput.Cells(outputRow, 1)
End If
outputRow = wsOutput.Cells( _
wsOutput.Rows.Count, "A").End(xlUp).Row + 1
sourceWorkbook.Close SaveChanges:=False
Set sourceWorkbook = Nothing
End If
fileName = Dir
Loop
SafeExit:
If Not sourceWorkbook Is Nothing Then
sourceWorkbook.Close SaveChanges:=False
End If
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "ブック結合中にエラーが発生しました: " _
& Err.Description, vbExclamation
Resume SafeExit
End Sub- 対象ファイルの1枚目のシートを読み込む仕様になっている
- 1行目の見出しと列順が全ファイルで同じか確認する
- パスワード付きや破損したファイルでは停止する可能性がある
- フォルダー内の一時ファイルや関係ないブックを除外する
- 大量ファイルではPower Queryも比較する
帳票・メール作成に使えるExcel便利マクロ
写真台帳や報告書へ画像を繰り返し配置する業務では、写真を結合セルへ自動サイズ調整して貼り付けるExcelマクロも活用できます。画像の縦横比を維持した中央配置や、複数写真の一括処理を解説しています。
7．帳票を安全なファイル名でPDF保存する
Excel VBAでは、ExportAsFixedFormatメソッドを使用して、指定したシートをPDFとして保存できます。
次のコードでは、帳票シートのA1に顧客名、B1に請求日が入っていることを前提にしています。
Option Explicit
Sub ExportInvoiceAsPDF()
Dim ws As Worksheet
Dim outputFolder As String
Dim customerName As String
Dim invoiceDate As Date
Dim outputFile As String
Set ws = ThisWorkbook.Worksheets("請求書")
customerName = Trim$(CStr(ws.Range("A1").Value))
If Len(customerName) = 0 Then
MsgBox "A1に顧客名を入力してください。", vbExclamation
Exit Sub
End If
If Not IsDate(ws.Range("B1").Value) Then
MsgBox "B1に正しい請求日を入力してください。", vbExclamation
Exit Sub
End If
invoiceDate = CDate(ws.Range("B1").Value)
If Len(ThisWorkbook.Path) = 0 Then
MsgBox "先にExcelファイルを保存してください。", vbExclamation
Exit Sub
End If
outputFolder = ThisWorkbook.Path _
& Application.PathSeparator & "PDF"
If Dir(outputFolder, vbDirectory) = "" Then
MkDir outputFolder
End If
outputFile = outputFolder _
& Application.PathSeparator _
& CreateSafeFileName(customerName) _
& "_" & Format(invoiceDate, "yyyymm") _
& "_請求書.pdf"
If Len(Dir(outputFile)) > 0 Then
If MsgBox("同名のPDFを上書きしますか？", _
vbYesNo + vbQuestion) <> vbYes Then
Exit Sub
End If
End If
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=outputFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "PDFを保存しました。", vbInformation
End Sub
Private Function CreateSafeFileName(ByVal sourceName As String) As String
Dim invalidCharacters As Variant
Dim targetCharacter As Variant
invalidCharacters = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
For Each targetCharacter In invalidCharacters
sourceName = Replace(sourceName, CStr(targetCharacter), "_")
Next targetCharacter
CreateSafeFileName = Trim$(sourceName)
End Function- 印刷範囲と改ページを事前に確認する
- 同名ファイルを上書きしてよいか確認する
- 顧客名にファイル名で使えない文字がないか確認する
- PDFを開き、金額・宛名・ページ数を目視する
- 請求書の送付前に社内の承認手順を通す
8．Outlookメールを自動送信せず下書き表示する
メールの自動化では、.Sendによる即時送信を避け、最初は.Displayで下書きを表示してください。
次のコードは、現在選択している行の情報から1件のメール下書きを作ります。
Option Explicit
Sub CreateOutlookDraftFromSelectedRow()
Dim ws As Worksheet
Dim selectedRow As Long
Dim mailAddress As String
Dim companyName As String
Dim personName As String
Dim paymentAmount As Variant
Dim outlookApp As Object
Dim mailItem As Object
Set ws = ThisWorkbook.Worksheets("メールリスト")
selectedRow = ActiveCell.Row
If ActiveSheet.Name <> ws.Name Or selectedRow < 2 Then
MsgBox "メールリストの対象行を選択してください。", vbExclamation
Exit Sub
End If
mailAddress = Trim$(CStr(ws.Cells(selectedRow, "A").Value))
companyName = Trim$(CStr(ws.Cells(selectedRow, "B").Value))
personName = Trim$(CStr(ws.Cells(selectedRow, "C").Value))
paymentAmount = ws.Cells(selectedRow, "D").Value
If Len(mailAddress) = 0 Or InStr(mailAddress, "@") = 0 Then
MsgBox "メールアドレスを確認してください。", vbExclamation
Exit Sub
End If
Set outlookApp = CreateObject("Outlook.Application")
Set mailItem = outlookApp.CreateItem(0)
With mailItem
.To = mailAddress
.Subject = "ご請求内容のご確認"
.Body = companyName & vbCrLf _
& personName & " 様" & vbCrLf & vbCrLf _
& "いつもお世話になっております。" & vbCrLf _
& "ご請求金額は " _
& Format(paymentAmount, "#,##0") _
& " 円です。" & vbCrLf & vbCrLf _
& "内容をご確認ください。"
.Display
End With
Set mailItem = Nothing
Set outlookApp = Nothing
End Subこの例はWindowsの従来版Outlookを前提としたVBA連携です。新しいOutlookでは従来型のCOM連携に互換性がないため、利用中のOutlook環境を確認してください。
- 送信先メールアドレスと会社名を目視する
- 別の顧客名や金額が入っていないか確認する
- 添付ファイルを自動化する場合はファイル名と中身を確認する
- 大量送信や営業メールに使用する場合は社内ルールを確認する
- 顧客情報を含むファイルの権限と保管場所を確認する
- テスト時は自分のメールアドレスだけを使用する
サンプルコードをコピーするだけでなく、自分の帳票に合わせて修正したい方は、変数、条件分岐、繰り返し、デバッグの基礎から学ぶ必要があります。動画で画面操作を確認しながら学びたい方は、UdemyのVBAおすすめ講座を初心者・実務・ChatGPT活用別に比較した記事を参考にしてください。
VBAより別の方法が向いているケース
コードを書けることと、VBAが最適であることは別です。
| 作業 | 第一候補 | 理由 |
|---|---|---|
| 複数CSVを毎月結合する | Power Query | 取得・整形手順を再利用しやすい |
| Excel内の帳票やセルを細かく操作する | VBA | デスクトップ版Excelの操作に向く |
| Excel for the webで共同利用する | Office Scripts | VBAはWeb上で実行できない |
| メールやWebサービスも連携する | Power Automate | 複数サービス間の処理を管理しやすい |
| 大量ファイルやAPIを処理する | Python | Excel外のデータも扱いやすい |
| 勤怠・会計・問い合わせを複数人で管理する | SaaS | 権限・履歴・同時利用を標準化しやすい |
特に勤怠、会計、請求、問い合わせ管理など、停止すると会社や顧客へ影響する業務は、マクロを増やす前に専用システムも比較してください。
Excelを残す業務とクラウドへ移行する業務は、バックオフィス向け脱Excelツールの比較で整理しています。
元情シス・管理部門長としての判断
自分だけが使う小規模な作業や、停止しても影響が限定される集計であれば、VBAは現在も有効です。
一方、複数部署で利用する、作成者以外が直せない、給与・請求・顧客対応に影響するという場合は、コードを追加する前に保守担当者と代替手段を決めましょう。
VBAをPythonへ置き換えただけでも、担当者が一人なら属人化は残ります。技術の種類より、テスト、権限、バックアップ、手順書、引き継ぎの設計が重要です。
すでに多くのマクロを抱えている方は、VBAを続ける業務と別の手段へ移行する業務の判断基準も確認してください。
Excel便利マクロに関するよくある質問
コードはそのままコピペすれば動きますか？
シート名、列、見出し行、保存先がサンプルと一致しなければ動きません。
最低限、Worksheets("シート名")、列記号、開始行、ファイルパスを確認し、複製したファイルで実行してください。
マクロは.xlsx形式で保存できますか？
通常の.xlsx形式にはVBAコードを保存できません。
コードを残す場合は、Excelマクロ有効ブックの.xlsm形式で保存します。
Excel for the webでもVBAは動きますか？
Excel for the webでは、VBAマクロを作成・実行・編集できません。
ブラウザ上で共有して自動化したい場合は、Office ScriptsやPower Automateなどを比較してください。
複数ファイルの結合はVBAとPower Queryのどちらがよいですか？
毎月同じ形式のファイルを読み込み、結合・整形するならPower Queryが第一候補です。
読み込み後にシート作成、セルの書式変更、PDF出力などExcel画面の細かな操作まで行うならVBAが候補になります。
Outlookメールを完全自動送信してもよいですか？
最初から.Sendで送信する運用はおすすめしません。
.Displayで下書きを表示し、宛先、件名、本文、添付ファイルを確認してから手動で送信する運用から始めてください。
まとめ｜便利マクロは小さく安全に試す
Excel VBAを使うと、重複削除、シート結合、PDF保存などの定型操作をまとめて実行できます。
- 元ファイルを複製してから実行する
- ActiveSheetではなく対象ブックとシートを明示する
- 少量のダミーデータで結果を確認する
- 削除・上書き・送信を伴う処理は確認画面を入れる
- 複数ファイルの定期結合はPower Queryも比較する
- 重要業務や複数人利用ではSaaSも検討する
- 作成者以外が使える手順書を残す
最初から大きな業務を自動化せず、失敗しても影響が小さい作業を1つ選ぶことが重要です。
次に必要なのは、マクロを増やすことではなく、対象業務にVBAが合っているかを判断することです。
Excel内の細かな操作はVBA、定期的なデータ結合はPower Query、大量ファイルや外部データの処理はPython、複数人で使う重要業務はSaaSというように、作業内容から方法を選びましょう。
＼ 業務に合う自動化方法を選ぶ ／
Microsoft公式のVBA仕様：RemoveDuplicates／SpecialCells／ExportAsFixedFormat／MailItem.Display
