Excel VBA質問箱 IV

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

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


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

63656 / 76732

←次へ　｜　前へ→


	【17671】Re:文字列のカンマ区切りとワークシート表のセル並び替え

かみちゃん - 04/9/4(土) 19:25 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>これで、ご希望の展開ができると思います。（動作確認済み）

さきほどのKeinさんに対する、しんさんからの質問を見て、私が提示したコードも動作しないことがわかりました。いわゆるバグです。
さきほどのコードのうち、以下の★印の行を修正してください。

　　　For ColumnNo = 3 To MaxColumn '★
　　　　If Cells(RowNo, ColumnNo).Value <> "" Then
　　　　　If ColumnNo > 3 Then '★
　　　　　　Rows(RowNo).Copy
　　　　　　Rows(RowNo + 1).Insert Shift:=xlDown
　　　　　　RowNo = RowNo + 1
　　　　　　MaxRow = MaxRow + 1
　　　　　　Application.CutCopyMode = False
　　　　　　Cells(RowNo - 1, ColumnNo).Copy Destination:=Cells(RowNo, 3) '★
　　　　　End If
　　　　Else
　　　　　Exit For
　　　　End If
　　　Next

なお、さきほどのコードも含めてSheet1自身を展開するようにしています。
Sheet2はあらかじめ用意してあるのでしょうか？
最初にSheet1をSheet2にコピーして開始する方法であれば、このコードが使えるのですが、はじめから用意してあるSheet2に展開したいのであれば、かなり手を加えないといけなくなります。

0 hits

▼

【17647】文字列のカンマ区切りとワークシート表のセル並び替え しん 04/9/4(土) 0:13