Не судите строго, но не нашел плохо искал ? решения по удалению (выделению) одинаковых строк. Есть масса решений по удалению строки если в столбце одинаковые значения ИЛИ по какому нибудь значению/слову опять же в ячейке.
Как решение, есть вариант все ячейки строки =СЦЕПИТЬ() и уже по ним удалять дубликаты строк (http://planetaexcel.ru/techniques/9/69/).
Но если текста в каждой ячейке много и столбцов сотня это уже очень долго и не знаю, возможно ли.
Хочется как то быстро выделить (лучше удалить) один из дубликатов строк.
Прошу помочь, если есть решение макросом для такого большого массива (в примере малая часть), то дайте пжт. Если нет, остается только =СЦЕПИТЬ()

Подскажите код макроса который бы создавал кнопку (скажем в ячейку A1) на всех листах книги с ссылкой на конкретный лист (назовем его "Оглавление").
Есть макросы создания листа с оглавлением, а вот с прописанными ссылками на этот лист нигде не встречал (кроме ручного прописывания с выделением всех листов)

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

Сам исходный макрос:
'http://www.planetaexcel.ru/forum.php?thread_id=3878&page_forum=3&allnum_forum=37
Option Explicit

Sub CollectInfo()
Dim BazaWb As Workbook 'текущая книга (общий файл)
Dim BazaSht As Worksheet 'лист Price-group в общем файле
Dim iTempFileName As String 'имя поочерёдно открываемого файла
Dim iPath As String 'путь к папке, где лежат все файлы
Dim iLastRowBaza As Long 'последняя заполненная строка в общем файле в столбце C
Dim iLastRowTempWb As Long 'последняя заполненная строка в по-очерёдно открываемом файле в столбце C
Dim iNumFiles As Long 'количество открываемых файлов

Range("A2:AA1000" .Clear 'ClearContents (удалит и формат и текст), Clear (удалит только текст)

With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlManual
Set BazaWb = ThisWorkbook
Set BazaSht = BazaWb.Sheets("Общий"
iPath = BazaWb.Path & "\"
iTempFileName = Dir(iPath & "*.xls*"
Do While iTempFileName <> ""
If iTempFileName <> BazaWb.Name Then
With .Workbooks.Open _
(Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)
iNumFiles = iNumFiles + 1
'Рабочая книга не должна быть защищена паролем
With .Worksheets(1)
.Unprotect "111" 'Снятие пароля с одного из листов книг
iLastRowTempWb = .Cells(.Rows.Count, 2).End(xlUp).Row
iLastRowBaza = BazaSht.Cells(BazaSht.Rows.Count, 2).End(xlUp).Row + 1
.Range(.Cells(2, 1), .Cells(iLastRowTempWb, "P" ).Copy Destination:=BazaSht.Cells(iLastRowBaza, 1)
End With
.Close saveChanges:=False
End With
End If
iTempFileName = Dir
Loop
.Calculation = xlAutomatic
.DisplayAlerts = True
.ScreenUpdating = True
'Application.OnTime Now + TimeValue("00:00:20" , "CollectInfo" 'обновлять кажды 20 секунд ("CollectInfo" название макроса)
End With
MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"
End Sub

Пример таблицы одного из..файла

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