全角スラッシュで囲まれた文章を隣列に移動して削除するよ

この説明は、ChatGPTで作成しています。

このプロシージャは、ExcelのVBAを使って、セル内の文章から全角スラッシュ（／ と ＼）で囲まれた部分を探し出し、それを隣のセルに移動して、元のセルからは削除する処理を行います。

仕組み

1. 正規表現の設定:
   このプロシージャでは、正規表現を使って全角スラッシュで囲まれた文章を見つけます。
   `Set reg = CreateObject("VBScript.RegExp")` で、正規表現を扱うためのオブジェクトを作成し、次に `.Pattern = "／([\s\S]?)＼"` で検索パターンを設定しています。ここでは、／* と ＼ の間にある全ての文字を対象にしています。

2. セルの処理:
   `For Each myRng In Selection` で、選択したセル範囲を1つずつ処理します。
   まず、`txt = myRng.Value` でセルの内容を取得し、その後 `Set match = reg.Execute(txt)` で正規表現を使って全角スラッシュで囲まれた部分を探します。

3. 隣のセルに移動:
   見つけた文章は、`myRng.Offset(0, 1).Value = match(0).Value` で隣のセルに移動されます。

4. 元のセルから削除:
   最後に、`txt = reg.Replace(txt, "")` で見つけた部分を元のセルから削除し、`myRng.Value = txt` でその内容を元のセルに戻します。

注意点

• 全角スラッシュで囲まれた文章がない場合は、元のセルの内容はそのままになります。

• `Application.ScreenUpdating = False` によって画面の更新が一時停止されるので、大量のデータを処理する際に作業が高速化されます。

これによって、Excelシート内のデータ整理が簡単に行えます。プログラミング初心者の方でも、コードの流れを理解しやすいように工夫されています。

Sub 全角スラッシュで囲まれた文章を隣列に移動して削除するよ()
    Application.ScreenUpdating = False
            
    Dim reg
    Set reg = CreateObject("VBScript.RegExp")   'オブジェクト作成
    Dim myRng As Range
    Dim txt As String
    Dim i As Long
    Dim match As Object
    With reg
        .Pattern = "／([\s\S]*?)＼"
        .IgnoreCase = True
        .Global = True
    End With
    On Error Resume Next
    For Each myRng In Selection
        txt = myRng.Value
        Set match = reg.Execute(txt)
        If match.count > 0 Then
            myRng.Offset(0, 1).Value = match(0).Value ' マッチしたテキストを隣の列に出力
        End If
        txt = reg.Replace(txt, "")
        myRng.Value = txt
    Next myRng
    Application.ScreenUpdating = True
End Sub

• Excel VBA　リファレンス | Microsoft Learn

• この記事のYouTube動画はこちら

---

Translation:

Moving and Deleting Text Enclosed in Full-Width Slashes to the Adjacent Column

This explanation was created using ChatGPT.

This procedure in Excel VBA identifies text enclosed in full-width slashes (like ／ and ＼), moves it to the adjacent cell, and deletes it from the original cell.

How It Works

1. Setting Up Regular Expression:
   The procedure uses regular expressions to find text enclosed in full-width slashes.
   `Set reg = CreateObject("VBScript.RegExp")` creates an object to handle regular expressions, and `.Pattern = "／([\s\S]*?)＼"` sets the search pattern, targeting everything between the ／ and ＼ characters.

2. Processing Each Cell:
   The loop `For Each myRng In Selection` processes each cell in the selected range.
   First, `txt = myRng.Value` retrieves the cell content, and then `Set match = reg.Execute(txt)` uses the regular expression to find text enclosed by full-width slashes.

3. Moving to Adjacent Cell:
   The found text is moved to the adjacent cell with `myRng.Offset(0, 1).Value = match(0).Value`.

4. Deleting from Original Cell:
   Finally, `txt = reg.Replace(txt, "")` removes the found text from the original cell, and `myRng.Value = txt` updates the cell content.

Notes

• If no text is found enclosed in full-width slashes, the original cell content remains unchanged.

• `Application.ScreenUpdating = False` temporarily stops screen updates, speeding up the process when dealing with large amounts of data.

This makes it easy to organize data in Excel sheets, with the code flow designed to be understandable even for programming beginners.

• Excel VBA Reference | Microsoft Learn

• Watch the YouTube video here

---

Hashtags:
#excel #できること #vba #正規表現 #テキスト操作 #隣のセルに移動 #VBA初心者 #エクセル自動化 #データ整理 #テキスト抽出 #セル操作 #スクリプト #マクロ #データ処理 #プログラム解説 #オフィス業務効率化 #Excelマクロ #コード解説 #ExcelVBA #簡単操作