Sub 累積保存()について 削除
| Message#2 2014年12月16日(火)11時49分 From: VBAマスター |
| >heet2のC5より順次保存するには、どのようにすればよいでしょうか。 ということですが、単純に Worksheets("Sheet2").Cells(lRow, 1).Value = .Cells(1, 5).Value Worksheets("Sheet2").Cells(lRow, 2).Value = .Cells(2, 5).Value Worksheets("Sheet2").Cells(lRow, 3).Value = .Cells(3, 5).Value にすればできませんか？ 次々に保存するのであれば変数を設けて処理ごとに1プラスするようなやり方になるかと思います。 例） 変数i=5 処理の終わりにi=i+1を追記する。 > ネット上で > Sub 累積保存() > Dim lRow As LonglRow = Worksheets("Sheet2").Range("A50000").End(xlUp).Row + 1With Worksheets("Sheet1") > Worksheets("Sheet2").Cells(lRow, 1).Value = .Cells(1, 2).Value > Worksheets("Sheet2").Cells(lRow, 2).Value = .Cells(2, 2).Value > Worksheets("Sheet2").Cells(lRow, 3).Value = .Cells(3, 2).Value > End With > End Sub > というVBAを見つけました。これは、同一ファイル上での累積記録のようです。このまま使えば、Sheet2のA2より順次保存されます。これを例えば、Sheet2のC5より順次保存するには、どのようにすればよいでしょうか。 > Excel2007で以上のような作業をしたいと考えています。 > ご協力いただければ、幸いです。よろしくお願いします。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
