A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
本当は、Perl系の正規表現なら、一回で済むのですが、VBAの中でそのまま使える正規表現を利用しました。
一応、ユーザー定義関数にはなっていますから、関数は単独でも利用できますが、いずれ、こういうVBAスタイルのユーザー定義関数はなくなるものだと思います。'//
Sub Test1()
Dim c As Variant
For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
If c.Value <> "" Then
c.Offset(, 1).Value = BetweenComma(c.Value)
End If
Next
End Sub
'以下は、正規表現パターンだけを外に出す方法で、Perl系正規表現に少しでも近づけるように考えています。
Function BetweenComma(arg1 As Variant)
Dim Re As Object
Dim Ms As Object
Dim i As Long, n As Variant
Dim buf
If IsNumeric(arg1) = False Then BetweenComma = arg1: Exit Function
Set Re = CreateObject("VBScript.RegExp")
With Re
.Global = True: .IgnoreCase = False: .MultiLine = True
End With
Re.Pattern = "(\d)"
Set Ms = Re.Execute(arg1)
i = Ms.Count
If i > -1 Then
For Each n In Ms
buf = buf & Re.Replace(n, "$1,")
Next
End If
BetweenComma = Mid(buf, 1, Len(buf) - 1)
End Function
No.2
- 回答日時:
ユーザー定義関数になります。
標準モジュールへ以下のマクロを追加します。
-------------------------
Public Function AddComma(ByVal str As String) As String
AddComma = ""
Dim i As Long
For i = 1 To Len(str)
AddComma = AddComma + Mid(str, i, 1)
If i <> Len(str) Then
AddComma = AddComma + ","
End If
Next
End Function
-------------------------------------
使用方法の例です。
A1セルへ 12345 を入力
B1セルへ
=ADDCOMMA(A1)
と入力します。
B1セルに 1,2,3,4,5 が表示されます。
No.1
- 回答日時:
こんにちは!
VBAになりますが、一例です。
元データはA列にあり、B列に表示するとします。
Sub Sample1()
Dim i As Long, k As Long, myStr As String
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Len(Cells(i, "A")) > 1 Then
For k = 1 To Len(Cells(i, "A"))
myStr = myStr & Mid(Cells(i, "A"), k, 1) & ","
Next k
Cells(i, "B") = Left(myStr, Len(myStr) - 1)
myStr = ""
Else
Cells(i, "B") = Cells(i, "A")
End If
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
参照先セルに値が入っていない...
-
エクセルで既に入力してある文...
-
Excel:文字と数字の組合せ、次...
-
IF関数で0より大きい数値が入力...
-
値を入力後、自動的にアクティ...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
エクセルで複数の条件で掛け算...
-
エクセルで時間の判定をしてい...
-
エクセルを保存し終了する際に...
-
Excel マクロ モジュラス43 vba
-
エクセル セルに━ (横棒)を入...
-
エクセルの数式で計算結果に文...
-
yyyy/mm/ddからyyyy/mmへの変換
-
excel 関数にて文字を0として認...
-
【Excel】セル内の時間帯が特定...
-
マイナス同士の前年比
-
エクセルでの早出・残業管理表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
IF関数で0より大きい数値が入力...
-
エクセルで既に入力してある文...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
入力したところまでを自動的に...
-
Excel:文字と数字の組合せ、次...
-
値を入力後、自動的にアクティ...
-
【Excel】セル内の時間帯が特定...
-
yyyy/mm/ddからyyyy/mmへの変換
-
エクセル セルに文字を入力した...
-
エクセルの数式がかぶって、選...
-
excel 関数にて文字を0として認...
-
エクセルで10分ごとの時刻の...
-
エクセルで時間の判定をしてい...
-
エクセルで複数の条件で掛け算...
-
Excel で空欄にも単位 \\や円 ...
-
マイナス同士の前年比
おすすめ情報