そんな悩みを解決するExcel VBAマクロを、実際に私が業務で使用している経験を基に詳しく解説いたします。

この記事でわかること

• 全シートのデータを1つのテキストファイルに一括出力する方法
• 空白セルや空白行を自動で除去する高速処理テクニック
• ファイル重複時の自動対応とエラーハンドリング機能
• 処理時間を大幅短縮する配列化技術の活用法
• 実際のビジネスシーンで使える実用的なマクロコード

なぜこのマクロが必要なのか？

私が以前勤めていた会社では、月次レポート作成時に20枚以上のExcelシートを個別にテキストファイル化する作業がありました。手作業では1時間以上かかっていたこの作業が、今回紹介するマクロを使うことでわずか30秒で完了するようになったのです。

特に以下のような場面で威力を発揮します：

• データ移行作業：システム間でのデータ受け渡し
• レポート作成：複数部署のデータを統合
• バックアップ作業：重要データのテキスト形式保存

基本版：全シートデータ一括出力マクロ

まずは基本的な機能から始めましょう。以下のコードをVBAエディタに貼り付けてください。

Sub ExportAllSheetsToOneTextFile_Basic()
    ' 変数宣言
    Dim ws As Worksheet                ' ワークシート用変数
    Dim lastRow As Long, lastCol As Long ' 最終行・最終列の位置
    Dim dataArray As Variant           ' セルデータを格納する配列
    Dim i As Long, j As Long          ' ループカウンタ
    Dim textContent As String         ' 1行分のテキストデータ
    Dim fileName As String            ' 出力ファイル名
    Dim fileNum As Integer           ' ファイル番号
    
    ' 高速化設定：画面更新を停止して処理速度を向上
    Application.ScreenUpdating = False
    ' 自動計算を無効化してCPU負荷を軽減
    Application.Calculation = xlCalculationManual
    ' イベント処理を無効化して処理の中断を防止
    Application.EnableEvents = False
    
    ' 出力ファイル名を設定
    fileName = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", "") & "_AllSheets.txt"
    fileNum = FreeFile
    
    ' ファイルを開く
    Open fileName For Output As #fileNum
    
    ' 各シートを処理
    For Each ws In ThisWorkbook.Worksheets
        ' シート名をファイルに書き込み
        Print #fileNum, "=== " & ws.Name & " ==="
        
        ' 使用範囲を取得
        If ws.UsedRange.Address <> "$A$1" Or ws.Range("A1").Value <> "" Then
            lastRow = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
            lastCol = ws.UsedRange.Columns.Count + ws.UsedRange.Column - 1
            
            ' 配列に一括読み込み（高速化のキーポイント）
            dataArray = ws.Range(ws.UsedRange.Row & ":" & lastRow).Value
            
            ' 配列からテキストを構築
            For i = 1 To UBound(dataArray, 1)
                textContent = ""
                For j = 1 To UBound(dataArray, 2)
                    If j > 1 Then textContent = textContent & vbTab
                    textContent = textContent & CStr(dataArray(i, j))
                Next j
                Print #fileNum, textContent
            Next i
        Else
            Print #fileNum, "(空のシート)"
        End If
        
        ' シート間の区切り
        Print #fileNum, ""
    Next ws
    
    ' ファイルを閉じる
    Close #fileNum
    
    ' 設定を元に戻す
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    
    MsgBox "全シートのデータを以下のファイルに出力しました:" & vbCrLf & fileName
End Sub

マクロの実行方法

1. Alt + F11を押してVBAエディタを開く
2. 挿入 → 標準モジュールを選択
3. 上記のコードを貼り付け
4. F5キーを押して実行

応用版：空白セル除去＋エラーハンドリング機能付きマクロ

実際のビジネスシーンでは、空白セルの処理やエラー対応が重要になります。以下は私が実際に使用している高機能版です。

