Excelマクロによる受番・氏名反映作業
以下のエクセル作業をマクロで行いたい ①C列に1列追加 ②A列に入っている文字を追加したC列に反映させる 例） 受番：4029B 名前：柴田 弘 顧客：ヤマダ 住所：東京都八王子市 屋根：ガルバ（2世帯？） 15 3 施工：- 外壁：1/20→30.31 足場：1/27→2/5 備考：ｷｰ0833？ 監督：熊倉090-9814-2432 工種：入線のみ◇ 受日：10/29 の場合、 名前：柴田 弘 顧客：ヤマダ 監督：熊倉090-9814-2432 と表示したい
承知いたしました。Excelの作業をマクロで行いたいとのことですね。いただいた例を元に、どのような処理を行いたいか、詳しく見ていきましょう。 まず、ご要望の処理を整理すると、以下のようになりますね。 C列に新しい列を追加する。 A列にある特定の情報を、新しく追加したC列にコピーする。 コピーする際に、A列のテキストから「名前」「顧客」「監督」の部分だけを抽出し、それらをC列にまとめて表示する。 この3つのステップをマクロで実現する方法をご提案します。 マクロによる自動化のステップ 1. 新しい列（C列）の追加 これはExcel VBAで簡単に実行できます。既存のC列にデータを挿入すると、それ以降の列が右にずれるため、まずC列を挿入するのが一般的です。 Columns("C").Insert Shift:=xlToRight このコードは、C列を基準に右にシフトしながら新しい列を挿入します。 2. A列の情報の抽出とC列への反映 ここが一番のポイントですね。A列のテキストから「名前」「顧客」「監督」を抽出し、まとめてC列に表示させる部分です。A列のデータは、例を見ると改行で区切られているようです。この改行コード（vbLf）を区切り文字として、各行を分割し、必要な情報だけを取り出す処理を行います。 具体的には、以下の手順で進めます。 A列の各セルをループ処理する。 各セルのテキストを改行コードで分割し、配列に格納する。 配列の中から、「名前：」「顧客：」「監督：」という文字列を含む行を探す。 見つかった行から、コロン（:）以降の文字列を抽出する。 抽出した3つの情報を、改行コードでつなげてC列の対応するセルに書き込む。 以下に、この処理を実装したVBAコードの例を示します。 Sub ExtractInfoToColumnC() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim cellValue As String Dim lines() As String Dim extractedInfo As String Dim name As String Dim customer As String Dim supervisor As String ' 作業対象のシートを指定します（必要に応じてシート名を変更してください） Set ws = ThisWorkbook.Sheets("Sheet1") ' A列の最終行を取得します lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' C列に新しい列を挿入します ws.Columns("C").Insert Shift:=xlToRight ' A列の各行を処理します For i = 1 To lastRow cellValue = ws.Cells(i, "A").Value lines = Split(cellValue, vbLf) ' 改行コードで分割 ' 初期化 name = "" customer = "" supervisor = "" extractedInfo = "" ' 分割された行をループして情報を抽出 Dim line As Variant For Each line In lines If InStr(line, "名前：") > 0 Then name = Trim(Mid(line, InStr(line, "名前：") + Len("名前："))) ElseIf InStr(line, "顧客：") > 0 Then customer = Trim(Mid(line, InStr(line, "顧客：") + Len("顧客："))) ElseIf InStr(line, "監督：") > 0 Then supervisor = Trim(Mid(line, InStr(line, "監督：") + Len("監督："))) End If Next line ' 抽出した情報を結合してC列に書き込む If name <> "" Then extractedInfo = extractedInfo & "名前：" & name & vbLf End If If customer <> "" Then extractedInfo = extractedInfo & "顧客：" & customer & vbLf End If If supervisor <> "" Then extractedInfo = extractedInfo & "監督：" & supervisor & vbLf End If ' 余分な改行コードを削除 extractedInfo = Trim(extractedInfo) ' C列に書き込み（改行コードで結合されたものをセルに反映） ws.Cells(i, "C").Value = extractedInfo ws.Cells(i, "C").WrapText = True ' 必要に応じて折り返し表示を有効にする Next i MsgBox "処理が完了しました！" End Sub コードの解説 Set ws = ThisWorkbook.Sheets("Sheet1"): マクロを実行するシートを指定します。もし「Sheet1」以外のシートであれば、シート名に合わせて変更してください。 lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row: A列のデータが入っている最後の行番号を取得します。 ws.Columns("C").Insert Shift:=xlToRight: C列を挿入します。 lines = Split(cellValue, vbLf): セル内のテキストを改行コード(vbLf)で分割し、linesという配列に格納します。 InStr(line, "名前：") > 0: 文字列の中に「名前：」という部分が含まれているかを確認します。 Mid(line, InStr(line, "名前：") + Len("名前：")): 「名前：」という文字列の直後から、その行の最後までを抽出します。Len("名前：")で「名前：」の文字数を取得し、その分だけ後ろから抽出を開始することで、コロン以降の情報だけを取得しています。 Trim(...): 抽出した文字列の前後に不要なスペースがあれば削除します。 extractedInfo = extractedInfo & "名前：" & name & vbLf: 抽出した情報を、"名前："というラベルとともに、改行コードでつなげていきます。 ws.Cells(i, "C").Value = extractedInfo: 結合した情報をC列のセルに書き込みます。 ws.Cells(i, "C").WrapText = True: セル内でテキストが折り返されるように設定します。これは、抽出した情報が複数行になる場合に便利です。 マクロの使い方 Excelを開き、Alt + F11 キーを押してVBAエディターを開きます。 「挿入」メニューから「標準モジュール」を選択します。 表示されたコードウィンドウに、上記のVBAコードをコピー＆ペーストします。 Excelシートに戻り、Alt + F8 キーを押してマクロダイアログを表示します。 「ExtractInfoToColumnC」を選択し、「実行」ボタンをクリックします。 これで、A列のデータが処理され、C列に指定した情報が反映されるはずです。 注意点 A列のフォーマット: このマクロは、A列の各セルが「ラベル：値」の形式で、かつ改行で区切られていることを前提としています。もし、A列のフォーマットが例と異なる場合は、コードの修正が必要になります。 「監督」の電話番号: 例では「監督：熊倉090-9814-2432」となっていますが、もし「監督：熊倉」と名前だけの場合や、電話番号の形式が異なる場合でも、このコードは「監督：」以降の文字列をそのまま抽出します。 エラー処理: より堅牢なマクロにするためには、エラー処理（例えば、A列にデータがない場合など）を追加することも考えられますが、まずは基本機能として上記で十分かと思います。 このマクロで、作業が効率化されることを願っています！もし、さらに細かい調整や別の要望があれば、遠慮なくおっしゃってくださいね。一緒に最適な方法を見つけましょう！😊