Вариант точный
Sub CompileData ()
Тусклое rngToCompile как ряд
Тусклое rngArea как ряд
Затемните I как длиной
Затемните wksName как шнур
Затемните r как длиной
Затемните MySheets
Затемните wksCompile как рабочий лист
Затемните rCell как ряд
Установите wksCompile = рабочий лист («составление»)
MySheets = блок («CH1», «CH2», «CH3», «CH4», «CH5», «CH6», «CH7») '< adjust="" sheet="" names="" here="" Application="">
|