Доброе утро,
Я хотел бы спросить вас, как циклически копировать массовые значения данных в строках.
В моем случае есть десятки таблиц, куда мне приходится вводить данные,В соответствии с формулами Excel, я могу скопировать его, используя опцию Вставить формулы.
Однако в VBA, когда я использую приведенный ниже код, он кажется здоровенным:
Sub sum_month()
Sheets("13").Activate
Range("EG822").Formula = "=SUM(EG12+EG282+EG552)" '-4
Range("EG822").Copy
Range("EG822:FT846").PasteSpecial xlPasteFormulas
Range("EG822:FT846").Copy
Range("FY822:HL846").PasteSpecial xlPasteFormulas
Range("HR822:JE846").PasteSpecial xlPasteFormulas
Range("EG852").Formula = "=SUM(EG42+EG312+EG582)" '-3
Range("EG852").Copy
Range("EG852:FT876").PasteSpecial xlPasteFormulas
Range("EG852:FT876").Copy
Range("FY852:HL876").PasteSpecial xlPasteFormulas
Range("HR852:JE876").PasteSpecial xlPasteFormulas
Range("EG882").Formula = "=SUM(EG72+EG342+EG612)" '-2
Range("EG882").Copy
Range("EG882:FT906").PasteSpecial xlPasteFormulas
Range("EG882:FT906").Copy
Range("FY882:HL906").PasteSpecial xlPasteFormulas
Range("HR882:JE906").PasteSpecial xlPasteFormulas
End Sub
В основном я должен сделатьскопируйте на шаге 30 в той же строке (проблема связана со многими столбцами в соответствии с приведенным выше кодом).
Кто-нибудь знает, как с этим бороться?
Спасибо,