У меня есть лист Excel, который принимает данные из другого файла Excel. Этот файл Excel содержит структурированные данные, которые необходимо разделить на отдельные листы. У меня уже есть следующий код для копирования и форматирования этих данных в определенном диапазоне, но мне нужно l oop этот процесс для всей рабочей таблицы до тех пор, пока не останется больше данных.
Диапазон, который я сейчас установил, равен A2: P20 следующий диапазон на 4 строки ниже, и это будет A25: P43 .
Option Explicit
Public Sub CopySheetToClosedWorkbook()
Dim fileName
Dim closedBook As Workbook
Dim currentSheet As Worksheet
fileName = Application.GetOpenFilename("Excel Files (*.xls*),*xls*")
If fileName <> False Then
Application.ScreenUpdating = False
Set currentSheet = Application.ActiveSheet
Set closedBook = Workbooks.Open(fileName)
closedBook.Sheets(1).Range("A2:P20").Copy
ThisWorkbook.Worksheets("input").Range("A2").PasteSpecial xlPasteValues
closedBook.Application.CutCopyMode = False
closedBook.Close (True)
Application.ScreenUpdating = True
CopySheetAndRenameByCell2
End If
End Sub