1

コンテンツを検索して変更するための多数の行 (100K+) があります。

たとえば、セルには DGC9610411:DB:10:82 のようなテキストが含まれています。

: が私にとって何かを意味するという事実を除いて、このテキストはすべて行ごとに変更できます。

この行と他のすべての行で、セルがこの DGC9610411 のようになるように、最初の : とその後のすべてのテキストを削除する必要があります

次に、別のセルの内容を末尾に追加します。それは簡単なステップになると思います。ほとんどの場合、それほど努力しなくても理解できるでしょう。

このコードは、各行の while ループにあります。そのため、コードは一度に 1 行ずつ調べています。

私は検索しましたが、誰もがさまざまなニーズを持っているようです.

4

2 に答える 2

3

検索と置換を使用するだけで、vba や数式は必要ありません。

  1. 変更する必要があるデータを含む列を選択します
  2. を押しCtrlhて、[検索と置換] ダイアログを開きます。
  3. [検索対象:] フィールドに、次のように入力します。:*
  4. 「置換:」フィールドは空白のままにします
  5. クリックReplace All

tigeravatar 検索と置換

編集： VBAでなければならない場合、この単純なマクロは同じことを達成します。Aを実際の列文字に変更してください。

Sub tgr()

    Columns("A").Replace ":*", ""

End Sub

編集:リクエストに応じて、数式ソリューションを追加しています。セル B1 で下にコピー:

=LEFT(A1,FIND(":",A1&":")-1)
于 2013-09-17T15:24:21.760 に答える
0

この小さなマクロを試してください:

Sub colonoscopy()
    Dim c As String
    Dim r As Range, I As Long
    For Each r In ActiveSheet.UsedRange
        v = r.Value
        I = InStr(1, v, ":")
        If I > 0 Then
            r.Value = Mid(v, 1, I - 1)
        End If
    Next r
End Sub
于 2013-09-17T15:14:53.750 に答える