セルに1つ（またはそれ以上）のChr（10）文字が含まれていて他の文字が含まれていない場合は、そのセルを削除するにはどうすればよいですか？

Question

私はそれに必要なものを並べ替える小さなスクリプトを持っていますが、ある時点ではセルに4文字以上あり、削除したくありません。

BB1：BB10のいずれかのセルにChr（10）だけが含まれている場合は、下のセルの内容を1つ上に移動します。このような何か

Public Sub CheckHisMethod() 
    Dim i As Integer 
    i = 1 
    For i = 10 To 1 Step -1 
     If Excel.ActiveSheet.Range("BB" & i).Value = Chr(10) Then  ' or =vblf or =chr$(10) 
      Excel.ActiveSheet.Range("BB" & i).Delete Shift:=xlUp 
     End If 
    Next i 
    MsgBox "Done" 
End Sub 

しかし...私は私が唯一のセルを削除する、各セルからのChr（10）を削除すると、セルならば、一つのセルまで下のセルを移動しないでくださいChr（10）のみを含む。どうやってやるの？

Answer 1

以下を試してください。 CHR(10)をすべて削除し、結果の文字列の長さが0であることを確認します。これは、セル内のすべての文字がCHR(10)であることを意味します。

Public Sub CheckHisMethod() 
    Dim i As Integer 
    i = 1 
    For i = 10 To 1 Step -1 
     If Len(Replace(Excel.ActiveSheet.Range("BB" & i).Value,Chr(10),"")) = 0 Then  ' or =vblf or =chr$(10) 
      Excel.ActiveSheet.Range("BB" & i).Delete Shift:=xlUp 
     End If 
    Next i 
    MsgBox "Done" 
End Sub 

Answer 2

私は個人的には、このために正規表現を使用したい - それはおそらく他の文字列操作よりもはるかに高速になります。

'Add a reference to Microsoft VBScript Regular Expressions 5.5 
Public Sub CheckHisMethod() 
    Dim i As Integer 
    With New RegExp 
     .Pattern = "^[\n]+$" 
     .MultiLine = True 
     For i = 10 To 1 Step -1 
      If .Test(Excel.ActiveSheet.Range("BB" & i).Value) Then 
       Excel.ActiveSheet.Range("BB" & i).Delete Shift:=xlUp 
      End If 
     Next i 
    End With 
    MsgBox "Done" 
End Sub