Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61063 / 76732

←次へ　｜　前へ→


	【20294】Re:空白を含む１つの長いデータを分割したい

Kein - 04/12/4(土) 14:57 -


	引用なし

	パスワード

A列の値を全て 3,3,3,2,2,2 の文字数で分割して AA1 から表示するとして

Columns(1).Parse "[xxx][xxx][xxx][xx][xx][xx]", Range("AA1")

というコードで出来ます。なので

MyV = Range("AA1:AF1").Value
Sheets("Sheet2").Range("A1:A6").Value = _
WorksheetFunction.Transpose(MyV)

とすれば、シート2へ行列変換して入力できますが、AA2 以下に分割入力してある
データは、どこへ持っていけばいいのでしょーか ?
>実際のデータは数百人
となると、列数が足りないから A7 以下の1列に繋げて入力するのでしょーか ?

Dim C As Range
Dim MyV As Variant
Dim i As Long

Columns(1).Parse "[xxx][xxx][xxx][xx][xx][xx]", Range("AA1")
i = 1
For Each C In Range("AA1", Range("AA65536").End(xlUp))
　 MyV = C.Resize(, 6).Value
　 Sheets("Sheet2").Cells(i, 1).Resize(6).Value = _
　 WorksheetFunction.Transpose(MyV)
　 i = i + 6
Next
Range("AA:AF").ClearContents

0 hits

▼

【20281】空白を含む１つの長いデータを分割したい 初心者です 04/12/4(土) 12:16