Как переместить лист Excel на другой лист после 2000 строк

Question

Я создал рецепт в IFTTT для получения SMS и отправки его на листе Google. Но IFTTT создает новый лист после 2000 строк, в основном он заменяет существующий лист/книгу новым. поэтому все данные теряются.

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

Я хочу автоматизировать процесс, при котором лист автоматически перемещает 2000 строк данных на лист №2 точно так же, как заполняется 2000-я строка, а лист №1 стирается для нового содержимого.

P.S У меня нет знаний об использовании сценариев/макросов.

Answer 1

Этот код принимает элементы в диапазоне от A1 до Z2000 на листе 1 и вставляет его под 2000 строк на листе 2, а затем удаляет лист 1. Обязательно используйте файл xlsm для вызова макроса vba.

Sub Nafis() 

    If Not IsEmpty(Range("A2000").Value) = True Then 
     Worksheets("Sheet1").Range("A1:Z2000").Copy _ 
     destination:=Worksheets("Sheet2").Range("A2000") 
     Sheet1.Delete 
    Endif 
End Sub