[[20090916181732]]　『VBAでフィルハンドルダブルクリックを使い、最後ａx（ふぁう）　ページの最後に飛ぶ

『VBAでフィルハンドルダブルクリックを使い、最後までコピーしたい』（ふぁう）

 マクロの記録での質問です。
 C列に１列挿入し、C2に  =left(b2,3)  と関数を入力し、
 そのセルのフィルハンドルをダブルクリックすることで、
 B列の最後のデータが入っているところまで一気にコピーをしたいのです。
 記録をしたところ、下記のようなコードになりました。

 これを試してみたところ、
 例えば記録時のB列のデータが76行までしかなかった場合、
 新たなデータは１００行あるとすると、76行目までしかコピーされません。
 「B列のデータがある限りコピーをする」
 とするにはどうすればよろしいでしょうか？

 ちなみに、B列のデータは空欄はありません。
 宜しくお願いいたします。

    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],3)"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C76")
    Range("C2:C76").Select
    Range("C2").Select

 一寸違いますが、こちらのログが参考に成りそうに思います。
[[20090915095813]]『マクロで最終行までコピーするには？』（りりあん）

 (HANA)

 一例

 Columns(3).Insert
 Range("b2", Range("b" & Rows.Count).End(xlUp)).Offset(, 1).Formula = "=left(b2,3)"

 (seiya)

 できました！
 ありがとうございました。

 （ふぁう）

コメント返信：

[ 一覧(最新更新順) ]

[[20090916181732]] 『VBAでフィルハンドルダブルクリックを使い、最後ａx（ふぁう） ページの最後に飛ぶ

[[20090916181732]]　『VBAでフィルハンドルダブルクリックを使い、最後ａx（ふぁう）　ページの最後に飛ぶ