Состыковка двух массивов

[manula]

Здравствуйте коллеги, созрел вопрос, не могли бы вы мне подсказать вот такую весчь, если два массива на разных листах, я разбил их на два потому, что если этот массив хранить на одном листе то он выйдет за пределы за 65500 точно выйдет, как организовать такой макрос, чтобы дозаписать со второго листа на первый, на первом через цикл встать на первую пустую ячейку и скопировать инфу с листа два на лист один, коллеги помогите мне это сделать программно, можно через макрос))

[VictorM]

Посмотрите вот это Объединение двумерных массивов
Проверено, работает отлично!

[manula]

Спасибо конечно за подсказку ну это немного не то что мне нужно, мне нужен пример тупо в лоб, вот как расположена у меня информация на листе, показано на картинке, просто тупо машинально вставить с одного листа на другой, дозапись в общем, вот как это грамотно сделать, подскажи пожалуйста.

[Hugo121]

"за пределы за 65500 точно выйдет" - значит никак.
Если же нужно дополнить первый лист "под завязку", а остальное оставить на втором - то я бы просто разбивал на два листа так, чтоб потом не гемороится с этим вопросом.
Что сделать сейчас - посмотреть сколько строк не заполнено, их выделить и перенести в конец.
Поверьте, вручную уже давно всё было бы готово

Хотя вот, проверьте:

Sub tt()
    x = Sheets(1).[a1].CurrentRegion.Rows.Count
    y = Sheets(1).Rows.Count - x
    With Sheets(2)
        Range(.Cells(1, 1), .Cells(y, 3)).Copy Sheets(1).Cells(x + 1, 1)
        Range(.Cells(1, 1), .Cells(y, 3)).EntireRow.Delete
    End With
End Sub

[manula]

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

"за пределы за 65500 точно выйдет" - значит никак.
Если же нужно дополнить первый лист "под завязку", а остальное оставить на втором - то я бы просто разбивал на два листа так, чтоб потом не гемороится с этим вопросом.
Что сделать сейчас - посмотреть сколько строк не заполнено, их выделить и перенести в конец.
Поверьте, вручную уже давно всё было бы готово

Хотя вот, проверьте:

Sub tt()
    x = Sheets(1).[a1].CurrentRegion.Rows.Count
    y = Sheets(1).Rows.Count - x
    With Sheets(2)
        Range(.Cells(1, 1), .Cells(y, 3)).Copy Sheets(1).Cells(x + 1, 1)
        Range(.Cells(1, 1), .Cells(y, 3)).EntireRow.Delete
    End With
End Sub

Благодарю Hugo, это то как раз что мне и надо, только на строке:

PHP код:

Range(.Cells(3, 1), .Cells(y, 3)).Copy Sheets(2).Cells(x + 1, 1) 


Выдает ошибку такого содержания: Application-defined or object-degined error.
В чем ошибка коллега, на третьем листе инфа начинается с 3 строки, по сути мы на втором листе находим последнюю запись, потом идем на третий лист встаем на третью строку, копируем с третьего лист на лист второй, такой ведь должен быть алгоритм))

[DiemonStar]

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

Благодарю Hugo, это то как раз что мне и надо, только на строке:

PHP код:

Range(.Cells(3, 1), .Cells(y, 3)).Copy Sheets(2).Cells(x + 1, 1) 


Выдает ошибку такого содержания: Application-defined or object-degined error.
В чем ошибка коллега, на третьем листе инфа начинается с 3 строки, по сути мы на втором листе находим последнюю запись, потом идем на третий лист встаем на третью строку, копируем с третьего лист на лист второй, такой ведь должен быть алгоритм))

Проверьте значения x и y - скорее всего они выходят за пределы максимума...

[manula]

Благодарю за помощь DiemonStar, щас проверю, а можно вот еще какой вопрос задать, мне еще нужно проанализировать записи и если встретился одинаковый код, то выделить эту строку любым цветом для наглядности, для наглядности я вложил картинку где видно что у некоторых записей одинаковое значение в первом столбце, как можно реализовать такой алгоритм коллеги

[IgorGO]

такой алгоритм, коллега, можно организовать условным форматирование столбца:

=счетесли(C;RC)>1

и задать заливку кроваво-красным цветом
а потом... как только увидите в столбце ячейку с кроваво-красной заливкой - значит где есть еще, как минимум, одна такая!

[Hugo121]

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

[manula]

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

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

Я вложил книгу коллега, там на втором листе кнопка с макросом, в общем надо с третьего листа перекинуть на второй, вот.