ol7ca
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору AndVGri спасибо. Я прошу прощения за, возможно, тупые вопросы - я новичёк Подскажите еще, пожалуйста, сколько максимально можно вставить значений в одну строку : Range( _ "C15:C24,C30:C81,C84,C89:C90,C97:C100,C103,C107:C116,C120,C124:C125,C131:C132,F135:F136,F10,P135:P136,P10" _ ) и если это уже максимум, то как добавить еще 10 раз по столько? a также, Range("C15").Copy Range( _ "C15:C24,C30:C81,C84,C89:C90,C97:C100,C103,C107:C116,C120,C124:C125,C131:C132,F135:F136,F10,P135:P136,P10" _ ).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("C15:C24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub этой операцией я хочу скопировать сначала формулы из другого файла (я потом укажу путь к файлу) а затем заменить формулы на значения. Но как короче записать вставку когда много формул? я знаю только так: Range("C15:C24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False потому как Range( _ "C15:C24,C30:C81,C84,C89:C90,C97:C100,C103,C107:C116,C120,C124:C125,C131:C132,F135:F136,F10,P135:P136,P10" _ ).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False не работает |