|
▼チューリップ さん こんにちは
>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してくれますので)、
コピー先シートのほうで空の列挿入してはどうでしょう?
|
|