Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6660 / 76734

←次へ　｜　前へ→


	【75673】Re:同じフォルダ内での作業について

kanabun - 14/6/12(木) 10:19 -


	引用なし

	パスワード

>▼マリモさん： >　　'------ 抽出データをコピー >　　r.Columns("D:F").Copy >　　copyBook.Worksheets(1).Range("H1").PasteSpecial Transpose:=True >　　copyBook.Save >　　copyBook.Close False >　　 >　　r.AutoFilter のところは 2つ目以降の表のとき、[H1]へ上書きコピーしてしまうので都合が悪いです。その部分、たとえば以下のように修正してください。　　'------ 抽出データをコピー　　Dim CopyTo As Range 　　r.Columns("D:F").Copy 　　Set CopyTo = copyBook.Worksheets(1).Cells(Rows.Count, "H").End(xlUp) 　　If CopyTo.Row > 1 Then Set CopyTo = CopyTo.Offset(1) 　　CopyTo.PasteSpecial Transpose:=True 　　copyBook.Save 　　copyBook.Close False 　　　　r.AutoFilter