|
こんにちは。かみちゃん です。
Hirofumiさんからコードだけ提示されていますが、
>A列には枝番のコードがあります。C、D、E列は各々大、中、小分類となっています
>。区切り文字−で分割すると0が表示されません
0を表示したいのですか?したくないのですか?
提示されたシートレイアウト゛したいことだと思ってコードを提示すると以下のような
感じでできると思います。
A列の値を"-"で区切って、大区分、中区分、小区分に分解して、F列に分解後を
"-"でつなげた文字列を作っています。
ポイントは、Split関数、Offsetプロパティ、& です。
Sub Sample()
With Range("A1")
.Offset(, 2).Resize(, 3).Value = Split(.Value, "-")
'以下の1行で文字列から数値に変換している(0を表示させないようにしている)
.Offset(, 2).Resize(, 3).Value = .Offset(, 2).Resize(, 3).Value
.Offset(, 5) = .Offset(, 2).Value & "-" & .Offset(, 3).Value & "-" & .Offset(, 4)
End With
End Sub
|
|