макрос для сложении 2 строчек и их объединения в одну

[pumpkin007]

Уважаемые программисты!

Помогите написать макрос для сложении 2 строчек и их объединения в одну.

Пример во вложении.

Заранее благодарю

[Cuprum5]

А как мелкие буквы и цифры сделал?

[pumpkin007]

Это унифицированный отчет, нужна просто обработка

[Cuprum5]

Я же не знаю что тебе там надо сложить. Вот обращение к ячейкам:
Синтаксис объекта Cells:

Cells(RowIndex, ColumnIndex)

- где RowIndex строка,
ColumnIndex столбец.
Нумерация начинается с 1.
Что тебе нужно сложить, складывай, сам напиши да и все.
Можешь еще цикл For присобачить.

[pumpkin007]

как нужно, во вложении, посмотри, пожалуйста.


И если можно, скрипт с самого начала, а то я вообще не сильна

[Serge_Bliznykov]

Сообщение от pumpkin007

как нужно, во вложении, посмотри, пожалуйста.

Вы меня извините, но, по моему, Вы что-то неверно делаете.
1) почему количество в конечной таблице удваивается ?
Вы просто ручками посчитайте, например, сколько в строке 15.
в формуле в исходной таблице всё верно, а в итоговой

=(СЧЁТЕСЛИ(RC[-52]:RC[-3];"15"))+(СЧЁТЕСЛИ(RC[-52]:RC[-3];"15"))

2) почему цена удваивается? Это, имхо, неверно.

3) тоже самое (удвоение) касается и строчки с вычислением ИТОГО.
на мой взгляд, должна быть формула, как в исходной таблице.

[pumpkin007]

Да вы правы, мне сам концепт показать нужно было, чисто для примера.

есть промежуток времени с 07-08, например, и он состоит из 2 строчек , мне нужно данные из этих 2 строк сложить, чтобы получилось одна.

Цену и итого, я не буду складывать, естественно!

[Igor1961]

Здравствуйте, pumpkin007
Такой вариант:

Sub qqq()
    Dim lc As Long
    Range(Cells(18, 2), Cells(19, 52)).ClearContents
For lc = 2 To 52
  If Cells(4, lc).Value <> "" Or Cells(5, lc).Value <> "" Then
     Cells(18, lc).Value = Cells(4, lc).Value + Cells(5, lc).Value
  End If
  If Cells(6, lc).Value <> "" Or Cells(7, lc).Value <> "" Then
     Cells(19, lc).Value = Cells(6, lc).Value + Cells(7, lc).Value
  End If
Next lc
End Sub

[pumpkin007]

Сообщение от Igor1961

Sub qqq()
Dim lc As Long
Range(Cells(18, 2), Cells(19, 52)).ClearContents
For lc = 2 To 52
If Cells(4, lc).Value <> "" Or Cells(5, lc).Value <> "" Then
Cells(18, lc).Value = Cells(4, lc).Value + Cells(5, lc).Value
End If
If Cells(6, lc).Value <> "" Or Cells(7, lc).Value <> "" Then
Cells(19, lc).Value = Cells(6, lc).Value + Cells(7, lc).Value
End If
Next lc
End Sub

Спасибо,Егор!
1. А можно это переносить не в отдельную таблицу, а делать уже в существующей?
2. Если у меня 500 строк,допустим, мне для каждой писать сочетание?нельзя как нибудь сделать n+1?

[pumpkin007]

Что то типа этого, только со сложением строк

Sub Примерl()
Dim i As Long
Dim j As Long
Dim k As Long
Dim intext As String
Application.DisplayAlerts = False
For k = 1 To Selection.Areas.Count
  For i = 1 To Selection.Areas(k).Columns.Count
    intext = Selection.Areas(k).Cells(1, i)
    For j = 2 To Selection.Areas(k).Rows.Count
     intext = intext & Chr(10) & Selection.Areas(k).Cells(j, i)
    Next
    Selection.Areas(k).Columns(i).Merge
    Selection.Areas(k).Cells(1, i) = intext
  Next
Next
Application.DisplayAlerts = True
End Sub

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