エクセルで各セルの自然数を１０桁から６桁に一括で変換する方法は有りますか？

エクセルで、A１からA１００まで全てに、１０桁の自然数が入ってます。

この各セルの数字を、左側４ケタを消して、右側６ケタだけを残すようにしたいのですが、
書式設定や、関数など使って一括で一気にそのように変換する方法は有りませんでしょうか？

例
1234567890→567890
にするということです。

No.4 ベストアンサー 回答者： プログラマーもっくん 回答日時： 2016/12/04 04:03

お疲れさまです。

　その様な場合はMid関数を使用いただければと思います。
　 MID(<文字列> , <開始位置> , <文字数>)

　例えばA1に1234567890と入っていた場合
　
　B1に=MID(A1,5,2)&"-"&MID(A1,7,4)を入力すると
　56-7890がB1に表示されます。これを下にコピーいただければと思います。

　初めのMIｄでA1の値を５文字目から２文字取り出します（５６）
　次のMidでA1の値を７文字目から４文字取り出します（７８９０）
　この２つの数字をーで繋げていただければと思います。

この回答へのお礼

ありがとうございます(^o^)

完璧です！

お礼日時：2016/12/04 09:02

No.3 回答者： GooUserラック 回答日時： 2016/12/03 10:08

余り必要性は感じませんが、式などでは作業行が必要なのでマクロ（ＶＢＡ）の処理です。

--------------------------------------------------------------
Sub 桁変換()
Dim 行 As Long
For 行 = 1 To 100
Cells(行, 1).Value = Right(Cells(行, 1).Value, 6)
Next
End Sub
--------------------------------------------------------------

No.2 回答者： neKo_deux 回答日時： 2016/12/03 09:00

RIGHT関数で右側の6桁を取り出す。

A2:=RIGHT(A1,6)

1000000で割り算した余りを求める。
A2:=MOD(A1,1000000)

とか。

No.1 回答者： プログラマーもっくん 回答日時： 2016/12/03 01:40

お疲れ様です。

必ず10桁が入っている前提ですが
例えばB1にA1の値をとりだすときは、B1に=right(A1,6)
A1の値を右から6桁取り出す。
を入力し、これを下にコピーしていけば良いと思います。

この回答へのお礼

回答ありがとうございます。

よく分かりました。

もし分かればなのですが、追加質問で
取り出した６桁の数字を「12-3456」のように、左から３つめにハイフンを入れれるようには出来ますでしょうか？

書式設定で、ユーザー定義に「00-0000」と入れても取り出したB１の方ではうまくできませんでした。

お礼日時：2016/12/03 23:02