Excelのデータ列内の一部の文字の検索と削除

Question

一部のデバッグ情報をExcelシートにコピーして貼り付けました。

しかし、1つの列のいくつかのセルにはいくつかの "奇妙な"文字が含まれています。 VBAを使用してそのような文字を削除する最も簡単な方法は何ですか？例を以下のリストに示します。

1 **'␁'** <- I'm trying to get rid of the part that I have bolded 
2 '␂' 
3 '␃' 
4 '␂' 

ファイルを別のアプリケーションのデータソースとして使用したいとします。前もって感謝します。

Answer 1

の範囲で削除ここでは、私のために働いたソリューションです：

Sub Macro1() 
    ' Macro1 Macro 
    Dim temp As String 

    For u = 1 To 28000 
     If Cells(u, 4) <> 0 Then 
      Cells(u, 4).Select 
      temp = Mid(ActiveCell.Text, 1, InStr(1, ActiveCell.Text, "'") - 1) 
      Cells(u, 4) = temp 
     End If 
    Next 
End Sub 

Answer 2

正規表現が最も簡単かもしれないと思います。私はADOレコードセットを使用し、それを見ます。

ADOやExcel上の正規表現

''http://msdn.microsoft.com/en-us/library/ms974570.aspx 
Dim objRegEx As RegExp 
Set objRegEx = CreateObject("VBScript.RegExp") 
objRegEx.IgnoreCase = True 
objRegEx.Global = True 

''This is a sample string, the field would go here 
strText = "q@12""£c" 

''Find anything not a-z, 0-9 
objRegEx.Pattern = "[^a-z0-9]" 

''Replace with a dash, "" is fine too. 
strOut = objRegEx.Replace(strText, "-") 

には、いくつかの注意事項いくつかのノート

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

strFile = ActiveWorkbook.FullName 

strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ 
& strFile & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';" 

cn.Open strcn 

rs.Open "SELECT * FROM [Sheet1$]", cn, 3 'adOpenStatic' 

Answer 3

デバッグしているように - あなたはそれらを削除したい本当によろしいですか？それらはASCII制御文字です。しかし、もう一度私はあなたがデバッグしているか分からない....

あなたが見ている文字は、ascii制御文字を表すユニコード文字なので、どこからデータをコピーしたのかはあなたのために翻訳されています。

標準のExcel機能Cleanは、ASCIIの制御文字を削除するように設計されていますので、ここでは動作しません。

しかし、それは非常にエレガントではないかもしれないが、この意志は、それがコントロールPICTURES内のすべてのUnicode文字が

Sub Macro1() 
    ' Macro1 Macro 
    ' 
    For u = 9210 To 9216 
    a = Cells.Replace(ChrW(u), "") ' replaces values in whole Worksheet 
    Next 
End Sub 

' use this to replace the values in a single column only 
' i cant test this at the moment as i don't have Excel handy... 
... 
    a = Range("A1:A2800").Replace(ChrW(u), "") ' replaces values in Col A 
... 

Answer 4

てみてくださいこれは最初のコードをここに掲示するので、私に同行してください; o）。私は、私は十分なVBAコードをコメントしたと思うが、何か質問は、私に知らせてください。

' Replaces all the charaters in vaFind with strReplace 
Sub FindAndReplace(ByVal vaFind As Variant, ByVal strReplace As String, ByVal rngToSearch As Range) 
' vaFind is an array containing all the strings you want to replace 
' strReplace is what you want to replace it with 
' rngToSearch is the range you want to Find & Replace your characters 
Dim x As Long 
For x = LBound(vaFind, 1) To UBound(vaFind, 1) 

    rngToSearch.Cells.Replace What:=vaFind(x), Replacement:=strReplace, _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, _ 
     MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
Next x 

End Sub 

' Now if you want to clean it automatically, 
' Place the following code INTO any Sheets that you 
' are have the debug data placed into. 
' NOTE: prefix Asterick and question mark with a tilde to replace those characters "~*" 
Private Sub Worksheet_Change(ByVal Target As Range) 
' Calls the FindAndReplace sub, and removes all: 
' astericks, apostrophes and "Whatever Else You need cleaned"'s 
' In this case, in column A 
If Not Intersect(Target, Me.Columns("A:A")) Is Nothing Then 
Call FindAndReplace(Array("~*", "'", "Whatever Else You need cleaned"), "", Me.Columns("A:A")) 
End If 
' NOTE: This sub will be called whenever the sheet changes, and only process column A 
' You can customize which columns, too. 
End Sub