Excel VBA質問箱 IV

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

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


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

19940 / 76736

←次へ　｜　前へ→


	【62221】Re:Forで、条件に当てはまらない場合次の処理へ

kanabun - 09/7/2(木) 14:10 -


	引用なし

	パスワード

▼チューリップさんこんにちは

>sheet3のデータ：
>項目　＿1＿2＿3
>あああ｜ 2 15 30
>いいい｜10　8　9
>あああ｜ 5 30　5
>あああ｜ 6　7　8
>あああ｜12　7 15
>えええ｜10　5　6
>あああ｜ 7　8　9
>ううう｜15　5　5
>えええ｜10　5　6
>
>という表からオートフィルター"あああ"で抽出して、以下のようにしたい
>
おやりになりたいことはどういうことですか？
たとえば、
[Sheet3]の[A1]セルで Ctrl+Shift+[*]をすると、
表範囲が求まりますよね？
この範囲がAutoFilter.Range です。その状態で、
A列が「あああ」でAutoFilterをかけると、こうなります。↓

[Sheet3]フィルタ後
1　項目　　　　　 A　　　　B　　　　C
2　あああ　　　　　　2　　　　15　　　　30
4　あああ　　　　　　5　　　　30　　　　 5
5　あああ　　　　　　6　　　　 7　　　　 8
6　あああ　　　　　 12　　　　 7　　　　15
8　あああ　　　　　　7　　　　 8　　　　 9

この状態で、一行目を除いて、範囲全体をCOPYして
「あああ」シートの[A1]セルで
Transpose:=True で PasteSpecial しますと、
こうなります。

Sheet「あああ」-------------------------
　 A 　　　　 B　　　　C　　　　D　　　　E
1 ああ　　　　あああ　　　　あああ　　　　あああ　　　　あああ
2　2　　　　 5　　　　6　　　　12　　　　7
3 15　　　　30　　　　7　　　　 7　　　　8
4 30　　　　 5　　　　8　　　　15　　　　9

↑これではまずいんですよね？

>sheet2:
>あああ　あああ一あああ　あああ一あああ
>　2　　　　5　　　列　　6　　　12　　列　 7　　　　　　　　
> 15　　　 30　　　空　　7　　　 7　　　空　 8
> 30　　　　5　　　　　　 8　　　 15　　　　　9　　　　　　　　

空白行を挿入したいということでしたら、抽出した全範囲を
一括コピーしてから（COPYコマンドは可視行だけCOPYしてくれますので）、
コピー先シートのほうで空の列挿入してはどうでしょう？

0 hits

▼

【62220】Forで、条件に当てはまらない場合次の処理へ チューリップ 09/7/2(木) 13:29