Excel VBA質問箱 IV

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

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


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

15265 / 76734

←次へ　｜　前へ→


	【66950】Re:Do Whileで止まった任意のセルを含めた行より下の表をコピーするには？

モルト - 10/10/20(水) 18:27 -


	引用なし

	パスワード

▼Jaka さん： >こういうのでいいのかな？ >（Whileは、普段使わないので解りづらいから変えました。） > >With ThisWorkbook.Worksheets(3) >　　i = 139 >　　Do Until .Cells(i, 14).Value = 0 >　　　 i = i - 1 >　　Loop >　　.Range(.Cells(i + 1, 14), .Cells(139, 14)).copy >End With 返答ありがとうございます。すみません、後もう少しだと思います。検査日　ロット　生産枚数出荷先　出荷枚数　在庫数　出荷日 5/25　　5-21-1s 4000　　大阪　　2000　　　5000　　5/28　　　　　　　　　　　　　京都　　 3000　　　2000　　5/28 　　　　　　　　　　　　東京　　 2000　　　　 0　　5/29 5/25　　5-21-2s 3000　　熊本　　 1000　　　2000　　5/29 　　　　　　　　　　　　大阪　　 2000　　　　 0　　5/30 5/26　　5-24-2s 2000　　　-　　　　-　　　　2000　　 - 5/27　　5-25-1s 3000　　　-　　　　-　　　　5000　　 - 5/28　　5-26-2s 4000　　　-　　　　-　　　　9000　　 - 書いて頂いたプログラムですが上記表の部位ですと在庫数の2000、5000、9000とそれより下の空白セルのコピー状態となりますが、そこ以外の列も選択したいのです。下記部位全てです。 5/26　　5-24-2s 2000　　　-　　　　-　　　　2000　　 - 5/27　　5-25-1s 3000　　　-　　　　-　　　　5000　　 - 5/28　　5-26-2s 4000　　　-　　　　-　　　　9000　　 - お手数おかけしますが、よろしくお願いします。