-1

Excel 2010 で複数のセルのテキストを操作する方法について簡単な質問があります。

私の状況は次のとおりです。列に約12個のセルが配置されています。各セルの文字列の長さは大きく異なります。あるセルには「abcccd」が含まれ、別のセルには「abcccdefghij」が含まれる場合があります。これらのセルのすべてにまったく同じテキストの文字列があり、すべてのセルから文字列のこの部分を削除しようとしていました。たとえば、すべてのセルから「ccc」を削除したい場合があります。このようにして、一意の各セルの始まりだけが残ります。たとえば、「セル A1...A10 から abcdefgh 形式のすべての文字列」を削除するように Excel に指示する簡単な方法はありますか?

更新: 以下の回答に加えて、pnuts が述べたように、組み込みの検索と置換機能を使用するだけで非常に簡単になります。例: 'ccc' を検索し、'' に置き換えます。

4

1 に答える 1

2

列 A のデータをテストすると、列 B に結果が表示されます。各エントリから「落ちた」という単語を削除します。

ここに画像の説明を入力

このコードを B1 に配置し、下にドラッグしてコピーします。

=IF(ISERROR(FIND("fell",A1)),A1,SUBSTITUTE(A1,"fell",""))

**

また...

**

VBA を使用する場合は、次のコードを試してください (エラー チェックは行っておらず、'fell' という単語をハード コードしたことに注意してください)。

Sub LoopRange()
  Dim rCell As Range
  Dim rRng As Range
  Set rRng = Sheet1.Range("A1:A10")

  For Each rCell In rRng.Cells
    Debug.Print rCell.Address, rCell.Value
    rCell.Offset(0, 1).Value = Application.WorksheetFunction.Substitute(rCell.Value, "fell", "")
  Next rCell
End Sub
于 2013-09-12T14:29:11.830 に答える