Regexを使用して1文字を繰り返すVBAを検索

Question

これは先週VBAを学んできたので、データベースクリーニングツールをコーディングしました。しかし、私は繰り返し文字の兆候を除去するクリーンを実装しようとしています。具体的にはxxx、TTTTT、6666などです。しかし、オンラインで検索していくつかの調査を行ったところ、解決策を見つけることができませんでした。

私は正規表現は、このようなもののようになり考え出し：「$^[（\ W）+]」

を しかし、それはただの単語の文字を見つけて、私は、検索を設定する必要がそれらを交換します何度も何度も何度も何度も何度も繰り返す

私は誰かが "^（。）\ 1 + $"というトリックをしているのを見ましたが、私は検索したくなかったデータの端を切り落としました。

私はこのことに関する話題がないことにショックを受けています。正規表現は、ハードコードを行うのではなく、それを見つける最も簡単な方法であると考えました。セル値をルーピングして各文字をチェックします。

ありがとうございました。

Answer 1

このようなことを試すことができます。あなたの正規表現を(.)\1+に変更したので、どこでも繰り返し文字を削除できます。ツール>リファレンス> Microsoft VBScript正規表現5.5でRegexpを追加することを忘れないでください。

 
Public Function cleanRange(cells As range) 
    Dim pattern As String: pattern = "(.)\1+" 
    Dim subst As String: subst = "$1" 
    Dim regex As New RegExp 

    Dim cell As range 
    For Each cell In cells 
     With regex 
      .Global = True 
      .pattern = pattern 
      If .Test(cell.Value) Then 
       cell.Value = .Replace(cell.Value, subst) 
      End If 
     End With 
    Next cell 
End Function 

Answer 2

私はそれをこのようにコード化し、それが必要な方法で機能しました。

For pp = 1 To Len(Sheets(1).Cells(x, "I").Value) 
        char1 = Mid(Sheets(1).Cells(x, "I").Value, pp, 1) 
        If pp < Len(Sheets(1).Cells(x, "I").Value) Then 
         char2 = Mid(Sheets(1).Cells(x, "I").Value, pp + 1, 1) 
         If char1 <> char2 Then 
          Exit For 
         End If 
        Else 
         Rows(x).EntireRow.Delete 
         delFlag = 1 
         Exit For 
        End If 
       Next