-3

vbaを使用してExcelでテキストを操作しようとしています。私が操作しようとしているテキストは、次の 2 つのテキストのようになります。

テキスト#1: ...54

テキスト #2: ..2

次のように、これらのテキストからドットを削除して、数字だけが残るようにしています54

テキスト#1: 54

テキスト#2: 2

お知らせ下さい。

4

2 に答える 2

2

これがどのように機能するかです：

Sub ReplaceDots()

    Dim col as Integer

    col = 2 'The Column where you want to replace the dots

    For Row = 1 To 20 'Define the Range here
        Set curCell = Worksheets("Sheet1").Cells(Row, col)
        curCel.Value = Replace(curCel.Value, ".", "")
    Next Row

End Sub

編集:行と列を入れ替えたかもしれません。テストする必要があります

于 2013-11-13T11:43:04.193 に答える
1

機能をご覧くださいReplace。

Replace ( string1, find, replacement, [start, [count, [compare]]] )

string1は、一連の文字を別の文字セットに置き換える文字列です。

findは、string1 で検索される文字列です。

replacementは string1 の find を置き換えます。

開始はオプションです。これは、検索を開始する string1 内の位置です。このパラメーターを省略すると、REPLACE 関数は位置 1 から検索を開始します。

countはオプションです。これは置換するオカレンスの数です。このパラメーターを省略すると、REPLACE 関数はすべての検索を置換で置き換えます。

比較はオプションです。これは、次のいずれかの値になります。

  • vbBinaryCompare バイナリ比較
  • vbTextCompare テキスト比較
  • vbDatabaseCompare データベース内の情報に基づいて比較を実行します

http://www.techonthenet.com/excel/formulas/replace_vba.php

于 2013-11-13T11:35:49.523 に答える