Excel2010を利用しています。
正規表現の置換でスペースをタブに変更したいです。
下記で試しましたが、タブへは置換できず「\t」という文字がそのまま表示されてしまいます。
どのようにすれば解決しますでしょうか?
Dim reg
Dim pat As String
Set reg = CreateObject("VBScript.RegExp")
With reg
.pattern = "(\d+?)[ | ]"
.ignoreCase = True
.Global = True
End With
fnsave = "テキスト.txt"
numff = FreeFile
Open fnsave For Output As #numff
Dim i As Integer
For i = 2 To 10
temp = Cells(i, "BW")
temp = reg.Replace(temp, "$1\t")
Print #numff, temp
Next
Close #numff
No.1ベストアンサー
- 回答日時:
下記コードで試してみると、うまくいっている様です。
ご参考まで。temp = reg.Replace(temp, "$1" & vbTab) とか、
temp = reg.Replace(temp, "$1" & chr(9)) でも。
Debug.Printとしても成否が分からないので、クリップボードにコピーして確認してみました。
'Microsoft Forms 2.0 Object Libraryを参照設定
Sub test()
Dim reg
Dim pat As String
Dim temp As String
Dim CB As New DataObject
Set reg = CreateObject("VBScript.RegExp")
With reg
.Pattern = "(\d+?)[ | ]"
.ignoreCase = True
.Global = True
End With
temp = "123 45 67 9"
temp = reg.Replace(temp, "$1" & vbTab)
With CB
.SetText temp
.PutInClipboard
End With
'TABが視認できるテキストエディターに貼り付けてみる
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 正規表現を用いての並び替え 7 2022/04/04 09:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
Excelで全角ハイフンを半角ハイ...
-
文字の列を揃えるには
-
Word:差し込み印刷時に文字列...
-
.txtファイルの空白を全て消去...
-
エクセルの『検索と置換ボック...
-
セルの文字列後ろのスペース削除
-
ワードで複数の文字を一括・連...
-
エクセル 英数字の後のハイフ...
-
マクロを使いワードの置換で特...
-
秀丸で余分なスペースを削除したい
-
ダブルクォーテーションカンマ...
-
ワイルドカードを使って置換(...
-
【MS Office Word 2007】文章の...
-
サクラエディタで特定の改行を...
-
エクセルVBAでワードの文字を検...
-
エクセルの「置換」で1行の部分...
-
数字として認識しない
-
エクセルでコンマとピリオドを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
秀丸で余分なスペースを削除したい
-
文字列に含まれているダブルク...
-
文字の列を揃えるには
-
Excelで全角ハイフンを半角ハイ...
-
Word:差し込み印刷時に文字列...
-
エクセル重複削除で綺麗に削除...
-
エクセルで濁点カナの変換方法...
-
セルの文字列後ろのスペース削除
-
CSVファイルの任意の列をダブル...
-
エクセルの『検索と置換ボック...
-
word 改行マークを印刷時に表示...
-
Word VBA フッターでの文字の置換
-
エクセル 置換又は関数でかっこ...
-
Excelで特定の文字以下を削除し...
-
ワードで複数の文字を一括・連...
-
Excel : テキストボックス中の...
-
1文字だけ置換したい
-
【MS Office Word 2007】文章の...
おすすめ情報