特定の文字の後にセル内のデータを削除します。

Question

セルA1：A1000にデータがあります。それはこのように、小さなノートに続く名前のリストです：

• SAM「速い
• ニック」長い
• 彼らはすべての後に"と空間を持っている

トム・」クイック

私は試してみるためにマクロを使っていましたが、何もできませんでした。私はこれをするかもしれない？ここで

Answer 1

はマクロなしの気の利いたトリックです：

は、適切な範囲を選択します（あるいは単に列全体を選択するにはAをクリック）して、Ctrl+Fを行い、Replaceをクリックし、Find書き込みで正確"*をしてReplace withを残しますボックスは空です。今すぐReplace allをクリックしてください！

これは、置き換えられたボックスを空のままにしたワイルドカードとして*を使用するため、引用符の後のすべてを置き換えます（および含めます）。

編集：ここで示唆したように、このためのVBAコードです：

Columns("A:A").Replace What:="""*", Replacement:="", LookAt:=xlPart 

Answer 2

Sub Macro1() 
    For Row = 1 To 1000 
     S = Range("A" & Row).Cells.Value 
     Pos = InStr(S, Chr(34)) 
     If Pos > 0 Then Range("A" & Row).Cells.Value = Left(S, Pos - 1) 
    Next 
End Sub 

Answer 3

簡単！使用しているExcelのバージョンはわかりませんが、簡潔にConvert Text to Columnsを実行してから、セルを区切り記号"で分割します。これにより、必要なデータと削除できるデータの2つの列が表示されます。

が

がDelimitedを選択Convert Text to Columnsメニューを見つけ、Otherでnext

を打つ

1. ハイライトコラム
2. がDataメニューを見つける：ここ
   は、Office 2010で散歩ですボックス、タイプ"
3. ヒットFinish

完了！今度は、列Aにすべての名前があり、列Bを削除するだけです。

要約すると、「テキストを列に変換」し、区切り記号"を使用してセルを分割します。超簡単で高速です。

Answer 4

いくつかのオプション：あなたは、さらにその後、値を操作するために必要な場合

が

Range("A1:A1000").Replace """*", vbNullString 

を交換して、以下でより適切である：正規表現で

：

Dim str As String, strClean As String 
Dim cell As Range 

For Each cell In Range("A1:A1000") 

    With CreateObject("vbscript.regexp") 
     .Pattern = "\""(.*)" 
     .Global = True 
     cell = .Replace(cell, vbNullString) 
    End With 

Next cell 

正規表現がなければ10

は、文字列を分割する：あなたは、ソースデータを保持したい場合は

Dim strSplit() As String 
Dim cell As Range 

For Each cell In Range("A1:A1000") 

    If (cell.Value <> vbNullString) Then 

     cell.Value = Split(cell.Value, """")(0) 

    End If 

Next cell 

Answer 5

を、あなたはまた、次の列で、簡単なExcelの数式でそれを行うことができます。 =LEFT(A1,SEARCH("""",A1)-1)

Answer 6

押しctrl + fは、find whatボックスにreplace tab、タイプ*をクリックし、replace allをクリックしてください：あなたのデータは列Aであると仮定すると、以下の式では名前のみを返します。 replaceボックスに何も入れる必要はありません。ここでは、.の後にすべてを置き換えます。