セル内で改行された文字列をセル分割したい

質問

以下のような一セル内で改行された文字列を改行ごとに分割して別シートへコピーするExcelVBAを作成したいと考えています。
（以下は山田さんのレコード一行を記載しましたが下のセルに担当者のレコードが同様に続きます。）

　　　Ａ　　　　　　　　　Ｂ　　　　　　　　　　　Ｃ　　　　　　　　　　Ｄ
　----------+---------------+------------+---------------+　
　担当者　　　　　　日付　　　　　　　　　履歴　　　　　　　　更新日
　----------+---------------+------------+---------------+
　山田　　　　　　　2001/01/01　　　　札幌支店　　　　2005/01/01
　　　　　　　　　　　2002/01/01　　　　福岡支店　　　　2005/04/01
　　　　　　　　　　　2003/04/01　　　　東京支店　　　　2005/04/01
　----------+---------------+------------+---------------+

上記を別シートへ以下のようにセル内容を分割してコピーしたいのです。
　　　Ａ　　　　　　　　　Ｂ　　　　　　　　　　　　Ｃ　　　　　　　　　　　Ｄ
　----------+---------------+------------+---------------+
　　担当者　　　　　日付　　　　　　　　　履歴　　　　　　　更新日
　----------+---------------+------------+---------------+
　　　山田　　　　　2001/01/01　　　　札幌支店　　　　　2005/01/01
　----------+---------------+------------+---------------+
　　　山田　　　　　2002/01/01　　　　福岡支店　　　　　2005/04/01
　----------+---------------+------------+---------------+
　　　山田　　　　　2003/04/01　　　　東京支店　　　　　2005/04/01
　----------+---------------+------------+---------------+

※質問の表記で-------------+-----------と記載しているのは
セルをイメージしました。Ａ1に「担当者」Ａ2に「山田」と記載しているイメージです。問題はB.C.D列のセル内容ですが前任者が一つのセルに改行を利用して入力しているため、内容を行に分割したいと考えています。件数が非常に多く手作業を排除した方法でＶＢＡを利用した方法がわかる方にお教えいただきたく投稿させていただきました。
当方Ｅｘｃｅｌ2000を利用していますが上記の処理ＶＢＡマクロをどうか教えてください。

回答No.1

pbforce

Sub test()
strTest = Cells(1, 1).Value
Cells(1, 2) = InStr(1, strTest, vbLf)
End Sub

でセル内の改行位置を判定できます。
セル内のvbLfを探せば文字を分割する位置が判断できます。

お礼

判定条件を理解しました。ありがとうございました。