Здравствуйте знатоки!
При помощи макрорекордера и написании формул решил создать макрос для определённой задачи. Я нуб в VBA и соответственно мой макрос далёк от совершенства как и само оформление, прошу не судить строго. Вопрос такой, а можно ли этот макрос написать более профессионально с небольшими комментариями? Очень буду признателен за помощь т.к. мною написанный макрос не только нубский, но и, я так подозреваю, будет тормозить на большой умной таблице. Спасибо!
При помощи макрорекордера и написании формул решил создать макрос для определённой задачи. Я нуб в VBA и соответственно мой макрос далёк от совершенства как и само оформление, прошу не судить строго. Вопрос такой, а можно ли этот макрос написать более профессионально с небольшими комментариями? Очень буду признателен за помощь т.к. мною написанный макрос не только нубский, но и, я так подозреваю, будет тормозить на большой умной таблице. Спасибо!
| Код |
|---|
Sub Макрос3()
Range("I8:I" & Cells(Rows.Count, 4).End(xlUp).Row).Select
Selection.FormulaR1C1 = "=IF(COUNTIF(R8C4:RC[-5],[@1])=1,VLOOKUP([@1],Таблица24,2,0),"""")"
Selection.Copy
Range("I8:I" & Cells(Rows.Count, 4).End(xlUp).Row).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
|
