No.11ベストアンサー
- 回答日時:
関数もVBAも知らない、だろう。
やり方なんてのはいろいろあるので、知らない事覚えるか知っていることでやるか質問者都合でしょう。すべてのやり方を覚える必要もない。「1」を「1,」
「2」を「2,」
と0から9まで
10回置換するとほぼ作業終わり。
結果
「1,2,3,」
「4,5,6,」
になる末尾だけ悩めばよいが、RIGHT関数がある。SUBSTITUTE等と違い普段使う関数ではないだろうか。
10で割った余りが1の位
100で割った余りが10の位
分解もある。
これならわかる、その形はないか?。
やりやすいのは何?、
指定がないと、回答まだ出るのでは?。
No.9
- 回答日時:
セル範囲を選び,右クリックしてセルの書式設定の表示形式のユーザー定義で
[>999]0","0","0","0;[>99]0","0","0;0","0
と設定し,3桁か2桁か4桁の数字をそのまま記入します。
#具体的なヤリタイ事が,3桁若しくは2桁か4桁という限定です。
野放図にナンデモは出来ません。
No.8
- 回答日時:
関数なら
=TEXT(A1,"#"& REPT("!,#",LEN(A1)-1))
VBAなら、このようにすればよいと思います。
'//
Sub Test1()
Dim d As String
Dim c As Variant
Dim r As Range
Dim rng As Range
Set r = ActiveCell '列の先頭のセルを選択
Set rng = Range(r, Cells(Rows.Count, r.Column).End(xlUp))
Application.ScreenUpdating = False
For Each c In rng
If IsNumeric(c) Then
d = Trim(Format(c.Value, Application.Rept(" #", Len(c.Value))))
c.Value = Replace(d, Space(1), ",")
End If
Next c
Application.ScreenUpdating = True
End Sub
No.7
- 回答日時:
こんばんは!
横からお邪魔します。
VBAでの方法になってしまいますが・・・
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面がでますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行 です)
データは1行目からあるものとしています。
Sub test() 'この行から
Dim i, j, k As Long
Dim str, buf As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
'2行目からのデータであれば上記の「1」を「2」に訂正してください。
On Error Resume Next
For j = 1 To Cells(i, Columns.Count).End(xlToLeft).Column
For k = 1 To Len(Cells(i, j))
str = Mid(Cells(i, j), k, 1)
buf = buf & str & ","
Next k
Cells(i, j) = Mid(buf, 1, Len(buf) - 1)
buf = ""
Next j
Next i
End Sub 'この行まで
尚、一旦マクロを実行すると元に戻せませんので別Sheetにコピー&ペーストしてマクロを試してみてください。
参考になれば良いのですが・・・m(__)m
No.6
- 回答日時:
NO2です。
同一セルの変更なのでやはりマクロ(VBA)は如何でしょうか。
(1)別シートにデータをコピーしてコピー先のシートタブで右クリック→以下のコードを貼り付け→F5キー押下
Sub aaa()
area = Range("A1:D300")
For i = 1 To 300
For j = 1 To 4
Leng = Len(area(i, j))
For k = 1 To Leng - 1
char = Mid(area(i, j), k, 1)
wk = wk & char & ","
Next
area(i, j) = wk & Right(area(i, j), 1)
wk = ""
Next
Next
Range("A1:D300") = area
End Sub
No.5
- 回答日時:
◆桁数は最大15桁まで、回答は10桁までです
=SUBSTITUTE(TRIM(TEXT(A1,"# # # # # # # # # #"))," ",",")
No.4
- 回答日時:
もしもA1セルから下方に3ケタの数字があるのでしたらB1セルには次の式を入力して下方にオートフィルドラッグします。
=IF(A1="","",MID($A1,1,1)&","&MID($A1,2,1)&","&MID($A1,3,1))
No.3
- 回答日時:
良い方法が思いつかないので泥臭い方法です。
。。A列に該当のデータがあったとして、
A列を選択し、「区切り位置」機能で「固定長フィールドのデータ」を選択することで、
A列を1文字づつの列に分けられると思います。
例:
A1「12345」
↓
A1「1」 B1「2」 C1「3」 D1「4」 E1「5」
あとは、F1などで
=A1&","&B1&","&C1&","&D1&","&E1
とすればF1に「1,2,3,4,5」が完成するかと思います。
どうでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで文字を含む式に、カンマ(,)をつけるには??
Excel(エクセル)
-
複数セルに入力した数字をカンマを入れてつなげる
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2007で、太字にした行のみ...
-
Excelでセル内の数式は残し値だ...
-
wordのvbaでハイパーリンク設定...
-
並べ替えのマクロで対象行の範...
-
Excel2007 セルを右方向に削除...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL VBAで別のシー...
-
エクセルの複数シートの保護を...
-
Accessのスプレッドシートエク...
-
エクセルでファイル保存時に複...
-
Excel、同じフォルダ内のExcel...
-
EXCELで1ヶ月分の連続した日付...
-
Excelが開かない!印刷プレビュ...
-
別シート参照のセルをシート毎...
-
シート名が変わる場合のVBAの設...
-
EXCEL:同じセルへどんどん足し...
-
②Excel 簡単にシートコピーした...
-
エクセルで毎回1枚目のシートを...
-
複数シートの特定の位置に連番...
-
EXCELで同一フォーマットのシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excel2007で、太字にした行のみ...
-
Excel(VBA)データ入力に応じて...
-
Excelでセル内の数式は残し値だ...
-
エクセル VBA 小数点を含む数字...
-
Excel2007 セルを右方向に削除...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
値貼り付けをしても書式も貼り...
-
excel ある部分だけをコピペし...
-
エクセルで全ての数字間にカン...
-
wordのvbaでハイパーリンク設定...
-
Excel にて非表示行を探すワー...
-
Excelで周期的に列を削除する方法
-
エクセル2003でマクロをおこな...
-
yyyy/mm/ddの日付に一括変換す...
-
VBA コピーを有効行までループ...
-
並べ替えのマクロで対象行の範...
-
エクセル オートフィルタの抽...
-
エクセル マクロ オートシェ...
おすすめ情報