Борьба с применением нормальной формулы excel в формате R1C1, поэтому я могу закодировать формулу в VBA. Вопрос в том, как я могу ссылаться на столбцы других листов, используя нотацию R1C1. Таким образом, в следующей формуле:Смешивание нотации R1C1 и A1
ell.Offset(0, 5).FormulaR1C1 = "=IF(LEN(R[]C[-2])>0,(R[]C[-2])*VLOOKUP([R[]C[1]),Core!A:C,3,FALSE)/_
VLOOKUP(R[]C[-1],Core!A:C,3,FALSE),R[]C[4])"
Как получить Core! A: C в формат R1C1? Я знаю, что вы не можете смешивать два формата, но я боюсь, что я не знаю синтаксиса для этого! Любая помощь приветствуется!
EDIT:
Sub Expo_dos_Formulas()
'===============================================================================
Sheets("Data_Sheet").Activate
For Each cell In Range("G5:G500")
If cell <> "Error" Then
cell.Offset(0, 5).FormulaR1C1 = "=IF(LEN(R[]C[-2])>0,_
(R[]C[-2])*VLOOKUP([R[]C[1]),Core!RC1:RC3,3,FALSE)/VLOOKUP(R[]C[-1],_
Core!RC1:RC3,3,FALSE),R[]C[4])"
End If
Next
'===============================================================================
End Sub
Благодаря Скотт, я подключен, что и затем поместить формулу в основной петле клеток, но я получение «определяемой приложением или объектной ошибки». вы могли бы помочь, почему? Я только что добавил код к quesiton. – IIJHFII
. Другое дело, в вашей исходной формуле была опечатка, в формуле была добавлена дополнительная ')'. Попробуйте тот, который я только что опубликовал. –
Также я дал плохой совет в своем комментарии, поэтому ответ в ответе. –