Excel VBA質問箱 IV

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

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


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

63673 / 76732

←次へ　｜　前へ→


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

かみちゃん - 04/9/4(土) 11:30 -


	引用なし

	パスワード

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

すでにKeinさんからもコメントが出ていますが、前回のコードの変更をすればできますので、ご紹介したいと思います。
前回、提示しましたコードは以下のとおりです。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=17548;id=excel

今回の修正にあたって、以下の変数の宣言を追加してください。
　　Dim MaxRow As Long, RowNo As Long, ColumnNo As Integer

そして、前回提示したコードの中に以下のコードがあると思います。

>　　'変形後の表の大きさを取得
>　　MaxColumn = Range("A1").CurrentRegion.Columns.Count

この下に以下のコードを挿入してください。

　　MaxRow = Range("A1").CurrentRegion.Rows.Count
　　'変形処理（列方向へ挿入したセルを行方向へ展開）
　　RowNo = 2
　　Do Until RowNo > MaxRow
　　　For ColumnNo = 2 To MaxColumn
　　　　If Cells(RowNo, ColumnNo).Value <> "" Then
　　　　　If ColumnNo > 2 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, 2)
　　　　　End If
　　　　Else
　　　　　Exit For
　　　　End If
　　　Next
　　　RowNo = RowNo + 1
　　Loop
　　'列方向へ挿入した列全体を削除
　　Range(Columns(3), Columns(MaxColumn)).Delete Shift:=xlToLeft

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

0 hits

▼

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