Excel VBA質問箱 IV

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

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


19936 / 76732 ←次へ | 前へ→

【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 質問
【62221】Re:Forで、条件に当てはまらない場合次の処... kanabun 09/7/2(木) 14:10 発言
【62222】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 14:34 発言
【62224】Re:Forで、条件に当てはまらない場合次の処... つん 09/7/2(木) 14:46 発言
【62226】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 15:27 お礼
【62223】Re:Forで、条件に当てはまらない場合次の処... SS 09/7/2(木) 14:37 発言
【62225】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 14:54 お礼

19936 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free