VBA_スピードUP
VBA_インポート
- エクセルファイルをインポートする
- CSVファイルをループ処理してインポートする *UTF-8のCSVファイル
- CSVファイルのインポート(読み込み)*QueryTables.Add 関数
- テキストファイルをループ処理してインポートする
- 別ブックの値をアクティブシートに転記する
- Googleスプレットシートをエクセルへインポートする
インポート+突合
- エクセルファイルをインポートしてDictionaryでマッチング(突合)して最終列に突合する
- 複数ファイルを連続でインポート対応:エクセルファイルをインポートする時、ダイアログでキーとアイテムを選択した後、Dictionaryで最終列にマッチング(突合)する
- 別ファイルをインポートしてインデックスマッチでマッチングして項目列に追加する
- 新規シート作成して別ファイルをインポートしてインデックスマッチでマッチングンポートする
- フォルダ内のファイルをインデックス・マッチで全てインポートかつ突合する
- CSVファイルを特定シートにインポートしてマッチングする
保存
- エクセル保存
- CSV保存
- PDF保存
- テキスト保存
コピー・貼付け
- 可視セルをコピーして右隣りのシートに貼り付ける *右隣りのシート・新規シートに貼付け
- 可視セルをコピーして右隣りのシートの文末に転記する
- オートフィルタで抽出した表を右隣のシートの文末に貼り付ける *列・行を抽出
- 複数列を1列にして別シートに転記する
縦(行)ループ(繰り返し)・シート内
構文一覧
シート内に結果を記入
- 縦(行)ループして、連番を振る
- 縦(行)ループして、曜日を記入する
- 縦(行)ループして、切り捨て・切り上げをする
- 縦(行)・横(列)ループして、計算して合計を記入する
- 縦(行)・横(列)ループして、特定のワードに一致した行・列を削除する
- 縦(行)ループして、一致したセルをカラー表示する *Loop・find
- 縦(行)ループして、文字列を部分一致させる *Like
- 縦(行)ループして、複数ワードで一致させる
- 縦(行)ループして、シート内の異なる表を比較して一致させる
チェック作業
- 縦(行)ループして、重複データがあった場合、カラー表示する
- 縦(行)ループして、重複したデータ(複数の語句)を含む行を削除する
- 縦(行)ループして、重複データのみ隣の列に抽出する *ユニークデータ
- 縦(行)ループして、重複しているデータの隣に「重複」と表記する
- 縦(行)ループして、重複データを抽出して新規シートに貼り付ける
- 指定列の重複している項目別に集計/ディクショナリ
結果を別シートに転記する
- 縦(行)ループして、シート内に特定ワードがあるか検索して新規シートに転記する
- 縦(行)ループして、条件に一致するデータを別シートへ転記する
- 縦(行)ループして、キーとアイテムを抽出して新規シートに転記する
- 縦(行)ループして、複数列を1列にして別シートに転記
横(列)ループ 繰り返し・シート内
表ループ(繰り返し)・シート内
- 二重ループで指定した範囲の表を処理する
- 配列で指定した範囲の表をループ処理する *隣のシートに転記/表内のセルを検索
- ループ処理して最終行と最終列に合計を表示する
- 範囲を指定して表をループ処理する *インプットボックス/最終行まで選択
縦持データ⇔横持データ変換
マッチング(突合)・シート間
基シートに結果を記入
- 二重ループ:アクティブシートと右隣のシート間でマッチしたものにOKを記入
- For~Next:シート間をマッチングして基シートに無いデータを追加して色をつける
- For~Next:シート間でキー一致かつ空欄でない場合該当データを貼付け
配列を使用
- 配列:アクティブシートと右隣りのシート間でリストの文字があるかを調べる
- 配列:特定シートとアクティブシート間でマッチしたものにOKを記入
- Dictionary:アクティブシートと右隣のシート間でマッチしたデータをアクティブシートの最終列に値を記入
- Dictionary:アクティブシートと右隣りのシート間で二語をキーとして異なるデータに1をたてる
- Dictionary:アクティブシートと右隣りのシートの差異を調べる
関数
相手シートに結果を記入
基のシートと相手のシートの両方に結果を記入
新規シートに結果を記入
- Dictionary:アクティブシートと右隣のシート間でマッチしたデータの行を新規シートに貼付け
- Dictionary:アクティブシートと右隣のシート間で複数ワードでマッチングしたでーたを新規シートに貼付け
- Dictionary:アクティブシートと右隣りのシートの差異をディクショナリで調べてそれぞれを新規シートに転記
- find:特定シートと右隣のシート間でマッチングした行を新規シートに貼付け
- 新規シート記入/別シートマッチング/Index・Match
別ファイルへ結果を記入
指定したシートの最終行に結果を記入
集計
別ファイル・アクティブシート間
フォルダ内の複数のエクセルから検索
フィルタ
- オートフィルタ
- オートフィルタを設定する *色で抽出/語句で抽出
- オートフィルタで抽出した表を右隣のシートの文末に貼り付ける
- 可視セルに連番を記入
- アドバンスフィルタ
ピポットテーブル
集計
- カウント
- 合計
- カウントと合計
- 指定した範囲のデータをカウント・合計する *SUBTOTAL
グラフ
データ型の変換
- 指定した範囲の表示形式を文字列や標準に変換する
- 指定した範囲のデータ型を日付に変換する
- 指定した範囲の表示形式を標準に変換する
- 指定した範囲の文字列を数値に変換する
- 指定した範囲の数値を文字列に変換する
- 全角を半角にするなど指定した範囲の文字列を変換する
- 指定した範囲の特定のデータを削除する *スペース削除/()”カッコ”の削除/スペース削除
- 指定した範囲のデータに特定の文字を追加する(ループ)
- Replace関数で特定の文字やデータを変換する
- Replace関数を使用して会社名の表記を統一する
- 範囲を指定して振り仮名を入力する
表示形式の確認・表示形式が変更されない場合の処理
セルの分割
- Split関数を使って、区切り文字でセルを分割する
- InStr関数を使って、特定の文字列を指定してセルを分割する
- TextToColumns(区切り位置機能)を使って、セルを分割する
- 都道府県でセルを分割する
VBA_その他
- フォルダ内のすべてのファイルを処理
- ファイル内のすべてのシートを処理
- シートを追加する *右隣りに作成/左隣りに作成/別ウィンドウを立ち上げてシートを作成
- パスを指定して特定の文字を含むファイルを開く
- ESCを記入してマクロを停止(エラー処理)できるようにする
- ワークシート関数・数式を入力する数入力
- 行や列を非表示・削除する
- 行や列・指定した範囲のセルを挿入する
- インプットボックスで行・列・表の範囲を指定する
- 別ウィンドウを表示する
- 数値のみ取り出す
- 表の範囲を設定する
- セル範囲を指定して列数をMsgboxに表示:MsgBox Selection.Columns.Count
- シートのカラー表示をクリア:Activesheet.Cells.Clear
- ボタンの設置