Excelのセル内容の分割について

質問

以下のようにセルA1では家族の名前が”・”で区切られて入力してあり、セルB１ではそれに伴う”備考”が記入してあります。

A1　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |　B1
山田太郎・花子・次郎・三郎　　　 |　備考文書

以上のような形式を一括で以下のように行を挿入し分割したいと考えています。
＊備考は全てB1をコピーしたい。

山田太郎　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|　備考文書
山田花子　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |　備考文書
山田次郎　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|　備考文書
山田三郎　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |　備考文書

分かり難い説明で申し訳ありませんが宜しく御願い致します。

回答No.2

tom04 · ベストアンサー

こんにちは！
お示しのA列データでは　姓・名　の区切りが判りません。
人間の場合、おそらく「山田」が姓だと一応判断しますが（「山」が姓の可能性あり！）
Excel的には何か区切りの判別材料が必要です。

ただ・・・これでは何もお役に立たないので、一案です。
↓の画像のような感じであれば、今のデータでも可能です。
ただし、VBAになってしまいます。
1行目はタイトル行でデータは2行目以降にあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, k As Long
Dim myArray As Variant
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) Like "*・*" Then
myArray = Split(Cells(i, 1), "・")
Rows(i + 1 & ":" & i + UBound(myArray)).Insert
For k = 0 To UBound(myArray)
Cells(i + k, 1) = myArray(k)
Next k
End If
Next i
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 2) = "" Then
Cells(i, 2) = Cells(i - 1, 2)
End If
Next i
Columns("A:B").AutoFit
Application.ScreenUpdating = True
End Sub 'この行まで

※　無理矢理のコードです。m(_ _)m

お礼

ご回答頂き有難う御座います。
頂いたマクロを参考に元データ(Excel)の編集も再度考えたいと思います。
有難う御座いました。

回答No.1

oct1290

結論から言いますと１００％は無理
ですがＶＢＡ等を書きこの作業を１００％ワンクリックでするなら相当な高度なＶＢＡになりますよ
名前がすべて漢字４文字とは限らないでしょうに
ひらがな、カナもあるでしょう、

簡易的にはＣＳＶに変換し並べ替えるかアクセスがあればＣＳＶを取り込み編集する
ですが、山田の後が記載されないのでこの部分は手動で修正編集が必要

どの程度の大きさのデーターか不明ですがマクロや関数で１００％ご希望の様にはならないと思います。

カンマ区切り等のＣＳＶ操作がご理解できれば良いと思いますが。

お礼

ご回答頂き有難う御座いました。
参考にさせて頂きます。