中級講座エクセルVBA（マクロ）

前回、複数のワークシートを対象として、重複したデータを削除、出現回数をワークシートに出力するということを勉強しました。今度は、その処理を複数のファイル（ブック）で処理してみましょう！
動画と同じ勉強ができるようにエクセルファイルとPDFのテキストファイルがダウンロードできます。チャレンジしてみよう！できることからコツコツそれが最良の勉強方法です。

動画中に出てくるプログラム：
Open,Close,Environ
※動画はエクセル2021で作成させていますが、古いバージョンのエクセルでも対応できると思います。

00:00 本日のダイジェスト
00:14 本日の講座内容
00:30 複数ファイルを対象とした処理
03:53 ファイル「開く」「閉じる」
06:41 コードの確認
10:33 本日の総括と今後の予定など
11:22 本日のまとめ（覚えよう！）

索引Webページを作成しました。調べたいこと・復習したい時に活用してみてね。↓
https://www.pasoz.com/youtube_m.html

サンプルページ（第131回用）↓
ダウンロードExcelファイル
https://www.pasoz.com/youtube_sample/...

テキスト・練習問題PDF（第131回用）
https://www.pasoz.com/vba/PDF/texts_1...

コードのコピーはこちらから↓
----------------------------
Sub test131()

Dim name_all As New Dictionary
Dim ws As Worksheet
Dim wb As Workbook

Dim f_path As String
f_path = Environ("USERPROFILE") & "\Desktop\test\"

Dim f_name As String
f_name = Dir(f_path)

Do Until f_name = ""

Set wb = Workbooks.Open(f_path & f_name)

For Each ws In wb.Worksheets

Dim area As Range
Set area = ws.Range("a1").CurrentRegion.Cells

Dim cell As Range

For Each cell In area
If name_all.Exists(cell.Value) = True Then
name_all(cell.Value) = name_all(cell.Value) + 1
Else
name_all.Add cell.Value, 1
End If
Next cell
Next ws

wb.Close SaveChanges:=False

f_name = Dir

Loop

Dim ws6 As Worksheet
Set ws6 = Worksheets("合計")

Dim i As Long
For i = 0 To name_all.count - 1
ws6.Cells(i + 2, 1) = name_all.Keys(i)
ws6.Cells(i + 2, 2) = name_all.Items(i)
Next i

End Sub
----------------------------
サブチャンネル
スクラッチ劇場 Scratch Theatre
   / @scratch_theatre  

中級講座エクセルVBA（マクロ）#130 【連想配列】と複数のSheet｜毎日・毎月ふぅーありがたや～
   • 中級講座エクセルVBA（マクロ）#130 【連想配列】と複数のSheet｜...  

中級講座エクセルVBA（マクロ）#129 【連想配列】でファイル管理｜手間が省けるなぁ～リンクで簡単確認！
   • 中級講座エクセルVBA（マクロ）#129 【連想配列】でファイル管理｜手間...  

中級講座エクセルVBA（マクロ）#128 【連想配列】でファイル管理｜「ファイル名」「更新日」「サイズ」見通し良し！
   • 中級講座エクセルVBA（マクロ）#128 【連想配列】でファイル管理｜「フ...  

マイクロソフト公式「Microsoft Learn」↓
https://learn.microsoft.com/ja-jp/

マイクロソフト公式VBA関数一覧↓
https://learn.microsoft.com/ja-jp/off...

#マクロ,#ExcelVBA,#vba初心者