Sub 累積保存()について 削除
| Message#3 2014年12月16日(火)14時08分 From: マスタージョイン |
| こんにちは。 A2をC5より、ということなんですが、この場合、「最初の転記」を正しくする 為だけに、コードを追加する必要があります。 1) コードを単純にしたい、変更量が一番少ない、という場合 C4セルに「見出し」を用意してあって、上記コードは lRow =Worksheets("Sheet2").Range("C50000").End(xlUp).Row + 1 With Worksheets("Sheet1") Worksheets("Sheet2").Cells(lRow, 3).Value = .Cells(1, 2).Value Worksheets("Sheet2").Cells(lRow, 4).Value = .Cells(2, 2).Value Worksheets("Sheet2").Cells(lRow, 5).Value = .Cells(3, 2).Value End With となります。 2) C4セルは空白で、C5から転記したい lRow =Worksheets("Sheet2").Range("C50000").End(xlUp).Row + 1 if lRow < 5 then lRow = 5 end if と、コードを追加してください。 累積のコードですから、追加したifが必要なのは、ほんとに、最初だけなんですけどね。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
