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.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.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で質問しましょう!
似たような質問が見つかりました
- その他(ソフトウェア) ソースネクストアプリをインストールし、製品登録で半角英数字が入力できない 5 2022/07/03 22:44
- Excel(エクセル) エクセルでセルの値分の個数の数字列を自動で入れたい 8 2023/03/14 18:00
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Excel(エクセル) エクセル 3つの値の中からデータを抽出させる方法 4 2023/08/24 11:00
- その他(学校・勉強) 問2 次の文中の空欄にあてはまる数や言葉を答えなさい。英数字・符号は半角、それ以外の文字は全角で入力 1 2022/06/15 12:39
- Excel(エクセル) エクセルについて教えてください。 1回目が80以上(数字) or 対象外 (文字列)or (空欄) 2 2022/10/17 11:42
- Excel(エクセル) Excel 記入欄に網掛けして、文字が入力されたら網掛けが消える設定 5 2023/02/05 11:00
- 面接・履歴書・職務経歴書 公務員試験を受けようと思ってるのですが、ウェブエントリーで志望動機の欄があり、その下にその他の欄があ 2 2022/08/17 15:01
- Excel(エクセル) エクセル:条件付き書式で色付けについて 2 2023/03/30 21:53
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
英数字のみ全角から半角に変換
-
エクセルの貼り付け「リンクさ...
-
大学のレポート A4で1枚レポー...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
エクセルのシフト表を簡単にGoo...
-
Excelのセルの重複チェックが出...
-
outlookのメールが固まってしま...
-
エクセルでレーダーチャートの...
-
teams設定教えて下さい。 ①ビデ...
-
オフィス365のエクセル
-
Microsoft Edgeの「ニュースと...
-
Microsoft Office Personal 2021
-
Excelで空白以外の値がある列の...
-
Excel テーブル内の空白行の削除
-
マクロ自動コピペ 貼り付ける場...
-
Excel2019と365、2021
-
Outlook 2021 アカウント設定時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報