|
はじめまして。
これからVBA初心者です。
マクロを記録して以下のコードを得ました。
Sub Macro1()
ActiveCell.FormulaR1C1 = "=LEFT(RC[1],5)"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A12000")
Range("A2:A12000").Select
Range("A1").Select
end sub
中身は、B列に入力された文字より指定数抜き出した答えを
A列に記入するものです。
教えていただきたいのは、
最終行の値を隣のB列の最終行に合わせたいということです。
最終行は毎回変わるので、可変にしたいのですが
わかりません。
また、オートフィルを使って貼り付けとういう動作は、
VBAにて
「B列より抜き出した答えをA列に入力」
という風に記述することで代用することは可能でしょうか?
まだ記録しかわからないので、VBAの記述を学びたいと思っています。
が、参照している入門書では
「得た値をmsgboxで出す」という書き方しかなくて、
どうやったらAセルに答えを入力したらいいのかわかりません。
よろしくお願いします。
|
|