Sub ExportAllSheetsToOneTextFile_Advanced()
    ' 変数宣言
    Dim ws As Worksheet                ' ワークシート用変数
    Dim lastRow As Long, lastCol As Long ' 最終行・最終列の位置
    Dim dataArray As Variant           ' セルデータを格納する配列
    Dim i As Long, j As Long          ' ループカウンタ
    Dim textContent As String         ' 1行分のテキストデータ
    Dim fileName As String            ' 出力ファイル名
    Dim fileNum As Integer           ' ファイル番号
    Dim fileCounter As Integer       ' 同名ファイル対策用カウンタ
    Dim baseFileName As String       ' ベースファイル名（拡張子なし）
    Dim userResponse As VbMsgBoxResult ' ユーザーの選択結果
    Dim hasData As Boolean           ' 行にデータがあるかの判定フラグ
    Dim processedRows As Long        ' 処理した行数のカウント
    Dim startTime As Double          ' 処理時間計測用
    
    ' 処理開始時刻を記録
    startTime = Timer
    
    ' エラーハンドリングを有効化
    On Error GoTo ErrorHandler
    
    ' 高速化設定：画面更新を停止して処理速度を向上
    Application.ScreenUpdating = False
    ' 自動計算を無効化してCPU負荷を軽減
    Application.Calculation = xlCalculationManual
    ' イベント処理を無効化して処理の中断を防止
    Application.EnableEvents = False
    
    ' ベースファイル名を作成（拡張子を除去）
    baseFileName = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", "")
    baseFileName = Replace(baseFileName, ".xlsm", "") ' マクロ有効ブックにも対応
    baseFileName = Replace(baseFileName, ".xls", "")   ' 旧形式にも対応
    
    ' 初期ファイル名を設定
    fileName = baseFileName & "_AllSheets_NoBlank.txt"
    
    ' 同名ファイルが存在するかチェック
    If Dir(fileName) <> "" Then
        ' 同名ファイルが存在する場合、ユーザーに確認
        userResponse = MsgBox("ファイル「" & fileName & "」が既に存在します。" & vbCrLf & _
                             "上書きしますか？" & vbCrLf & vbCrLf & _
                             "はい：上書き保存" & vbCrLf & _
                             "いいえ：連番付きで新規作成" & vbCrLf & _
                             "キャンセル：処理を中止", _
                             vbYesNoCancel + vbQuestion, "ファイル上書き確認")
        
        ' ユーザーの選択に応じて処理を分岐
        Select Case userResponse
            Case vbYes
                ' 上書き保存を選択：そのまま処理続行
            Case vbNo
                ' 連番付きファイル名を生成
                fileCounter = 1
                Do While Dir(baseFileName & "_AllSheets_NoBlank_" & fileCounter & ".txt") <> ""
                    fileCounter = fileCounter + 1 ' 使用可能な番号まで増加
                Loop
                fileName = baseFileName & "_AllSheets_NoBlank_" & fileCounter & ".txt"
            Case vbCancel
                ' 処理をキャンセル
                GoTo CleanUp
        End Select
    End If
    
    ' ファイル番号を取得（システムが自動割り当て）
    fileNum = FreeFile
    
    ' テキストファイルを書き込みモードで開く
    Open fileName For Output As #fileNum
    
    ' 処理開始時刻を記録（ログ用）
    Print #fileNum, "=== 空白セル除外エクスポート開始時刻: " & Now() & " ==="
    Print #fileNum, ""
    
    ' 全ワークシートを順次処理
    For Each ws In ThisWorkbook.Worksheets
        ' シート名をセクションヘッダーとして出力
        Print #fileNum, "=== シート名: " & ws.Name & " ==="
        processedRows = 0 ' 処理行数をリセット
        
        ' シートに使用されているセル範囲があるかチェック
        If ws.UsedRange.Address <> "$A$1" Or ws.Range("A1").Value <> "" Then
            ' 使用範囲の最終行・最終列を取得
            lastRow = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
            lastCol = ws.UsedRange.Columns.Count + ws.UsedRange.Column - 1
            
            ' 使用範囲全体を配列に一括読み込み（高速化のキーポイント）
            dataArray = ws.Range(ws.UsedRange.Row & ":" & lastRow).Value
            
            If IsArray(dataArray) Then
                ' 複数セルの場合：空白行をスキップして処理
                For i = 1 To UBound(dataArray, 1) ' 行ループ
                    hasData = False ' 行にデータがあるかのフラグを初期化
                    textContent = "" ' 行データを初期化
                    
                    ' まず行全体に空白以外のデータがあるかチェック
                    For j = 1 To UBound(dataArray, 2) ' 列ループ
                        If Trim(CStr(dataArray(i, j))) <> "" Then
                            hasData = True ' データが見つかった
                            Exit For ' ループを抜ける
                        End If
                    Next j
                    
                    ' データがある行のみ処理
                    If hasData Then
                        For j = 1 To UBound(dataArray, 2) ' 列ループ
                            ' 2列目以降はタブ文字で区切り
                            If j > 1 Then textContent = textContent & vbTab
                            ' セルデータを文字列として連結（空白セルは空文字として処理）
                            If Trim(CStr(dataArray(i, j))) <> "" Then
                                textContent = textContent & CStr(dataArray(i, j))
                            End If
                        Next j
                        ' 完成した行データをファイルに出力
                        Print #fileNum, textContent
                        processedRows = processedRows + 1 ' 処理行数をカウント
                    End If
                Next i
            End If
        End If
        
        ' 処理結果を出力
        If processedRows = 0 Then
            Print #fileNum, "(このシートには空白以外のデータがありません)"
        Else
            Print #fileNum, "処理済み行数: " & processedRows & "行"
        End If
        
        ' シート間の区切り用空行を挿入
        Print #fileNum, ""
    Next ws
    
    ' 処理完了時刻を記録
    Print #fileNum, "=== エクスポート完了時刻: " & Now() & " ==="
    Print #fileNum, "=== 処理時間: " & Format(Timer - startTime, "0.00") & "秒 ==="
    
    ' ファイルを閉じる
    Close #fileNum
    
    ' 正常終了メッセージを表示
    MsgBox "空白セルを除外して全シートのデータを出力しました:" & vbCrLf & fileName & vbCrLf & _
           "処理時間: " & Format(Timer - startTime, "0.00") & "秒", _
           vbInformation, "エクスポート完了"

CleanUp:
    ' 設定を元に戻す（必ず実行される処理）
    Application.ScreenUpdating = True      ' 画面更新を再開
    Application.Calculation = xlCalculationAutomatic ' 自動計算を再開
    Application.EnableEvents = True        ' イベント処理を再開
    Exit Sub ' 正常終了

ErrorHandler:
    ' エラーが発生した場合の処理
    ' ファイルが開いている場合は閉じる
    If fileNum > 0 Then
        Close #fileNum
    End If
    
    ' エラーメッセージを表示
    MsgBox "エラーが発生しました:" & vbCrLf & _
           "エラー番号: " & Err.Number & vbCrLf & _
           "エラー内容: " & Err.Description, _
           vbCritical, "処理エラー"
    
    ' 設定を元に戻してから終了
    GoTo CleanUp
End Sub

高速化のポイント解説

1. 配列化技術の活用

