Как заполнить activecell в VBA

Question

Может ли кто-нибудь мне помочь?Допустим, I4:I - это мой Lastrow, и Activecell в G заполнит формулу.

Dim Lastrowzxc As Long
Lastrowzxc = Range("I4").CurrentRegion.Rows.Count

Range("G" & Rows.Count).End(xlUp).Offset(1).Select
  ActiveCell.FormulaR1C1 = "=IF(RC[2]<0,""40"",""50"")"
Selection.AutoFill Destination:=Range(ActiveCell.Address & Lastrowzxc)

Answer 1

Зачем беспокоиться о выборе диапазонов?Это плохая практика.

Я не совсем понимаю, какова ваша цель, поскольку вы выбираете ячейку ниже последней ячейки столбца G. Я полагаю, вы хотите начать с последнего ряда столбца G до последнего ряда столбца I?Если так ..:

With Workbooks("REFERENCE").Sheets("REFERENCE")
LastrowI = .Cells(.Rows.Count, "I").End(xlUp).Row
LastrowG = .Cells(.Rows.Count, "G").End(xlUp).Row

.Range("G" & LastrowG).FormulaR1C1 = "=IF(RC[2]<0,""40"",""50"")" 'change Range if necessary
.Range("G" & LastrowG).FormulaR1C1.AutoFill Destination:= .Range("G" & LastrowG & ":G" & LastrowI)

End With

Answer 2

Предположим, I4:I20 - это диапазон для заполнения, а G4 содержит формулу, это то, что вы должны сделать:

Range("I4:I20").FormulaR1C1 = Range("G4").FormulaR1C1

Answer 3

Попробуйте, это работает для меня:

Dim Lastrowzxc As Long
Lastrowzxc = ActiveSheet.Range("I4").currentRegion.Rows.Count

Range("G" & ActiveSheet.Rows.count).End(xlUp).Offset(1).Select

Selection.FormulaR1C1 = "=IF(RC[2]<0,""40"",""50"")"

Selection.AutoFill Destination:=Range(Range(ActiveCell.Address), Cells(Lastrowzxc, ActiveCell.Column))

Answer 4

У вас неверный адрес в 'Range' автозаполнения.Это может сработать, но это далеко от совершенства (только отправная точка, чтобы вы начали):

Dim Lastrowzxc As Long
Lastrowzxc = Range("I4").CurrentRegion.Rows.Count

Range("G" & Rows.Count).End(xlUp).Offset(1).Select
  ActiveCell.FormulaR1C1 = "=IF(RC[2]<0,""40"",""50"")"
Selection.AutoFill Destination:=Range(Cells(2, 7), Cells(Lastrowzxc, ActiveCell.Column))