2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

548 :名無しさん@そうだ選挙にいこう:2011/07/02(土) 11:26:51.16
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 VBA コピー 別シート 行を挿入貼り付け

複数人あるデータリストをフォームからオートフィルタをかけて抽出し
別シートに個人別に貼り付けをしたいのですが

'-----抽出データの最終行を求める----------
Worksheets("伝票").Activate
myRow2 = Worksheets("伝票").Range("A3").End(xlDown).Row
Worksheets("伝票").Range("A3:G" & myRow2).Copy '抽出データを範囲選択コピー
Worksheets("個人別シート").Activate
Worksheets("個人別シート").Rows("4:4").Insert Shift:=xlDown '行を挿入し貼り付け
'--------------------------

ペースト時どうしても空白の行1行しか貼り付けされません
上記コードの最終行の記述はどのようにしたらよろしいのでしょうか
よろしくお願いします

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)