No.1ベストアンサー
- 回答日時:
こんにちは!
そのセル内で処理したいのでしょうか?
一例です。
Sub Sample1()
Dim k As Long, c As Range, myStr As String
For Each c In Selection
If IsNumeric(c) And c > 9 Then
If InStr(c, ",") = 0 Then
For k = 1 To Len(c)
myStr = myStr & Mid(c, k, 1) & ","
Next k
c = Left(myStr, Len(myStr) - 1)
myStr = ""
End If
End If
Next c
End Sub
※ コードの説明は割愛させてください。m(_ _)m
この回答へのお礼
お礼日時:2017/04/07 10:02
ありがとうございます。
コードを調べてなんとなくは理解できました。
まだまだこういうときには、このコードを使うってのが思いつきません。
もっと経験値を上げていきます。
No.4
- 回答日時:
#2さんの数式をみて、VBAで作ろうとしましたが、同じようにはいかず、不格好なコードになったので、やめました。
以下はいわゆる正規表現というものです。でも、解説付きというのは、ややこしくするだけのように思うのです。
分からない時は、再度人に聞くか、諦めるかどちらかです。
'//
Sub reSplitFigures()
Dim c As Range
Dim buf As Variant
Dim RegEx As Object
Dim Ms
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.Global = True
.Pattern = "(\d)" ''"(\d\D*)" '後者は#3様の条件です
For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
If Len(c.Value) > 1 Then
buf = RegEx.Replace(c.Value, "$1,")
c.Value = Left(buf, Len(buf) - 1)
End If
Next
End With
End Sub
No.2
- 回答日時:
> コードを解説付きでお願いします。
自分で調べる前に説明を求める人は プログラミングを諦めた方が
いいと思います。
=SUBSTITUTE(TRIM(TEXT(A1&"",REPT("# ",9)&0))," ",",")
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- その他(Microsoft Office) エクセルのマクロを教えてください。 1 2022/12/08 15:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Java javaのCSVデータ読込についてです 6 2022/07/02 10:58
- Excel(エクセル) エクセル マクロ テキストファイルを取り込む 複数の区切り文字で別々のセルに格納するには? 3 2022/08/10 21:10
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Visual Basic(VBA) VBA B列にある前から10文字のみ表示 3 2023/08/07 11:24
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1.1.1.2.3.3.の6個の数字を1列...
-
x^3+y^3+z^3を展開するとどう...
-
【至急】y=-sinx+cosx(0≦x<2π)...
-
正方形の折り紙からひし形を作...
-
初項1,公比2,項数nの等比数列に...
-
(3x+2)の5乗 の展開式におけ...
-
ドラクエ7の無人の町のなぞ
-
【至急】この問題が分かりませ...
-
0.1と√0.1ではどちらが大きいで...
-
数学I・A基礎問題精講127...
-
カフェの開店準備について 段落...
-
a^2x=3のとき a^3x+a^−3x/a^x+a...
-
xに関する方程式 mx^2+5(m+1)...
-
版籍奉還と大政奉還の違いを教...
-
特性方程式のαが漸化式の極限値...
-
Google Nest Hub Maxでビデオ通...
-
漢文の張儀の「儀 何ぞ敢へて言...
-
マルジャーナの知恵
-
スタサプの講師、関正生先生が...
-
数学の一次関数について質問し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1.1.1.2.3.3.の6個の数字を1列...
-
0.1と√0.1ではどちらが大きいで...
-
1Whは1Wを1時間使ったというこ...
-
正方形の折り紙からひし形を作...
-
漢文の張儀の「儀 何ぞ敢へて言...
-
高次方程式の問題で質問です。 ...
-
高1 古典 助動詞について 問、...
-
(3x+2)の5乗 の展開式におけ...
-
古文の質問なのですが 「このた...
-
【至急】y=-sinx+cosx(0≦x<2π)...
-
ドラクエ7の無人の町のなぞ
-
無名草子の清少納言について…「...
-
数学 高1 解説お願いします。 ...
-
北朝鮮弾道ミサイル禁止
-
x^3+y^3+z^3を展開するとどう...
-
論理演算子がわかりません
-
「何すれぞ去らざるや」の出典...
-
この反応では、希硫酸が酸化剤...
-
三次関数が常に減少のとき D≦...
-
(4-5i)(2+3i)という問題のや...
おすすめ情報