Как могу я скопировать ряд клеток в рабочий лист к другой зоне в таком же рабочий лист основанном значения клетки в Эксел 2007? - Проблемы и решения вопросов, связанных с Microsoft

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

Sub specialmacro ()
Тусклый ws как рабочий лист
Тусклое rng1 как ряд
Тусклое celle1 как ряд
Тусклое rng2 как ряд
Тусклое celle2 как ряд
Тусклое pickstart как дата
Тусклый выдых как дата
Тусклое pickweek как длиной
Тусклое rng_step как длиной
Тусклое step_counter как длиной

Установите ws = листы («Пример-перед»)

Установите rng1 = ws. Ряд (ws. Клетки (2, «a»), ws. Клетки (ws. Rows.Count, «a»). Конец (xlUp))
pickweek = 3

step_counter = 0
Для rng_step = от 0 до 26 разделу 13
    Для каждого celle1 в rng1
        pickstart = celle1.Offset (0, 3)
        выдых = celle1.Offset (0, 4)
        Установите rng2 = ряд (ws. Клетки (celle1.Row, «f»), ws. Клетки (celle1.Row, «q»)). Смещение (0, rng_step)
        rng2 (1, 12). Смещение (0, 1).FormulaR1C1 = «=SUM (RC [- 12]: RC [- 1])»
        rng2.ClearContents
        Для каждого celle2 в rng2
            Если ws. _ Pickstart >= клеток (1, celle2.Column)
                И ws. Клетки (1, celle2.Column)  <>

Вопрос : Как могу я скопировать ряд клеток в рабочий лист к другой зоне в таком же рабочий лист основанном значения клетки в Эксел 2007?

Ответ : Как могу я скопировать ряд клеток в рабочий лист к другой зоне в таком же рабочий лист основанном значения клетки в Эксел 2007?