従来の方法では、セルを1つずつ参照していました：

遅い方法（非推奨）
For i = 1 To lastRow
    For j = 1 To lastCol
        textContent = textContent & ws.Cells(i, j).Value
    Next j
Next i

しかし、配列化することで処理速度が10倍以上向上します：

高速な方法（推奨）
dataArray = ws.Range(ws.UsedRange.Row & ":" & lastRow).Value
For i = 1 To UBound(dataArray, 1)
    ' 配列から直接データを取得
    textContent = textContent & CStr(dataArray(i, j))
Next i

2. 画面更新の停止

Application.ScreenUpdating = False  ' 画面更新停止
Application.Calculation = xlCalculationManual  ' 自動計算停止
Application.EnableEvents = False  ' イベント処理停止

これらの設定により、処理時間を最大70%短縮できます。

実際の使用例と効果

私が実際に使用した事例をご紹介します：

月次レポート統合

• 対象：15シート、約5,000行のデータ
• 従来の手作業時間：45分
• マクロ使用後：15秒
• 時短効果：99.4%の時間短縮

よくある質問とトラブルシューティング

Q1: マクロが実行できません

A: セキュリティ設定を確認してください。

1. ファイル → オプション → トラストセンター
2. マクロの設定で「すべてのマクロを有効にする」を選択

Q2: 出力されたファイルが文字化けします

A: 以下のコードを追加してください：

textOpen fileName For Output As #fileNum Encoding:="UTF-8"

Q3: 処理が途中で止まります

A: メモリ不足の可能性があります。以下を試してください：

• 不要なアプリケーションを終了
• Excelを再起動してから実行

まとめ：Excel VBA全シートデータ一括出力について

今回紹介したマクロを使用することで、以下のメリットが得られます：

• 大幅な時間短縮：手作業の1/100以下の時間で処理完了
• 空白セル自動除去：不要なデータを自動で排除
• エラー対応：安全で確実な処理の実現
• ファイル重複対策：既存ファイルへの適切な対応

特に、配列化技術と画面更新停止の組み合わせにより、従来では考えられないほどの高速処理を実現できます。業務効率化にお役立ていただければ幸いです。

何かご質問やご要望がございましたら、お気軽にコメントでお知らせください。より良い記事作成のために、皆様のフィードバックをお待ちしております！

実質的支配者情報一覧のExcelフォーマットを作成しました。

このリストを作成し、交付申請書などの必要書類とともに法務局に提出することで、正式な証明書をもらうことができます。これは、銀行口座を開設する時などに役立ちます。

詳しい手続きについては法務局のページに記載があります。

法務省：実質的支配者リスト制度の創設（令和４年１月３１日運用開始）

www.moj.go.jp

この制度は、株式会社や特例有限会社が利用できえます。手続きは無料で、郵送でも行えます。手続きには数日かかります。

具体的には、会社が作成した実質的支配者のリストを、法務局の登記官がチェックし、保管します。そして、そのリストのコピーを、公式な印が付いた形で会社に渡します。

手続きをするには、いくつかの書類が必要です。例えば、会社の株主名簿のコピー、公証人の証明書、法人税の申告書などです。これらの書類は、リストに書かれた情報が正しいことを証明するために使います。

また、実質的支配者の身元を証明する書類や、他の会社が支配している場合の確認書類も、必要に応じて添付できます。これらの書類を提出すると、法務局がしっかりとチェックし、信頼できるリストだと認められやすくなります。

Excelを使用することで、情報の整理や更新が容易になります。ぜひご活用ください。

法務省の公式ページには、法人登記の交付申請書がExcelで公開されているのですが、なぜか不動産登記はExcelが公開されていません。

各種証明書請求手続：法務局

houmukyoku.moj.go.jp

PDFのフォームを読み取って入力できるようにしたり、印刷して手入力したりするのも面倒なので、Excelで作りました。ご自由に使ってください。

今回作成したマクロは、一つのシートに設定されている罫線の太さを一括で「一番太い線」に変更するものです。表形式の罫線なら通常の機能で簡単に変更できますが、罫線がバラバラに設定されているようなシート（例えばファミリーツリーや組織図）などの罫線を変更するのは一つ一つ手作業になるので、とても時間がかかります。

このプロセスを自動化することで、貴重な時間と労力を節約することができます。

シートに設定されているすべての罫線の太さを変えるマクロ

Sub AdjustGridlineThickness()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastCell As Range
    Dim cell As Range

    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with your actual sheet name

Application.ScreenUpdating = False
    ' Find the last cell with data in the worksheet
    Set lastCell = ws.Cells.SpecialCells(xlLastCell).Cells

    If Not lastCell Is Nothing Then

        ' Define the range to validate based on the last cell with data
        Set rng = ws.Range("A1", lastCell)

        ' Iterate through each cell in the defined range
        For Each cell In rng
            ' Check if the cell has existing gridlines
            If cell.Borders(xlEdgeLeft).LineStyle <> xlNone Then
                cell.Borders(xlEdgeLeft).Weight = xlThick ' Adjust the thickness for left gridline
            End If

            If cell.Borders(xlEdgeTop).LineStyle <> xlNone Then
                cell.Borders(xlEdgeTop).Weight = xlThick ' Adjust the thickness for top gridline
            End If

            If cell.Borders(xlEdgeRight).LineStyle <> xlNone Then
                cell.Borders(xlEdgeRight).Weight = xlThick ' Adjust the thickness for right gridline
            End If

            If cell.Borders(xlEdgeBottom).LineStyle <> xlNone Then
                cell.Borders(xlEdgeBottom).Weight = xlThick ' Adjust the thickness for bottom gridline
            End If
        Next cell
    End If
Application.ScreenUpdating = True

End Sub

※実行前にデータのバックアップを取ることを忘れないでください。

※「sheet1」という部分は実際に使うシートにあわせて名前を変えてください。

このマクロはシート内の罫線を一括で指定した太さに変更します。例えばこんな感じです。

元の罫線（細線）から、

一番太いものに変更します。

罫線の太さの種類

罫線の太さは4種類あります。「Weight = xlThick」のように表すことができ、「xlThick」の部分を下記のいずれかに変更することで、太さを自由に設定することができます。

おわりに

組織図など、ランダムにひかれた罫線の太さの変更がある場合などにご活用ください。

マクロを作成することで、手作業でやるよりも多くの時間を節約することができるようになります。

条件付き書式設定は、スプレッドシートの強力な機能で、特定の条件に応じてセルの見た目を変えたり、書式設定したりできます。

あらかじめ定められたルールや数式に基づいてセルの見た目を設定すると、データを視覚的に強調し、分析や解釈をしやすくすることができます。
トレンドや外れ値、データの重要な値を見つけるのに役立ちます。

この記事では、特定のセルが空でない場合に行全体を塗りつぶす条件付き書式設定の方法を説明します。この方法は、たくさんのデータを使って作業するときや特定のデータに注目したいときに役立ちます。

完成イメージはこんな感じで、「カレーの食べ方」が空欄でない行を塗りつぶすようにしています。

「特定のセルが空でない場合に行全体を塗りつぶす」条件付き書式の設定の仕方

手順1: スプレッドシートを開く

まず、条件付き書式設定を使うデータが入っているスプレッドシートを開いてください。スプレッドシートを編集するための権限が必要ですので、確認してください。

手順2: 範囲を選択する

次に、条件付き書式設定を使うセルの範囲またはシート全体を選択します。マウスでドラッグするか、Ctrl+Aを押してシート全体を選択することができます。

テーブルに設定する場合は、見出し部分を選択しないように範囲を選択してください。

手順3: 条件付き書式設定を選択

ツールバーの「表示形式」から「条件付き書式」を選択してください。

手順4: “カスタム式”を選ぶ

条件付き書式設定のメニューで、「カスタム式」を選んでください。これにより、条件を定義するためのカスタム式を作成できます。

手順5: カスタム式を入力する

次に、条件を定義するためのカスタム式を入力します。式の中で、セルが空でないかどうかをチェックするために、セルの参照を指定する必要があります。

例えば、セルA1が空でない場合に行全体に書式を設定したい場合、式は「=$A1<>""」となります。「$」を忘れないようにしてください。

今回の例では、「カレーの食べ方」が空欄でない場合に、塗りつぶすように設定するため、

=$G2<>""

と入力します。

手順6: 書式設定のスタイルを選ぶ

カスタム式を入力した後は、条件が満たされた場合に行全体に適用する書式設定のスタイルを選びます。背景色やフォント色、太字や斜体など、さまざまな書式設定オプションから選ぶことができます。

手順7: 条件付き書式設定を適用する

条件を定義し、書式設定のスタイルを選んだら、”適用”または”OK”ボタンをクリックして、選択した範囲に条件付き書式設定を適用します。条件を満たす行に対して、すぐに書式設定が適用されます。

手順8: 条件付き書式設定をテストする

条件付き書式設定をテストするために、条件を満たすセルにデータを入力してみてください。
データを入力すると、選んだスタイルに従って行全体が書式設定されます。セルの値を変更したり削除したりすることで、書式設定がどのように変わるかを確認できます。

今回の例では、「カレーの食べ方」が空欄でない時に塗りつぶされるようになるので、

• まだ入力が完了していない行
• 特定のセルに情報が入っているかどうか

を簡単に見分けられるようになります。

おわりに

特定のセルが空でない場合に行全体を塗りつぶす条件付き書式設定を使うと、データの見やすさが大幅にアップし、作業効率が上がります。

簡単な設定をするだけで楽になりますので、この記事で説明した方法をぜひ実践してみてください。

今回の記事では、Excelで和暦の「1年」を「元年」と表示する方法を詳しく説明します。

Excelで和暦を表示する方法

Excelで和暦を表示するには、「和暦」書式を使う必要があります。同時に「1年」を「元年」と表記するオプションにチェックを入れることで、「平成元年」のように日付を表記することができるようになります。

まずは、表記を変えたいセルを選択した状態で、「その他の表示形式」を開きます。（もしくは「Ctrl+1」でもメニューを開くことができます）

「セルの書式設定」が開きます。「日付」→「ロケール：日本語」→「カレンダーの種類：和暦」と選択し、「1年を元年と表記する」にチェックを入れます。

これで「1年」が「元年」と表記されるようになります。

そもそも「1年」と「元年」はどちらが正しいのか

和暦の「1年」と「元年」、どちらが正しいのでしょうか。実はこの点は明確にどちらが正しいとされているわけではなく、どちらを使っても良いとされています。

しかし、役所内では平成1年からの通達で「元年」とすることがルールとされています。もし役所に提出する書類などを作るときは、「元年」の方が役所の方にとっては馴染みがあるものとなります。

もちろん、どちらで作成しても効力に影響はないので、間違っていたからといって作り直す必要はありません。

おわりに

今回は和暦表示の「1年」を「元年」に直す設定の仕方をお伝えしました。

こういうかゆいところにも手が届く設定がしてあるのはExcelの素晴らしいところですね。

この記事がお役に立てれば幸いです。

数値をどう変えてみてもうまく合わない。
そもそも、行が多すぎてどこから見れば良いのか検討もつかない……。
原因がどこにあるかわからず、無駄に時間が流れる感覚だけが増していくあの感じは、イヤなものです。

Excelで集計値が合わない場合、そこには様々な原因が考えられます。

小数点以下の処理を適正にしていないとか、そもそも入力値が間違っているといったことがありますが、「データに重複がある」というのもよくあるミスです。

集計値が合わない原因を調べるときのコツは、一つ一つ切り分けて確認していくことです。
その中でも「重複を調べる」のはテクニックを使えば比較的手っ取り早くできるため、最初に試してみるのに適しています。

そこで今回は、Excelで重複を調べるときに使えるテクニックを紹介します。

もしあなたが集計値が合わないことで悩んでいるのでしたら、この記事を読んで重複を調べてみることで、問題を解決できるかもしれません。

ちなみに、数値が桁違いにまちがっている場合はデータの重複が原因である可能性がありますが、1円単位で集計値が合わない場合は、小数点以下の処理が間違っている可能性が高いです。

小数点以下の処理が間違っていないか調べるときにやることは、以前ブログ記事を書いていますので、そちらを参照してください。

Excelの計算と電卓の計算が合わないときに確認すること

EXCELで計算した数字を電卓で計算してみると、違った結果になることがあります。原因は主に端数処理が正しくされていないこと。

oggylife.com

20.05.17

重複を見分ける「条件付き書式の設定」

手っ取り早く重複を見つけるのに有効なのが、「条件付き書式の設定」です。

条件付き書式を設定することで、重複しているセルをひと目で確認することできます。
条件付き書式はホームタブ→条件付き書式→セルの強調表示ルール→「重複する値」から設定します。

この方法のメリットは、重複のあるセルに色が設定されるので、色でフィルタをかけることができることです。また、条件付き書式なので、データの変更に即時反応します。

重複しているデータを見ながら修正をするのに向いている方法です。

重複をかぞえるCOUNTIF関数

重複を除いたデータ数や、重複しているデータ数を確認したい場合は、関数を使います。

重複を除いたデータ数を数えたい場合は、SUMPRODUCT関数とCOUNTIF関数を組み合わせて、以下のように書きます。

「=SUMPRODUCT(1/COUNTIF(調べたいデータの範囲,調べたいデータの範囲))」

複雑な関数に見えますが、COUNTIF関数で一行ずつの「1÷重複しているデータ数」を出し、SUMPRODUCT関数で合計を出しているだけです。関数の検証をした画面がこちら。

本来出力されるべき「正しいデータ件数」がわかっている場合は、こちらの方法で重複を除いた件数を出すと有効です。

また、重複している件数を調べるにはCOUNTIF関数を使います。

重複している件数は一つのセルで集計することができないので、１列追加して以下のように入力します。すると、指定したセルのデータが、その列の中でいくつあるのか分かるようになります。

