[corbis]

На счет функции не уверен, а вот макросом можно замутить.
Не понятно:
1. как соединяются столбцы при совпадении.
2. размеры таблиц.

Хорошо бы файл с таблицами..

[a_axe]

Alexander_88, предполагается, что на форуме создается только одна тема (без дублирования) на каждую из проблем.
Alexander_88, приложите файл с таблицами, так как Вы их видите.
Сводить таблицы можно в том числе и консолидацией, но для этого необходимо понимать структуру Вашей таблицы.

[Alexander_88]

Поправка.. как третий так и четвертый столбец должны сцепляться через знак +

Номера строк различные, я могу сам выделять данные, которые нужно объединять (если первый и второй столбец совпадает, сцеплять третьи и четвертые столбцы таблиц через знак + Если не совпадает, то просто добавлять четыре столбца ниже). Также должны игнорироваться пустые ячейки. Сделал небольшой пример, два листа, исходный (с данными до применения ф-ции) и результирующий (с данными после выполнения функции).

Желательно и удобно, чтобы объединение происходило с помощью кнопки.. т.е. я выделяю весь диапазон, который требуется объединить (на примере исходного листа это диапазон от ячейки А2 до ячейки D21), нажимаю эту кнопку и должно получиться то, что мы видим в листе "Результат".

[Alexander_88]

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

[Drongo]

есть сверху большая таблица и снизу две мини таблицы (пример): »

Меня интересует такой вопрос, допустим та, верхняя таблица, когда в неё в конец добавятся данные, не получится ли так что места не хватит, т.к. нижние маленькие будут мешать?

Можно ли две маленькие вынести на отдельные листы?

И ещё мне интересно, есть ли предельное количество строк для трёх таблиц, верхней и двух нижних? Например, можно уложиться в 100 строк и знать что 101-й не будет или же это неизвестно?

[Alexander_88]

Меня интересует такой вопрос, допустим та, верхняя таблица, когда в неё в конец добавятся данные, не получится ли так что места не хватит, т.к. нижние маленькие будут мешать? »

Я могу либо специально пропускать очень много строк, между большой таблицей и маленькими, чтобы места хватило, либо

Можно ли две маленькие вынести на отдельные листы? »

Можно вынести на отдельные листы.

И ещё мне интересно, есть ли предельное количество строк для трёх таблиц, верхней и двух нижних? Например, можно уложиться в 100 строк и знать что 101-й не будет или же это неизвестно? »

предельное количество строк будет не больше 1000... это я с запасом взял

[azbest]

Alexander_88,
сделать можно
но есть наводящие вопросы:
в второй и третьей таблице - есть повторяющиеся записи - например "яблоки" 10, а чуть ниже "яблоки" 25. Тоесть - "посчитанные (перенесенные в первую таблицу ) данные по каждому из фруктов можно удалять из 2 и третьей таблицы или менять их нельзя и хранить как оригинальные данные?
алгоритм - прост: цикл 1 - построчный опрос и запоминание значений (в переменные) по столбцам "А" и "В" в первой таблице, а внутри этого цикла - ещё два цикла по опросу и запоминанию значений (в переменные) второй и третей таблицы - потом сравнение на предмет совпадения переменных - если да - то где надо сплюсовать или вычесть - если нет - пропускаем.

[a_axe]

Alexander_88, насколько я понял вашу мысль, вам не нужно суммировать цифры, на выходе должна быть текстовая строка, в которой через знак "+" перечисляются цифры, то есть например "8.7+6.89", а не их сумма 15.59. Попробуйте код ниже. Оговорки: таблицы должны находится на одной странице, интересующие вас данные выделяете мышкой и запускаете код, результат будет помещаться каждый раз на вновь созданный лист.

Код

Код:

Option Explicit
Public Sub data_extr()
Dim objCell As Object, targetSheet As Object, dataSheet As Object
Dim i As Integer
Dim Flag As Boolean
Set dataSheet = ThisWorkbook.ActiveSheet
Set targetSheet = ThisWorkbook.Sheets.Add
dataSheet.Activate
For Each objCell In Intersect(Selection, Selection.Columns(1))
      If objCell.Value <> "" Then
        i = 1
        Flag = False
        Do
        
        If targetSheet.Cells(i, 1).Value = "" Then
            Flag = True
            targetSheet.Cells(i, 1).Value = objCell.Value
            targetSheet.Cells(i, 2).Value = objCell.Offset(0, 1).Value
            targetSheet.Cells(i, 3).Value = objCell.Offset(0, 2).Value
            targetSheet.Cells(i, 4).Value = objCell.Offset(0, 3).Value
        Else
            If targetSheet.Cells(i, 1).Value = objCell.Value And targetSheet.Cells(i, 2).Value = objCell.Offset(0, 1).Value Then
                If objCell.Offset(0, 2).Value <> "" Then targetSheet.Cells(i, 3).Value = targetSheet.Cells(i, 3).Value & "+" & objCell.Offset(0, 2).Value
                If objCell.Offset(0, 3).Value <> "" Then targetSheet.Cells(i, 4).Value = targetSheet.Cells(i, 4).Value & "+" & objCell.Offset(0, 3).Value
                Flag = True
            End If
        End If
        i = i + 1
        Loop Until Flag
    End If
Next objCell
targetSheet.Activate
Set dataSheet = Nothing
Set targetSheet = Nothing
End Sub

[corbis]

Вот такой вариант набросал.