![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
この手の地道な作業こそマクロの出番です。
この機会に手を出してみては?
Sub Sample()
'数字の置換
Call fReplace("0", "9")
'英大文字の置換
Call fReplace("A", "Z")
'英小文字の置換
Call fReplace("a", "z")
End Sub
Function fReplace(sStart, sEnd)
For i = Asc(sStart) To Asc(sEnd)
Columns("A:A").Replace What:=Chr(i) & "ー", Replacement:=Chr(i) & "-"
Next i
End Function
No.3
- 回答日時:
ユーザー定義関数を正規表現でやってみては?
Alt + F11 でVBEの画面に切り替えます。
メニューの挿入から標準モジュールを選択。
コードウィンドウが開くので下記をコピペ。
Function chgH(r As Range) As String
Dim oReg As Object
Dim m As Object, mc As Object
Set oReg = CreateObject("vbscript.regexp")
chgH = r.Value
With oReg
.Global = True
.IgnoreCase = True
.Pattern = "[0-9a-z0-9a-z][ー][0-9a-z0-9a-z]"
End With
Set mc = oReg.Execute(chgH)
For Each m In mc
chgH = Replace(chgH, m.Value, Replace(m.Value, "ー", "-"))
Next
Set oReg = Nothing
End Function
Alt + F11 でExcelの画面に戻して
空いているセルB1かな? に =chgh(A1) として下へズズーとコピー。
動作がとろいかもしれません。
No.1
- 回答日時:
残念ながら、一発で置換する方法は無いので、半角と全角を区別するモードにした上で
「0ー」を「0-」に置換(「0」が半角)
「0ー」を「0-」に置換(「0」が全角)
「1ー」を「1-」に置換(「1」が半角)
「1ー」を「1-」に置換(「1」が全角)
「2ー」を「2-」に置換(「2」が半角)
「2ー」を「2-」に置換(「2」が全角)
(中略)
「9ー」を「9-」に置換(「9」が半角)
「9ー」を「9-」に置換(「9」が全角)
「aー」を「a-」に置換(「a」が半角)
「aー」を「a-」に置換(「a」が全角)
(中略)
「zー」を「z-」に置換(「z」が半角)
「zー」を「z-」に置換(「z」が全角)
「Aー」を「A-」に置換(「A」が半角)
「Aー」を「A-」に置換(「A」が全角)
(中略)
「Zー」を「Z-」に置換(「Z」が半角)
「Zー」を「Z-」に置換(「Z」が全角)
のように、置換を124回行うしかありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会社設立・起業・開業 会社名を登録するとき以下の名前は登録されますか? ○✕株式会社などの記号の会社名 ABC株式会社など 2 2022/12/23 17:49
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) 至急です><Excelの関数を教えてください。 2 2022/03/22 17:56
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) 【エクセル関数】アルファベットで以上だったらカウントする 4 2022/07/09 14:07
- Excel(エクセル) エクセルについて教えてください。 1回目が80以上(数字) or 対象外 (文字列)or (空欄) 2 2022/10/17 11:42
- その他(IT・Webサービス) ok waveとかいう終わってる過疎サイトの7000万って何? 1 2022/06/03 20:31
- 法学 全部取得条項付株式の取得と引換えにする株式の発行 申請書について 1 2022/12/21 17:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマを改行に変換する方法
-
エクセルの『検索と置換ボック...
-
文字列に含まれているダブルク...
-
秀丸で余分なスペースを削除したい
-
Word:差し込み印刷時に文字列...
-
複数のスペースを1つのタブに...
-
文字の列を揃えるには
-
カンマ( , )をタブに置換したい。
-
ワードで複数の文字を一括・連...
-
エクセルの文字・数字の前後の...
-
CSVファイルの任意の列をダブル...
-
エクセルで文字の置換を行いた...
-
Accessでの置換
-
検索と置換でチェックを外すこ...
-
数学 記号 sgn
-
【MS Office Word 2007】文章の...
-
エクセル 置換又は関数でかっこ...
-
Access上での一括データ削除に...
-
Excelで全角ハイフンを半角ハイ...
-
ExcelのVBA 正規表現でタブを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
Excelで全角ハイフンを半角ハイ...
-
エクセルの『検索と置換ボック...
-
文字の列を揃えるには
-
秀丸で余分なスペースを削除したい
-
文字列に含まれているダブルク...
-
エクセルで濁点カナの変換方法...
-
ワードで複数の文字を一括・連...
-
Excelで特定の文字以下を削除し...
-
エクセル重複削除で綺麗に削除...
-
複数のスペースを1つのタブに...
-
Word:差し込み印刷時に文字列...
-
エクセル 置換又は関数でかっこ...
-
【MS Office Word 2007】文章の...
-
セルの文字列後ろのスペース削除
-
Excel : テキストボックス中の...
-
ExcelのVBA 正規表現でタブを...
-
エクセルVBAでワードの文字を検...
-
1文字だけ置換したい
おすすめ情報