0

Excel ファイル (2010 US バージョンおよび .xlxs 拡張子) の改行文字とキャリッジ リターン文字を置き換えるのにかなり苦労しています。

以前、次のコードを使用して、英語の通常の Excel ファイルでこれを正常に実行するマクロを作成しました。

newStr = Replace(originalStr, newline/carriage return/both, replacementStr)

Newline/carriage return/bothそれぞれ、vbNewLine (Chr(10))、vbCr (Chr(13))、または vbCrLf になります。

現在、韓国語とフランス語を含む Excel ファイルがあり、改行文字と CR 文字が別のもののようです。Chr()) またはいくつかの VBA 定数に関して、それらが実際に何であるかを見つけて、これらの文字を置き換えるにはどうすればよいですか? すべての改行を削除して、に置き換える必要があり<br />ます。

4

1 に答える 1

1

次のように、関連するセルを選択して、含まれている文字を確認できますか。

s = Sheets("Sheet3").[e2]

For i = 1 To Len(s)
    If Asc(Mid(s, i, 1)) < 32 Then
        Debug.Print Asc(Mid(s, i, 1)); " -- "; i
    End If
Next
于 2012-05-24T16:46:14.600 に答える