---手強しエクセルVBA (1)---

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

 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

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

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

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

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

 で&を使って作ります。
 
 

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA