No.2ベストアンサー
- 回答日時:
変換したい列の位置は固定ですが、行数は変動します。
マウスでチェックする部分を選択して、マクロを実行してください。
'//標準モジュール
Sub CharsConvert()
Dim Matches
Dim Match
Dim Pats(1 To 2)
Dim buf As String, buf2 As String
Dim c As Range, i As Long
'正規表現パターン
Pats(1) = "([\uFF66-\uFF9F]+)" '半角カタカナ
Pats(2) = "([0-9A-Za-z]+)" '全角英数
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = False
For Each c In Selection '//マウスで範囲を選択 //
For i = 1 To 2
.Pattern = Pats(i)
Set Matches = .Execute(c)
If Matches.Count > 0 Then
For Each Match In Matches
buf = .Replace(Match.Value, "$1")
If i = 1 Then
buf2 = Replace(c.Value, buf, StrConv(buf, vbWide), , 1) '半角カタカナを全角にする。1回だけ
Else
buf2 = Replace(c.Value, buf, StrConv(buf, vbNarrow), , 1) '全角英数字を半角にする。1回だけ
End If
c.Value = buf2
Next
End If
Next i
Next c
End With
End Sub
この回答へのお礼
お礼日時:2019/07/31 11:58
理想通りの変換が一括でできました!
参考例に誤りがあり失礼いたしました。
要望を汲み取っていただきありがとうございます。
大変助かりましたm(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- ノートパソコン ”IMEが無効です” というメッセージが出ます! 4 2023/05/02 09:56
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
長音「ー」とマイナス「-」の...
-
更新クエリで半角カタカナのみ...
-
特定の列の値を、ひらがな・漢...
-
エクセルシート中の全角英数字...
-
UTF-8 と SHIFT-JIS について
-
ハイフン(-)が長音(ー)
-
ExcelVBAを使って、値...
-
VB.NETで DataRow()を利用して...
-
count(*)で取得した値をJAVAの...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
データ数をカウントしたいのですが
-
テキストボックスのvalueとtext...
-
ExcelのINDEXとMATCH関数でスピ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
【Excel VBA】指定行以降をクリ...
-
VBAでActiveDirectoryのユーザ...
-
VBA:小数点以下の数字を取得で...
-
DataGrdViewに関連付けたデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
長音「ー」とマイナス「-」の...
-
エクセルシート中の全角英数字...
-
更新クエリで半角カタカナのみ...
-
ハイフン(-)が長音(ー)
-
UTF-8 と SHIFT-JIS について
-
「ー」←これは伸ばし棒ですか?...
-
Excelで文字の長さを揃えるには
-
エクセル2016 条件付き書式で全...
-
アクセス2000:クエリの関数で...
-
特定の列の値を、ひらがな・漢...
-
アクセスのLENBとエクセルのLEN...
-
fairuse wizard
-
[VBA]半角カタカナ
-
ExcelVBAを使って、値...
-
VBAでActiveDirectoryのユーザ...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
VB.NETで DataRow()を利用して...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
おすすめ情報