マクロで貼り付けができません。

質問

エクセルのマクロについて質問です。

ある表を「可視セルを選択」→「アクティブ領域を選択」し、コピーした後、別のシートに貼り付けようとしたところ、エラー「コピー領域と貼り付け領域の形が違う為情報を貼り付けることができません」が表示され、貼り付けられませんでした。マクロを作成した時に、同じ形の元データ数種類を使用し動作を確認した時は、貼り付けができました。今回使用した元データと相違する部分を探しましたが、見当たりせんでした。また、貼り付け元・先共に、結合するセルはありません。

解決策はあるのでしょうか？

回答No.1

imogasi

>「可視セルを選択」→「アクティブ領域を選択」し
→はどういう意味ですか？
両方重ねてする意味は無い（指定は出来ない）のではとおもうが、私がまちがっていますか。
文章で書けば、やりたいことはどういうことですか？
操作をしてマクロの記録を取ったらどうなりましたか？

補足

ご回答有難うございます。

先ず、やりたいことは、
(1)ある表(表の形式は常に同じ、但しデータの行数はランダムで1～20行)を別シートにコピー
　コピーするのは、表を別途加工するからです。
(2)コピーした表の必要なデータ以外を削除
(3)(2)を集計、集計行のみを元のシートに貼り付け
です。

元データおよび集計後の行数がランダムである為、
アクティブセルおよび可視セルを選択が必要かと思いまして、
重ねてした次第です。

操作をして記録を取った前後の記録は、
　　Columns("A:B").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=-3
Range("H6").Select
「ActiveSheet.Paste」
ActiveWindow.SmallScroll Down:=18
Rows("28:29").Select
Selection.RowHeight = 24
で、うまく動作しなかった時は「」部分でエラーが出たようです。

ご質問に対し、もし適切なお答えができていませんでしたら、是非ご指摘ください。