文字列操作 挿入

質問

エクセルにおける文字列操作において
123X456X890
1234X2345X3456
のような、桁数がバラバラな状態で文字列データがあった際、
１．全てを１４桁に揃える
２．文字「X」を５及び１０桁目に持ってくる
　　（つまりは１４桁の文字数で、形式を揃える）
様な文字列操作を行うに、どの様な手法があるでしょうか？
お分かりになる方、ご教授いただけますと助かります。

回答No.4

maron--5 · ベストアンサー

◆こういうことでしょうか
＿＿＿＿Ａ＿＿＿＿＿＿＿＿＿＿Ｂ
1＿＿123X456X890＿＿＿＿0123X0456X0890
2＿＿1234X2345X3456＿＿1234X2345X3456
3＿＿12X34X56＿＿＿＿＿＿0012X0034X0056

B1=TEXT(LEFT(A1,FIND("X",A1)-1)*10^8+MID(SUBSTITUTE(A1,"X",REPT(" ",9)),9,9)*10^4+REPLACE(A1,1,FIND("X",A1,FIND("X",A1)+1),),"0000X0000X0000")
★下にコピー

お礼

ありがとうございました。関数にて対応が出来ました。感謝いたします。

回答No.5

imogasi

>１４桁の文字数で、形式を揃える）
何桁・何桁・何桁の３つの桁数を質問に明記のこと。
ーー
質問者は、関数で出来ればというレベルだと思うが
以下すべて５＋５＋５で揃える例にした。１４桁等なら”０００００”を”００００”にする。
Ａ１に1234x2345x3456　　を入れて
Ｘは２つしかないという前提で
最後のＸ以下を５桁（前に０を埋める）だけでも
=TEXT(MID(A1,FIND("x",A1,FIND("x",A1)+1)+1,LEN(A1)-FIND("x",A1,FIND("x",A1)+1)+1),"00000")
１４桁なら"0000"
という長い式になる。
先頭部分は　=TEXT(LEFT(A1,FIND("x",A1)-1),"00000")　で　01234
中間部分は　=TEXT(MID(A1,FIND("x",A1)+1,FIND("x",A1,FIND("x",A1)+1)-FIND("x",A1)-1),"00000")　で　02345
これら３つを、＆で結合したものになる。
恐ろしく長い式になる。
ーー
だからＶＢＡでユーザー関数がよかろう。
これはさまざまなタイプのプログラムがあるだろう。一例で
プログラム行数を少なくした。
標準モジュールに下記をコピペ
Function soroe(a)
p1 = InStr(1, a, "x")
p2 = InStr(p1, a, "x")
x = "000000000000000"
Mid(x, 1, 5) = Format(Left(a, p1 - 1), "00000")
Mid(x, 6, 5) = Format(Mid(a, p1 + 1, p2 - 1), "00000")
Mid(x, 11, 5) = Format(Right(a, Len(a) - p1 - p2), "00000")
soroe = x
End Function
使い方はセルに
=soroe(A1)
結果
012340234503456
１４桁（最後の部分が４桁なら）
"000000000000000"を１４個の０に
Mid(x, 11, 5) = Format(Right(a, Len(a) - p1 - p2), "00000")
の"00000"を"0000"に修正する。
ーー
どちらにしても質問者には易しくは無いでしょう。

お礼

素人質問で申し訳ありませんでした。長くなりましたが、関数で対応が出来ました。今後、用途に応じて、ＶＢＡを使用してみます。ありがとうございました

回答No.3

bin-chan

ＶＢＡでの例です。例外時の考慮をしていません。
以下のFUNCTAION以下を、標準モジュールを追加して貼り付けしてください。
セルA1に　123X456X890　があるとして
セルB1に　式[=henkan(A1)]と入れていただければ
0123X0456X0890
が得られます。

Function henkan(argString) As String

Dim strArrey() As String
Dim nArrey As Long
Dim nLoop As Long

strArrey() = Split(argString, "X")
nArrey = UBound(strArrey())

For nLoop = 0 To nArrey

strArrey(nLoop) = Format(strArrey(nLoop), "0000")

Next nLoop

henkan = Join(strArrey(), "X")

End Function

お礼

ＶＢＡはほとんど使用しなかったのですが、場合によっては容易に出来るのですね。ありがとうございました。

回答No.2

bin-chan

1234X2345X3456
は１４桁なのでよいのですが、
123X456X890
を１４桁にしたときの状態を例示してください。

補足

１４桁にした際の表示は、
0123X0456X0890
のように、頭に０をつけ、１４桁表示にしたいです。

回答No.1

koko88okok

1) 文字「X」を「置換」機能を使って削除して、数字だけにして、

2) 5桁と10桁目に文字「X」を表示するために、「セルの書式設定」の「表示形式」で、ユーザー定義を「#0"X"0000"X"0000」などと設定します。