|
VBAを始めたばかりの初心者です。
よろしくお願いします。
以下のようなシートがあります。
1 100 105
2 200
3 150
“1”はセルA1に該当します。
“105”に該当するところは、計算式“B1*1.05”が入っています。
列Aは上の見本では3までですが、最終行が毎回変わります。
この“105”の計算式を、(最終行をA列で判断して)最終行までコピーしたいのですが、うまくいきませんでした。
-------------------------------------
Sub 計算式コピー()
Dim i As Long
i = Range("A65536").End(xlUp).Row
ThisWorkbook.Worksheets(1).Cells(1, 3).Select
Selection.AutoFill Destination:=Range("C2:C" & i), Type:=xlFillDefault
End Sub
-------------------------------------
これだ!と思って使用したのですが、Selection.AutoFill自体正しいのか判らなくなってきました…。
“B1*1.05”の計算式を下までひっぱれれば、記入方法にはこだわりません!
ご助言よろしくお願い致します。
|
|