ExcelのCSVから連続した重複値を削除するVisual Basic

Question

Excel 2007 VBマクロでは、カンマ区切り文字列を分割して分割し、それを減らして連続する重複値を削除します。したがって、「2,2,2,1,1」は「2,1」になり、「3,3,3,2,3,3,3」は「3,2,3」になります。

これはうまくいくようですが、「If If currentVal.equals（prevVal）= False Then」になると、ランタイムエラー424、「Object required」になります。

私はVBを行って以来ずっとずっと続いていました。VP6でした。

Sheets("Sheet1").Select 
Range("I1").Select 

Dim data() As String 
Dim currentVal, prevVal As String 
Dim output As String 
Dim temp As Boolean 

Do Until Selection.Value = "" 
     data = Split(Selection, ",") 
     output = "" 
     prevVal = "" 
     For Each elem In data 
      currentVal = CStr(elem) 
      If currentVal.equals(prevVal) = False Then 
      output = output + elem + "," 
      End If 
     Next elem 
     Selection.Value = output 
     Selection.Offset(1, 0).Select 
Loop 

Answer 1

いくつか問題があります。 ...

Dim currentVal as String, prevVal as String 

することができますようにいないVBAでのショートカットの種類残念ながら：

Dim currentVal, prevVal As String 

あなたが使用する必要があります：

Dim currentVal as String 
Dim prevVal As String 

かを第一に、あなたが使用することはできません。第2に、文字列はVBAのオブジェクトではないため、等価（または他の方法）はありません。あなたは望みます：

最後に、ループの最後にprevValを設定する必要があります。そうしないと、コードが期待通りに機能しません。

EDITここではいくつかの作業コードです：

Dim data() As String 
Dim currentVal As String, prevVal As String 
Dim output As String 
Dim temp As Boolean 

Do Until Selection.Value = "" 
     data = Split(Selection, ",") 
     output = "" 
     prevVal = "" 
     For Each elem In data 
      currentVal = CStr(elem) 
      If currentVal <> prevVal Then 
       output = output + elem + "," 
      End If 
      prevVal = currentVal 
     Next elem 
     Selection.Value = output 
     Selection.Offset(1, 0).Select 
Loop 

Answer 2

は、私はあなたのアプローチの効率と速度を最大化するために、正規表現でバリアント配列を使用してお勧めしたいです。あなたが移動している、特に以来辞書オブジェクトを使用することができバリアント配列

Sub Clear() 
    Dim ws As Worksheet 
    Dim rng1 As Range 
    Dim X 
    Dim lngRow As Long 
    Dim objRegex 
    Set objRegex = CreateObject("vbscript.regexp") 
    Set ws = Sheets("Sheet1") 
    Set rng1 = ws.Range(ws.[i1], ws.Cells(Rows.Count, "I").End(xlUp)) 
    With objRegex 
     .Global = True 
     .Pattern = "(\d)(,(\1))+" 
     If rng1.Cells.Count > 1 Then 
      X = rng1 
      For lngRow = 1 To UBound(X) 
       X(lngRow, 1) = .Replace(X(lngRow, 1), "$1") 
      Next lngRow 
      rng1 = X 
     Else 
      rng1.Value = .Replace(rng1.Value, "$1") 
     End If 
    End With 
End Sub 

Answer 3

を適用する前には、他の場所で、私自身の助言コードに1個の以上の細胞のために今すぐテストをピックアップ：この

アップデートのようなものテキストファイルの番号は、数字として扱われていても問題ありません。 this question