日: 2016年1月17日

　手強いＶＢＡを少しやっつけました。
　以前にしたことを少し思いだしましたが、未だ手強いのには、
　変わりありません。
　昨日、やっつけたのは、一定の範囲のセルを表の最下行に
　追加でペーストするというものです。
　ただ、これだけで、何時間もかかりました。できてみると、

　Sub コピー()
　　　　Worksheets(“Sheet1”).Range(“K133:O133”).Copy
　　　　Worksheets(“Sheet1”).Range(“C” & （Range(“C4”).End(xlDown).Row + 1）).-
　　　　PasteSpecial Paste:=xlPasteValues, -
　　　　Operation:=xlNone, SkipBlanks:=False, Transpose:=False
　　End Sub

　何のことはない、たった、２行です。
　K133～O133のセルに書かれているセルの値だけを、表の
　最下行にコピーするだけです。
　
　表の最下行を

　　　Range(“C4”).End(xlDown).Row

　で求め、その下を＋１で求めます。
　エクセルの番地は、英語と数字です。この番地を

　　　Range(“C” & （Range(“C4”).End(xlDown).Row + 1）)

　で＆を使って作ります。