Excel VBA質問箱 IV

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

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


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

46502 / 76735

←次へ　｜　前へ→


	【35203】Re:値を検索で行ごとコピー

Help me!! - 06/2/23(木) 17:37 -


	引用なし

	パスワード

▼Kein さん：

これで完璧！！と言いたいのですが、
言い忘れてしまった事が一つあります。
ごめんなさい。

それは、シートが2005.4,2005.5,2005.6,・・・2006.2
といった感じに複数存在していて、最終的には立替金シートにすべて集約したいのです。
ですから、作っていただいたマクロをどうにかデータが無い行に貼り付けていくことは出来ませんか？
今のだとセルB2から上書きしてしまいます。

Intersect(.SpecialCells(3, 1).EntireRow, Sh.Range("A:I")).Copy Worksheets("立替金").Range("B2")
　　　　　　　　　↑
どうにか空欄かどうかチェックしてから空欄行に貼り付ける事は出来ませんか？

よろしくお願い致します。

0 hits

▼

【35195】値を検索で行ごとコピー Help me!! 06/2/23(木) 16:05