|
▼kuyacchi さん:
>エクセルのVBAで今詰まっています。
>シート1に次のようなデータがあったとします。
>
> A B C
>13 False CD-ROM 2
>14 True PC 1
>15 True DVD-RAM 3
>16 False MO 4
>17 True ケーブル 2
>
>ここで
>Range("A13").AutoFilter 1, True
>でオートフィルターをかけて、B13:C17のデータ(実際は14、15、17)を
>別のシート(シート2)のC6:D6の下の行にかけて“値”の貼り付けさせたいのですが、
>うまくいきません。
>
>
>どのようなコードにすれば良いでしょうか?
>また、“C6:D6の下の行にかけて”の意味は、シート1で抽出する行が可変の為
>すべての範囲を指定できないからです。
>上記のサンプルでは
>
> C D
>6 PC 1
>7 DVD-RAM 3
>8 ケーブル 2
>
>としたいのです。宜しくお願いします。
最終行を見つけてコピーするということでしょうか?
シートの行数は sheet1.cells(sheet1.rows.count,対象列).End(xlup).Row
で求めることができます。
|
|