|
▼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 -
お手数おかけしますが、よろしくお願いします。
|
|