No.3ベストアンサー
- 回答日時:
一例です。
A1からデータがあるものとします。
Sub test01()
Dim c As Range, i As Long
For Each c In Range("A1", Range("A1").End(xlDown))
For i = 1 To Len(c.Value)
c.Offset(, i) = Mid(c.Value, i, 1)
Next i
Next
End Sub
別に8桁に限りません。
No.5
- 回答日時:
No.1です。
マクロの記録で出来る方法「マクロの記録」を開始して
開始行(A1)を選択
Ctrl+Shiftを押しながら↓を押す
Ctrlを押しながらCを押してコピー
B1を選択
Ctrlを押しながらVを押して貼り付け
データ、区切り位置で「スペースによって・・・」を選択して「次へ」
数字の各桁をマウスを使って1桁ずつに分割して「完了」
「マクロの記録の終了」
上記で下記のマクロが出来ます。
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _
(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
End Sub
No.2
- 回答日時:
一例です。
Sub sample()
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
For j = 1 To Len(Cells(i, "A"))
Cells(i, j).Offset(, 1).Value = Mid(Cells(i, "A"), j, 1)
Next
Next
End Sub
No.1
- 回答日時:
関数でいいなら
B2=MID($A2,COLUMN()-1,1)
としてC2:I2にこの数式をコピー
※A列が文字列でなく数値を表示形式で8桁表示なら
B2=MID(TEXT($A2,"00000000"),COLUMN()-1,1)
としてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel SUMIF別ブックのシート名...
-
英数字のみ全角から半角に変換
-
【Excel VBA】PDFを作成して,...
-
マイクロソフト 一時使用コード...
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
エクセルでXLOOKUP関数...
-
大学のレポート A4で1枚レポー...
-
マクロ自動コピペ 貼り付ける場...
-
Officeを開くたびの「再起動メ...
-
office365って抵抗感ないですか?
-
teams設定教えて下さい。 ①ビデ...
-
マクロ1があります。 A1のセル...
-
Microsoft Officeを2台目のPCに...
-
web上にあるエクセルをショート...
-
あらかじめ用意したテンプレー...
-
Windows 11で、IME言語バー(IM...
-
【Excel】セル内の文字が正しい...
-
VBAファイルの保存先について
-
Microsoft familyに追加されま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Officeを開くたびの「再起動メ...
-
英数字のみ全角から半角に変換
-
outlookのメールが固まってしま...
-
大学のレポート A4で1枚レポー...
-
マクロの書き方を教えて下さい
-
エクセルにおいて品名コードを...
-
マイクロソフト 一時使用コード...
-
マクロのコードを教えてください。
-
Microsoft Formsの「個人情報や...
-
一太郎でカーソルを次の行の先...
-
Microsoft365搭載Windows11PCへ...
-
エクセルでXLOOKUP関数...
-
エクセルやワードを無料で使え...
-
会社PCのメールが更新されない
-
teams設定教えて下さい。 ①ビデ...
-
現在、PC2台でMicrosoft 365 Pe...
-
Microsoft365で写真をアルバム...
-
office365って抵抗感ないですか?
-
Outlook で宛先が複数の場合の人数
-
Office2021を別のPCにインスト...
おすすめ情報