「=COUNTIF(調べたい列の範囲,隣のセル」

この上で、「=COUNTIF(Sheet1!$B$2:$B$11,”>=2″)」といったように2以上のセルだけ数える関数を書けば、重複しているデータだけを数えることができます。

重複しているデータを数えなくてはならない場面は多くはありませんが、例えば、もとのデータの作りがまずくて、データにダブりがある中で集計をしなくてはならないような時には必要になります。（こういうデータは集計よりも先に整形をすべきですが、それはまた別の機会に……）

関数を使うことのメリットは、常に結果を見ることができるという点です。結果を常に確認する必要があるときに、この方法を使うと良いです。

重複を取り除く方法

Excelでデータの重複を取り除く方法はいくつかありますが、僕が一番おすすめしたいのは、先に書いた”重複を見分ける「条件付き書式の設定」”で紹介した方法で重複に色をつけ、フィルタした状態で1行ずつチェックしていく方法です。

地味だし効率がいい方法ではありませんが、大事なデータを失う可能性は低いです。

CTRL+D（上のセルをコピー）やCTRL+R（左のセルをコピー）などのショートカットキーを使うことで、少しは高速化することも可能です。

また、relaxtoolsというアドインを使うことによって、半角と全角を統一したり、両端のスペースやセル内改行を取り除くことができます。このアドインはデータ整形には欠かせないツールです。

RelaxTools Addin for Excel 2013/2016/2019/Office365(Desktop) | Excelを便利にする250以上の機能を体系化したアドインはこちらです。

software.opensquare.net

重複を取り除く方法として、Excelの標準機能で「データ」タブに「重複の削除」があることを知っている人もいるかと思います。

この機能は便利なのですが「常に１行目の重複のみを残す」という特徴があります。

「必ず１行目のデータが正しい」とわかっていれば良いのですが、そうしたケースは少なく、「重複の削除」をすることで、本来残すべきだったデータを削除してしまう可能性があります。

一度データを消してしまい、その状態を保存してしまうと、復元作業に倍以上の時間がかかることになります。

重複を取り除くのは楽な作業ではありませんが、地道に丁寧にやるのが近道です。

おわりに

今回は、Excelで重複を見分ける、かぞえる、取り除くテクニックを紹介しました。

Excelを扱う上で、重複は非常にやっかいでイライラする存在です。

集計の数値が合わない原因になるほか、例えばVLOOKUPなどのルックアップ系関数で数値を引っ張ってくるときにも、最初の重複に反応してしまい、目的のデータをルックアップできない原因になります。

今回ご紹介した方法で、あなたのイライラが少しでも解決できれば嬉しいです。

蓋を開けてみれば全問正解でしたが、試験中は合格できるか不安でした。

というのも、私は模擬試験ですごく凡ミスが多かったからです。

”＜”や”＞”の方向を間違えたり、A2を指定されているのにA1に配置したり、平米あたりの単価を求める割り算の指定セルを逆にしていたり……たくさんミスをしてきました。もともと計算は得意ではないのです。

そんな自分がどうして満点をとれたのか考えてみると、やはり正しい式が入っていることをチェックするために、いくつかのテクニックを使ったからだと思います。

今日はそのテクニックについて書いてみたいと思います。
全然難しくないテクニックなので、これからMOS Excel試験を受ける方の参考になれば幸いです。

MOS Excel試験のテクニック１　空いているセルは徹底的に使う

例えば下記の問題。

予約日の○日前に相当する割引率を、右上のテーブルからひっぱります。

正解は”=HLOOKUP(H4-B4,$P$3:$R$4,2,TRUE)”なのですが、このように数式に四則演算が入ったり、関数の入れ子が必要な場合は、私は空いているスペースに部品となる数式を入れて確認していました。

こんな感じです。

こうすると①の部分と②の計算結果、右上のテーブルを見比べてちゃんと正解できているか確認できますし、「参照する列を間違える」といったミスをなくせます。

おぎ

参照列を間違えるなんてなさそうに思えますが、私は何度もやりました。

このテクニックは本当に簡単ですが、こうした四則演算だけでなく、条件付き書式を入力する場面でも強力です。

例えば下記のように、「1㎡あたりの年商が100より大きい時にセルの文字色を赤くする」といった問題でも、いきなり条件付き書式の設定画面に関数を入力するのではなく、空いているセルに部品となる関数を入力し、条件付き書式の動きと見比べることで、数式が合っていることを確認できます。

「”＞＝”と”＞”が間違っていないか」「絶対参照かそうでないか」ということに気付きやすくなり、凡ミスを防ぐことができます。

数式が複雑な場合など、このテクニックだけでは不安な時は、数式バーにある「数式の検証」をあわせて使うのも良いです。関数の計算を１ステップずつ検証することができるので、間違いに気が付きやすくなります。

もっと簡単に検証するなら、数式バーで検証したい部分だけ選択してＦ9を押せば、その部分の計算結果だけ見ることができます。

MOS Excel試験のテクニック２　関数がわからない時は、「関数の挿入」→「検索」を活用する

MOS試験では普段はなかなか使わないニッチな関数を使う場面があります。

例えばPV、FV、PMT、IRR関数などです。

「内部利益率が5％より大きいときに●●してください」という問題文を見て、「IRR関数だ！」と分かる方が珍しいので、こうしたケースではどんどん関数の検索を使ったほうが良いです。

「関数の挿入」をクリックするか、「Shift+F3」で関数を検索することができます。
「内部利益」でIRR、「返済」でPV、FV、PMTを検索することができます。

関数の説明文に「ローンの定期支払額」といった文章があるので、問題文にマッチするものを選べばOKです。（PV関数の「投資の現在価値」だけは「借り入れ可能額」等に読みかえる必要があります）

MOS Excel試験のテクニック３　「〇〇といえば■■」というパターンを覚える

もはやテクニックではありませんが（笑）、MOSは「〇〇といえば■■」というパターンを覚えているだけで得点できる問題が多いです。

• 「シート構成を保護」といえば「ブックの保護」
• 「パスワードを知っている人だけがセル範囲を編集」といえば「範囲の編集を許可する」
• 「最適な数値」といえば「ゴールシーク」

これらは機能さえ知っていれば、数クリックで完了できるものです。

「何を使えばいいか」を知っているだけで、ほぼ正解できます。
こうした「〇〇といえば」を増やすことが得点に直結します。

また、問題文の表現で関数の設定が変わる部分も、同じように覚えると良いです。

• 「より大きい」「より小さい」といえば「”＞”、”＜”」
• 「以上」「以下」といえば「”＞＝”、”＜＝”」

MOS試験って、IFSやSUMIFSなどの比較的複雑な関数を使い慣れている場合でも得点できないことがあって、その原因はだいたい問題文を読み込めていないことから発生する設定ミスなんですよね。

難しい関数や操作の設定はできるのに、「＞の向きが違う」といった簡単なミスで得点できないのはすごくもったいないです。

問題文からのパターンを覚えることが大事です。

終わりに

今日はMOS試験に関して、私なりにミスしないコツを書きました。

私は模擬試験で何度も凡ミスをして合格点に至らないということを経験して悔しかったので、本番では絶対に凡ミスをしないということを意識して望みました。多分、MOS試験自体も「難しい操作ができるか」ではなく、「指示を正確に理解してアウトプットできるか」という所を重視しているのだと思います。

ひとまず結果を出せて安心しています。

今度はVBAスタンダードを１ヶ月後に受けようと考えています。

忙しい中で勉強するのはきついですが、こうした短期の目標に挑戦するのは自分の成長にリズムができて楽しいんですよね。次も自分の望む結果を出せるように意識を高めていきます。

こんにちは、おぎです。

今日は、私の仕事で役に立ったWordのテクニックを一つ紹介します。
「複数のWordファイルを、レイアウトを崩さずに一つにする」という方法です。

文書を作成している時に、
「1ページだけ、他のWordファイルから引っ張ってきて足したい」と思うことがあります。

コピーペーストの「元の書式を保持」で貼り付けて済めば良いのですが、
余白の設定等がファイル間で異なっている場合、
コピーペーストではレイアウトが崩れてしまうことがあります。

レイアウトが崩れてしまうと数字の途中で改行されたり、文章が途中で切れるといった、
とても読めない文章になってしまうので、レイアウトを崩さずにコピペすることは大事です。

コピペではレイアウトが崩れてしまうような時は、アウトライン機能を使えば
余白を崩さずに文書を挿入することができます。今日はその方法を紹介します。

［まずは失敗例］コピーペーストでレイアウトが崩れてしまう場合

例えば下の画像で、左の履歴書の2ページ目に、右側のカバーレターを挿入するケースを見てみます。
この2つのファイルはWordのテンプレートに入っているもので、それぞれ余白が異なります。

このファイルでコピーペーストした結果は次のようになります。

２つのファイルでは余白の設定が異なるので、「元の書式を保持して貼り付け」した場合でも、
文章が切れてしまいます。

アウトライン機能でレイアウトを崩さずにページを挿入する

アウトライン機能を使うと、レイアウトを崩さずに文書を挿入することができます。
まず、Wordをアウトライン表示にします。

「表示タブ」を開き、アウトラインを選択します。

アウトライン表示→「グループ文書」→「文書の表示」→「挿入」をクリック。

ファイル選択ダイアログがでますので、挿入したいWordファイルを選択します。
この時、エラーダイアログが出る場合がありますが、
基本的に「すべて無視」で良いです。

これで、選択した文書が挿入されます。

文書のどこかをクリックし、「リンク解除」ボタンを押してから、
「アウトライン表示を閉じる」をクリックします。

アウトライン表示を解除すると、文書が挿入されているのが確認できます。
余白は元の文書と同じです。

注意が必要なのは、文字色や文字の大きさは完全に元の文書から引き継がれるわけではないということです。下の画像の文書も、元は文字の大きさが9ptですが、挿入した後は11ptとなっています。

完全に参照元の文書をコピーしたい場合は、アウトライン機能で挿入→リンク解除した後、
挿入した文書をいったん削除してから、「元の書式を保持して貼り付け」をすると良いです。

アウトライン機能で余白を整形してから、元の書式を保持して貼り付けする、という感じですね。

終わりに

今回の記事では、Wordのアウトライン機能を使って、レイアウトを崩さずに複数のWordファイルを一つにする方法について書きました。

ちょっとページを足すくらいなら、簡単なコピペや文章を入力し直すで済むのですが、
挿入したいページが数十ページの場合はそんなことできないので、このテクニックが役立ちます。

たくさんのページを挿入しなければならない場合は、このテクニックを使ってみてください。

。

この記事でわかること

• ピボットテーブルのグループ化機能を使った範囲別集計の詳細手順
• よくある失敗例と対処法で確実に成功させる方法
• 実務での活用事例と時間短縮効果
• さらなる業務効率化を実現するAI活用術

「年齢を10歳刻みで集計したい」「売上金額を1000万円単位で分析したい」そんなニーズは実務でよく発生しますが、手作業で行うと時間がかかり、ミスも起こりがちです。

実際、多くのビジネスパーソンがデータ集計に膨大な時間を費やしているのが現状です。しかし、Excelのピボットテーブル「グループ化」機能を使えば、この作業を大幅に短縮できます。

この記事では、2020年から4年間で累計10万回以上読まれた人気記事をさらにブラッシュアップし、最新のベストプラクティスとよくある失敗例の対処法を含めた完全版をお届けします。

ピボットテーブルによる範囲別集計とは？

ピボットテーブルの範囲別集計とは、連続する数値データを指定した区間で分割し、各区間の件数や合計を自動計算する機能です。ここでいう数字の範囲毎の集計というのはこういう形です。

例えば、

• 年齢データ：20-29歳、30-39歳、40-49歳…
• 売上金額：0-1000万円、1000-2000万円、2000-3000万円…
• 勤続年数：1-5年、6-10年、11-15年…

といった内容も同じ方法で集計できます。

こうした集計は実務でもよくありますが、手作業で行うよりもピボットテーブルの「グループ化」機能を使う方が圧倒的に早いです。

例によって、なんちゃって個人情報のデータを使って、「年齢別の件数を集計する」という内容で解説していきます。

【完全版】ピボットテーブル範囲別集計の手順

ステップ1：データの準備と確認

まず、集計対象のデータが適切な形式になっているか確認します。

チェックポイント：

• ヘッダー行（項目名）が1行目に設定されている
• データに空白行がない
• 数値データが文字列として認識されていない

よくある失敗例：
数値が文字列として保存されている場合、正しく集計されません。=ISNUMBER(A1)で確認し、必要に応じて「値の貼り付け」で修正してください。

ステップ2：ピボットテーブルの作成

ピボットテーブルを作成します。

集計を行うテーブルを開いた状態で、「テーブルデザイン」タブの、「ピボットテーブルで集計」をクリックします。（テーブル化されていない表の場合、「挿入」タブの「ピボットテーブル」をクリック）

すると次のような画面がでます。

ピボットテーブルをどこに作成するか、複雑な集計をするためのデータを作成するかどうか聞かれますが、よくわからなければそのままOKを押しても大丈夫です。

これで新しいシートにピボットテーブルが作成されます。次はピボットテーブルの設定を行います。

ステップ3：フィールドの設定

ピボットテーブルの「行」と「値」に、集計したい要素をドラッグ・アンド・ドロップします。

今回の場合は「年齢」をそれぞれの項目にドロップします。

画像のように表が構成されたら、正しく操作できています。

次は、「行」を一定の数字ごとにグループ化します。

ステップ4：グループ化の実行

次に、「行」の年齢をグループ化します。

年齢の列を選択した状態で、「ピボットテーブル分析」のタブから「フィールドのグループ化」をクリックします。

すると、次のような画面が出てきます。

「先頭の値」に設定した数値未満の数字は、ピボットテーブル上で「＜30」という形で表現されます。
したがって、その数字未満は「～」と表現して構わない数字をいれます。

同じように、「末尾の値」に設定した数値より大きい数字は、「>70」という形で表現されます。
こちらも、その数字より上は「～」と表現して構わない数字をいれます。

「単位」は、いくら刻みで表示を行うか設定します。年齢なら10、売上金額などであれば10,000,000と入力します。

今回は、「30～70歳の年齢層を10歳刻みで集計する」という形で設定してみます。

このようになりました。30歳未満、70歳超のデータもありますが、～という形でまとめて集計されます。

ちなみに上記画像の例は年齢の集計が「合計」されてしまっているので「件数」で集計するように、設定を変えます。ここまでの手順で件数で集計できている方は、ここまでの手順で完了です。

ステップ5：集計方法の調整

デフォルトでは「合計」で集計されるため、件数を求める場合は変更が必要です。
合計になってしまっている年齢の集計を、件数で集計するように設定を変えます。

集計列のセルを選択した状態で、「ピボットテーブル分析」の「フィールドの設定」をクリックします。（集計列を右クリックしてもいいです）

すると次のような画面が出てきます。

集計方法のうち、「個数」を選択してOKを押します。

すると、件数で集計が行われるようになります。

これで完成です。

よくある失敗例と完全対処法

失敗例1：「そのピボットテーブルのフィールド名は正しくありません」

原因：ヘッダー行に空白や重複があります。

対処法：

• 各列のヘッダーが一意であることを確認する
• 空白セルを削除または適切な名前を設定

失敗例2：データが正しく反映されない

原因：元データに不備があるか、範囲設定が間違っています。

対処法：

1. 元データの欠損値を修正
2. 「ピボットテーブルのオプション」 → **「データ」**で範囲を確認
3. 「更新」ボタンで最新データを反映

失敗例3：思った通りの集計にならない

原因：集計方法が「合計」になっている、または重複データが存在します

対処法：

• 集計方法を「個数」に変更
• 重複データを「データ」→ 「重複の削除」で処理

まとめ

今回は、数字の範囲ごとの件数集計を、ピボットテーブルで行う方法について書きました。

手順をまとめると以下のようになります。

ピボットテーブル範囲別集計の完全手順

1. ✅ データの形式確認（ヘッダー、空白、数値形式）
2. ✅ ピボットテーブル作成（挿入 → ピボットテーブル）
3. ✅ フィールド設定（行と値に同じ項目を配置）
4. ✅ グループ化実行（先頭値、末尾値、単位を設定）
5. ✅ 集計方法調整（必要に応じて「個数」に変更）
6. ✅ 結果確認と更新

この手順を覚えれば、どんな数値データでも瞬時に範囲別集計が可能になりま3。手作業で何時間もかかっていた作業が、わずか数分で完了するようになるでしょう。

範囲毎の集計作業は手作業でやるよりもピボットテーブルを使う方が圧倒的に早くて正確なので、こうした集計作業を頼まれたときは、ぜひこの方法を使ってみてください！

🚀 さらなる業務効率化を実現する次世代ツールPerplexity AI

ピボットテーブルで基本的な集計作業は大幅に効率化できましたが、より高度な分析や複雑なデータ処理には限界があります。

そこで注目されているのが、AI搭載の情報収集・分析ツールです。特にPerplexity AIは、データ分析の専門知識がなくても、自然言語での質問だけで高度な分析結果を得ることができます。

Perplexity AIでできること

📊 高度なデータ分析：

• 「この売上データの傾向を分析して、来月の予測を立てて」
• 「年齢別の購買パターンから、マーケティング戦略を提案して」
• 「競合他社の動向を調査して、対策を教えて」

⚡ リアルタイム市場調査：

• 最新の業界トレンド分析
• 競合企業の戦略調査
• 市場予測とビジネス機会の発見

📈 レポート自動生成：

• データから洞察を抽出し、プレゼン資料を自動作成
• 経営陣向けの分析レポートを数分で完成
• グラフ化と可視化も自動対応

実際の活用例

従来の作業：

• ピボットテーブルで基本集計：30分
• 市場調査：3時間
• レポート作成：2時間
• 合計：5時間30分

Perplexity AI活用後：

• 基本集計 + 高度分析 + 市場調査 + レポート作成：15分
• 効率化率：95%以上

今すぐ始められる限定の割引

Perplexity AIのPro版では、より高度な分析機能とリアルタイム情報収集が利用できます。

🎁 特別割引でPerplexity Proを始める

通常月額$20のPerplexity Proが、以下のリンクから登録すると初回$10割引で利用できます。

なぜ今Perplexity AIなのか？

1. 学習コスト不要：複雑な関数や操作を覚える必要なし
2. リアルタイム情報：最新のデータと市場動向を即座に取得
3. 多言語対応：日本語での自然な対話が可能
4. 統合分析：Excelデータと外部情報を組み合わせた高度な分析

ピボットテーブルで基礎を固めたあなたなら、Perplexity AIでさらに高次元の業務効率化を実現できるはずです。

まずは無料版から始めて、その革新的な体験を実感してみてください。きっと「もうExcelだけには戻れない」と感じるでしょう。