No.4ベストアンサー
- 回答日時:
Sub Macro9()
For INP1 = 1 To Cells(Rows.Count, 1).End(xlUp).Row '(1)
A = Cells(INP1, 1).Text
B = Len(A)
RETU = 2 '(2)
For INP2 = 1 To B Step 4
C = Mid(A, INP2, 4)
Cells(INP1, RETU).NumberFormatLocal = "0000" '(3)
Cells(INP1, RETU) = C
RETU = RETU + 1
Next INP2
Next INP1
End Sub
(注)18桁などの場合も表示されます。(画像の3行目)
値は99ですが0099と表示されます
(1) 1行目からデータが入力されているものとしています。
2行目からであれば1To......の1を2に変えて下さい。
(2) 4桁にわけられたものはB列から表示されるようになっています。
RETU = 2 の2はB列の事です。C列であれば3に変えて下さい。
(3) 表示されたものは書式で4桁表示にして数値として扱っています。
文字列にしたいのであれば"0000"を"@"下さい。
No.3
- 回答日時:
A列 16桁限定
A列選択→[Ctrl]+[1]セルの書式設定 表示形式 文字列 にしておく
C1セル =LEFT($A1,4)
D1セル =MID($A1,5,4)
E1セル =MID($A1,9,4)
F1セル =RIGHT($A1,4)
MID関数で統一するなら
C1セル =MID($A1,1,4)
D1セル =MID($A1,5,4)
E1セル =MID($A1,9,4)
F1セル =MID($A1,13,4)
さらに配列数式を使うなら
C1:F1セルを選択して
=MID($A1,{1,5,9,13},4)
[Ctrl]+[Shift] +[Enter] で確定({}で囲まれる)
No.2
- 回答日時:
「16桁の数字列」が Sheet1 のセル A1 に入力されているとき、別の Sheet の任意のセルに、
式 =MID(Sheet1!A$1,1+(ROW(A1)-1)*4,4) を入力して、此れを下方にドラッグ&ペースト
または
式 =MID(Sheet1!$A1,1+(COLUMN(A1)-1)*4,4) を入力して、此れを右方にドラッグ&ペースト
No.1
- 回答日時:
> 字数が15桁を超えるとexcelが認識してくれないので
数値のままですと、15桁しか扱えません。
アポストロフィ(')を付ける、セルの書式を変更するなどして文字列として処理するのが妥当です。
そのまま計算には使えなくなるので、VALUE関数なんかで再度数値化する必要がありますが。
--
> あるセルに
> 0123456789123456
> と16桁の数字列を入力すると
A1に入力したとして、
B列に、
1
2
3
4
…
と連番を入力しておき、
C列に、
C1=MID($A$1, (B1-1)*4+1, 4)
C2=MID($A$1, (B2-1)*4+1, 4)
…
なんかの式で抽出とか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) <スプレッドシート>IF関数の複数条件について 5 2022/10/27 14:38
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 16:55
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) EXCELでリターンキーが押されたらそのセルに特定の文字を表示したいのですが。 2 2022/08/07 12:58
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excelで数字をハイフンで区切るには?
Excel(エクセル)
-
エクセル 数字を分割して別セルに表示したい。
Excel(エクセル)
-
【エクセル】16進数の文字列を2桁ずつ区切りたい。
Excel(エクセル)
-
-
4
エクセルの数値欄の桁区切りを4桁にする方法
Excel(エクセル)
-
5
複数桁の数字を1セルずつ表示したい
Excel(エクセル)
-
6
含まない言い方ってどうしたらいいんでしょうか
日本語
-
7
エクセルで、連続した数字を1文字ずつに分けたい
Excel(エクセル)
-
8
HEX2BIN関数の使い方。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
会社のOutlookにてメールを予約...
-
マクロ自動コピペ 貼り付ける場...
-
「生産性ソフトウェア」とは何...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
Microsoft familyに追加されま...
-
大学のレポート A4で1枚レポー...
-
無料のオフィス互換ソフトの使...
-
Microsoft 365 の一般法人向け...
-
outlookのメールが固まってしま...
-
マイクロソフトオフィス
-
Outlook で宛先が複数の場合の人数
-
Outlook 電源OFFの受診の仕方
-
EXCELのセルへの色づけ
-
Microsoft365の一部を解約したい
-
vb.net オブジェクト指向につい...
-
Office 2021 Professional Plus...
-
マイクロソフト オフィスについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
Excelで空白以外の値がある列の...
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
マイクロソフト 一時使用コード...
-
ウィンドウィズ メモ帳で日付だ...
-
MicrosoftOfficeの1ユーザー2...
-
Microsoft Formsの「個人情報や...
-
Officeの字体
-
エクセルでXLOOKUP関数...
-
Microsoft365で自動保存が出来...
-
Outlookで、任意のメールアドレ...
-
outlookのメールが固まってしま...
-
Microsoft 365 の一般法人向け...
-
Office2021を別のPCにインスト...
-
Microsoft 365のディフェンダー...
-
Excelに貼ったリンクについて E...
-
MicrosoftOffice2019なんですが、
-
Outlook で宛先が複数の場合の人数
おすすめ情報