Найти максимальное значение из нескольких ячеек и вставить новую строку с ячейкой, которая имеет максимальное значение +1

У меня 4 листа, все со столбцом в диапазоне B15: B1000 с номером отслеживания, который увеличивается с каждым входом. У меня есть 4 макроса, которые вставляют новую строку в диапазоне B15: W15 на каждом из 4-х листов соответственно, но мне нужна вставленная строка, чтобы иметь следующее число, которое еще не появилось ни в одном из 4 столбцов, поскольку каждый номер может появляются только один раз на всех 4 листах.

Таким образом, мне нужен код, который должен найти максимальное значение из всех 4 листов, а затем вставить новую строку с максимальным значением плюс один в ячейке B15. Код, который у меня есть до сих пор, приведен ниже и предназначен только для одного из четырех листов, но использует тот же точный макет. Любая помощь будет оценена!

Sub New_Characterisation() Application.ScreenUpdating = False Application.EnableEvents = False Worksheets("Characterisation").Activate Range("B15:W15").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Application.CutCopyMode = False Range("B15:W15").Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone Selection.Borders.LineStyle = xlContinuous Range("B15") = Range("B16") + 1 Application.EnableEvents = True Application.ScreenUpdating = True End Sub 

Interesting Posts

Как создать определенную ячейку в Excel 2010

VBA Упростить код, изменив For i Next i

Как преобразовать внутреннюю дату Oracle в дату Excel в Excel?

Перенос введенных пользователем данных с листа Excel в сценарий Python

Скрыть / Показать строки на одном листе MS Excel на основе выпадающего значения другого листа

Как вставлять и добавлять элементы в поле со списком в Excel через Python?

Надстройки Excel, установленные программно, не загружаются

Формула Excel для получения строки между двумя символами

Диапазон экспорта с данными в один файл CSV

C # WinForm Excel проверяет работу пустых листов, но слишком медленно (15 листов 30 секунд)

Объединение таблиц и массивов из нескольких листов в одну консолидированную таблицу

Чтение листа excel и вставка его в базу данных mysql

Вызов из одного файла UserForm в другой

Как преобразовать файл Xls в формулу через PhpExcel

Как удалить строку, содержащую определенный код в первом столбце, используя excel VBA?

Давайте будем гением компьютера.