Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

копирование определенного кол-ва строк+объединение ячеек

Автор Jim, 26.09.2011, 15:09

« назад - далее »

Jim

всем доброго времени суток.

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

далее тот же макрос в новой уже книге необходимо чтобы объеденял ячейки с одиннаковыми значениями.
в столбца А список наименований (они повторяются):
пример столбца А:
диск
диск
(пустая ячейка)
(пустая ячейка)
машина
машина
машина
(пустая ячейка)
(пустая ячейка)
велик
(пустая ячейка)
(пустая ячейка)
молоток
молоток


вот эти значения нужно автоматически объединять, пустые ячейки также можно объеденить(но не обязательно)

exceleved

Пример давайте. Сколько там всего столбцов?

Jim

столбцов от A до I.
пример вложил.
Лист1 - то что дано (p.s. в примере формул нет, но по факту они есть. т.е. все записи в таблицы с формулами)

Лист2 - это то что должно получится.

exceleved

Примерно такSub Jim()
Dim lr&, i&, j&, a As Range, f As Boolean
ActiveSheet.Copy
Set a = Columns("B").Find("конец", , xlValues, xlWhole)
If a Is Nothing Then Exit Sub
lr = a.Row
Rows(lr & ":" & Rows.Count).Delete
Application.DisplayAlerts = False
For i = 3 To lr
    If Cells(i, 1) = Cells(i + 1, 1) Then
        If Not f Then f = True: j = i
    Else
        If f Then f = False: Range(Cells(j, 1), Cells(i, 1)).Merge
    End If
Next
Application.DisplayAlerts = True
End Sub

Jim

не срабатывает.
в новую книгу вставляется с формулами, а необходимо без них (значения и форматы).
из-за этого все съезжает когда начинают объединяться ячейки.