Всем эрудитам очередной добрый день!
Друзья помогите плиз дочитать кода VBA написанный макрорекордером!
Справа напротив строк кода пишу то что понимаю, а где начинается формула не получается перевести начиная с аргумента Tab, 2
Друзья помогите плиз дочитать кода VBA написанный макрорекордером!
Справа напротив строк кода пишу то что понимаю, а где начинается формула не получается перевести начиная с аргумента Tab, 2
Код |
---|
Range("P6:P1000").Select 'Скопировали столбец P Selection.Copy Range("R6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 'Вставили из буфера значения P в столбец R :=False, Transpose:=False Range("I6").Select Application.CutCopyMode = False 'Активировали ячейку I6 и в ней пишем формулу: ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[9],Tab,2,FALSE),"""")" '=Еслиошибка(ВПР(R9; а дальше не понятно!!!!! Range("I6").Select Selection.Copy Range("I7:I1000").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("I6:I1000").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("Q6:Q1000").Select Application.CutCopyMode = False Selection.Copy Range("L6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("R6:R1000").Select Application.CutCopyMode = False Selection.ClearContents End Sub |