Excel 2つのブックの全セルを比較→異なっている値を出力する
Sub prcCompareSheets() Dim wbkA As Workbook, wbkB As Workbook Dim shtA As Worksheet, shtB As Worksheet Dim rngCell As Ra...
Excel
Excel Excel フィルタ抽出状態のセルにユーザー定義関数を入力、可視セルへコピー
Sub prcApplyFormulaWithCondition() ' 概要: D列が空白の場合にフィルタを適用し、条件に合致する可視セルのH列にユーザー定義関数を入力します。 ' H列に数式を入力する前に、表示形式を「数値」に変更し、2...
Excel ワークシートの先頭行を固定
Sub prcFreezeTopRow()' ワークシートの先頭行を固定する処理' アクティブなワークシートを対象とするWith ActiveWindow ' 既存の固定を解除 .FreezePanes = False ' 先頭行を固定 ....
Excel オートフィルタで抽出した後、ユーザー定義関数を入力
Sub prcApplyUDFToVisibleCellsAfterFilteringBlanksInDColumn() ' 変数宣言 Dim ws As Worksheet ' 処理対象のワークシート Dim rngVisible As ...
Excel オートフィルタのセット
Sub prcApplyAutoFilterToExtractBlanksBasedOnBColumn() ' 変数宣言 Dim ws As Worksheet ' 処理対象のワークシート ' 処理対象のワークシートを設定 Set ws =...
Excel 行ずれ（上）チェック
Sub prcCheckValuesDynamicRangeAndSkipEmpty() ' 変数宣言 Dim lngLastRow As Long ' A列のデータ入力セル終端 Dim lngRow As Long ' 繰り返し処理で使用...
Excel 指定フォルダのCSVファイルを、同一階層にある別フォルダに移動
Sub prcMoveCsvFilesToBup() ' 概要: 指定されたフォルダ内のCSVファイルを、同一階層にある「bup」フォルダに移動します。 Dim fso As FileSystemObject Set fso = New F...
Excel シート上の情報からファイル名を変更
Sub prcRenameFilesWithFullPath() Dim fso As FileSystemObject Set fso = New FileSystemObject Dim strOldFullPath As String...
Excel 既存フィールドからフルパスの生成
Sub prcOutputFullPathSimplified() ' A列のフォルダパス、B列のファイル名、C列の拡張子から、末尾のバックスラッシュが既にある前提でF列にフルパスを出力する Dim strFolderPath As Str...
Excel ファイル名変更後のフルパスを指定列に出力
Sub prcGenerateNewFilePaths() ' 指定されたシート上でファイル名変更後のフルパスをF列に出力する Dim strFolderPath As String ' フォルダパス Dim strFileName As ...