Есть код (ниже), он запускает окно для выбора папки с файлами Excel, после открывает их в отдельных листах главной книги, и в каждом открытом листе производит форматирование (удалить строку 1, удалить столбец 2...).
Надо на каждом листе удалять последние 8 строк, но т.к. таблицы могут иметь разное количество строк, я посчитал, что лучше будет найти первую строку и, начиная с нее, удалить 8 строк вниз. Но реализовать это не получается. На строке *** происходит поиск перовой строки (в ней во всех файлах есть ячейка со значением "б/с").
Подскажите, как осуществить задуманное?
Sub FileList()
Dim V As String
Dim BrowseFolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select folder"
.Show
V = .SelectedItems(1)
End With
BrowseFolder = CStr(V)
ListFilesInFolder BrowseFolder
End Sub
Private Sub ListFilesInFolder(ByVal SourceFolderName As String)
Dim FSO As Object
Dim SourceFolder As Object
Dim FileItem As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.getfolder(SourceFolderName)
Application.ScreenUpdating = False
For Each FileItem In SourceFolder.Files
Set importWB = Workbooks.Open(Filename:=FileItem)
Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
importWB.Close savechanges:=False
Next FileItem
Application.ScreenUpdating = True
Dim ws As Worksheet
Set wbCurrent = ActiveWorkbook
Set wbReport = ActiveWorkbook
For Each ws In wbCurrent.Worksheets
Cells.MergeCells = False
ws.Rows("1:9").Delete
ws.Rows("2").Delete
ws.Rows("11").Delete
ws.Range("A1,C1,D1,F1:H1,K1:M1,P1,S1,T1,V1,W1").EntireColumn.Delete
Set c = Columns("A:A").Find("б/c")***
Next ws
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub