Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Alexander23
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сбор данных из ячеек с заданным шагом
 
#
12.03.2018 19:01:33
Имена листов нужно указать:
Код
Sheets("Sheet1").Cells(i, 1) = Sheets("Пресс n=3").Cells(8 + (i - 1) * 10, 4)
 
Перейти    
Сумма значений ячеек диапазона равного диапазону объединённых ячеек соседнего столбца
 
#
05.03.2018 21:46:40
Спасибо.
 
Перейти    
Сумма значений ячеек диапазона равного диапазону объединённых ячеек соседнего столбца
 
#
05.03.2018 21:44:28
Почему то не сохраняются настройки. Ну да ладно всего лишь хотел помочь человеку. :-(
 
Перейти    
Сумма значений ячеек диапазона равного диапазону объединённых ячеек соседнего столбца
 
#
05.03.2018 21:25:39
Прошу прощения, исправлюсь. :-)
 
Перейти    
Сумма значений ячеек диапазона равного диапазону объединённых ячеек соседнего столбца
 
#
05.03.2018 21:18:48
Особо не заморачиваясь красотой алгоритма, так:
Код
Sub Proba()
 i = 2
 m = 2
 Application.DisplayAlerts = False
 With Sheets("Имеем")
   While .Cells(i, 1) > ""
    If .Cells(i, 1) <> .Cells(i + 1, 1) Then
      Range(.Cells(m, 1), .Cells(i, 1)).Merge
      Range(Cells(m, 2), .Cells(i, 2)).Merge
      Range(Cells(m, 2), .Cells(i, 2)).FormulaR1C1 = "=SUM(RC[1]:R[" & m & "]C[1])"
      m = i + 1
    End If
    i = i + 1
   Wend
 End With
 Application.DisplayAlerts = True
 End Sub
Изменено: Alexander23 - 05.03.2018 22:00:29
 
Перейти    
Страницы: 1
Наверх