No.3ベストアンサー
- 回答日時:
正規表現で書いてみました。
半角であることが条件ですが、アルファベットが2文字以上続いても、おなしようにスペースが入ります。
'//標準モジュール
Sub ArangeSpaces()
Dim Matches
Dim Match
Dim Rng As Range
Dim c As Variant, buf As String
Dim rep As String
With CreateObject("VBScript.RegExp")
.Pattern = "(\d+)([A-Za-z]+)(\d+)" '正規表現
.Global = True
.IgnoreCase = False
Set Rng = Range("E1", Cells(Rows.Count, "E").End(xlUp)) 'E列の範囲
For Each c In Rng
buf = c.Value
Set Matches = .Execute(buf)
If IsObject(Matches) Then
For Each Match In Matches
rep = .Replace(Match.Value, "$2")
buf = Replace(buf, rep, Space(1) & rep, , 1)
Next
c.Value = buf
End If
Next c
End With
End Sub
No.5
- 回答日時:
》 出来ましたらVBAでお願いしたい
重々承知しております。でも…
関数だけに頼らざるを得ないマクロ音痴の私自身の備忘録として、この場を穢らわせてください。
Sheet1!A1: 1900R2H200W3L1 を入力
Sheet2!A1: =MID(Sheet1!$A1,COLUMN(A1),1)
 ̄ ̄ ̄ ̄ ̄ 此れを右にT列までオートフィル
Sheet3!A1: =IFERROR((CODE(Sheet2!A1)>64)*(CODE(Sheet2!A1)<91),"")
 ̄ ̄ ̄ ̄ ̄ 此れを右にT列までオートフィル
Sheet4!A1: =IFERROR(SMALL(IF(Sheet3!$A1:$T1=1,COLUMN($A:$T),""),COLUMN(A1)),"")
 ̄ ̄ ̄ ̄ ̄ 【お断り】セル Sheet4!A1 の式は必ず配列数式として入力のこと
 ̄ ̄ ̄ ̄ ̄ 此れを右にT列までオートフィル
Sheet5!A1: =Sheet1!A1
Sheet5!B1: =IF(ISERR(A1*1),REPLACE(A1,Sheet4!A1+COLUMN(A1)-1,," "),A1)
Sheet5!C1: =IFERROR(REPLACE(B1,Sheet4!B1+COLUMN(B1)-1,," "),0)
 ̄ ̄ ̄ ̄ ̄ 此れを右にU列までオートフィル
Sheet1!B1: =TRIM(LOOKUP("黑",Sheet5!B1:U1))
ちなみに、16桁以上の数字のみのデータは、“数値”としてではなく、“文字どおり”数字で入力する必要があります。理由は言わずもがなかと。
No.4
- 回答日時:
文字数などは問いません。
A-Za-zの前に半角スペースだ入ります。文字間の4つの条件を設定しただけのものになります。
Sub IN_hwspace()
Dim strRec As String, char As String, char1 As String
Dim i As Long, j As Long, MaxRow As Long, ansStr As String
MaxRow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
For i = 1 To MaxRow
strRec = Cells(i, "E").Value
For j = 1 To Len(strRec)
char = Mid(strRec, j, 1)
char1 = Mid(strRec, j + 1, 1)
If char Like "[A-Za-z]" Then
If char1 Like "[A-Za-z]" Then
ansStr = ansStr & char
GoTo skp
End If
End If
If char Like "[A-Za-z]" Then
If char1 <> "" Then
ansStr = ansStr & char
GoTo skp
End If
End If
If char1 Like "[A-Za-z]" Then
If char <> "" Then
ansStr = ansStr & char & " "
GoTo skp
End If
End If
ansStr = ansStr & char
skp:
Next
Cells(i, "E").Value = ansStr
ansStr = ""
Next
End Sub
No.1
- 回答日時:
こんばんは!
アルファベットは2文字以上連続していない!という前提です。
一例です。
Sub Sample1()
Dim i As Long, k As Long
Dim myStr As String
For i = 1 To Cells(Rows.Count, "E").End(xlUp).Row
For k = Len(Cells(i, "E")) To 2 Step -1
myStr = Mid(Cells(i, "E"), k, 1)
If myStr Like "[A-Za-z]" Then
Cells(i, "E").Replace Mid(Cells(i, "E"), k, 1), " " & myStr
End If
Next k
Next i
End Sub
こんな感じではどうでしょうか?
※ 連続してアルファベットがある場合はアルファベット間も半角スペースが入ります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- PDF C#でfloatを整数部、小数部とも桁数固定で文字表示したい 2 2022/07/28 09:37
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) 【関数】ハイフン(-)を月や日に変えたい。スペースを削除したい。 4 2023/07/12 08:49
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) 指定した文字から指定した文字のスペースまでを削除するVBAの構文について 6 2022/07/24 22:20
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
歌声がエロい、とは褒め言葉と...
-
♪ラ~ヴィンユゥ~~♪を歌って...
-
「川」がテーマの曲ありませんか?
-
「ピリオドの向こうへ」って最...
-
吉田拓郎さんはあの世代ではか...
-
浜崎あゆみの「A Song for ×××...
-
愛する人の幸せを願う歌
-
愛してるの言葉じゃ足りないく...
-
鼻声気味の歌手を教えてくださ...
-
ローマ字表記の男性歌手
-
「ハイテンション」のエンディ...
-
タイトル又は歌詞に 「 動物 」...
-
長年の疑問、この歌知ってる方...
-
芸能人同士で親戚の人
-
あいみょんに似てると言われる...
-
曲名も歌手名もわからない音楽...
-
柳ジョージが大嫌いです。代表...
-
裏切られる立場を歌った曲って...
-
米津玄師のどこがそんなによく...
-
「竹内まりや」 の「駅」を歌っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ピリオドの向こうへ」って最...
-
宇多田ヒカルが嫌いな方いませ...
-
うろ覚えな歌手がいるのですが。
-
鼻声気味の歌手を教えてくださ...
-
タイトル又は歌詞に 「 動物 」...
-
TAKE5の替え歌
-
♪ラ~ヴィンユゥ~~♪を歌って...
-
歌声がエロい、とは褒め言葉と...
-
愛してるの言葉じゃ足りないく...
-
60歳くらいのロックミュージシャン
-
やっぱり恋人がいても結婚して...
-
同じもしくは似た漢字3文字の日...
-
「夢花処女林」とはどういう意味
-
愛する人の幸せを願う歌
-
邦楽・ヒゲのアーティスト
-
名付けで、同じ部首が重なるの...
-
松山千春が「歌のうまい人と下...
-
ヴィブラートをかけずに歌う歌...
-
曲名も歌手名もわからない音楽...
-
サカナクションは世間から見て...
おすすめ情報
すみません。外出先からでパソコンで確認が出来ませんが
ご質問ですが
文字数は1桁から20桁です。
言い忘れました。
数字のみのデータもあります。