Скопируйте строку c и удалите пустую

Question

Sub vova()

Dim S_path As String
Dim S_name1  As String, S_nameW1 As String
S_path = "S:\"
S_path = Trim(S_path) + Trim(Worksheets("1").Range("G6").Value) + ".xlsx"
 
 
Range("A1:N27").Select
Selection.Copy
Workbooks.Add
S_nameW1 = ActiveWorkbook.name
S_name1 = ActiveSheet.name


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Columns("A:A").ColumnWidth = 2
Columns("B:B").ColumnWidth = 10
Columns("C:C").ColumnWidth = 35
Columns("D:D").ColumnWidth = 13
Columns("M:M").ColumnWidth = 15
Columns("N:N").ColumnWidth = 15

Application.CutCopyMode = False

ActiveWorkbook.SaveAs FileName:=S_path, FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

End Sub

Может кто-нибудь мне помочь, нужен макрос для удаления пустого r aws (если заполнено 1-5), тогда 6-15 удаляются, и макрос создает новую книгу с необходимым r aws

created workbook should look like this

введите описание изображения здесь

Answer 1

Вы можете сделать что-то вроде этого:

Columns("N:N").ColumnWidth = 15
Application.CutCopyMode = False

With S_name1 
 for i = .range("A1048576").end(xlup).row to 9 Step -1

   if .cells(i, 2) = "" Then
     .rows(i & ":" & i).delete
   End if

 Next

End With

ActiveWorkbook.SaveAs FileName:=S_path, FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False

Это будет в основном l oop назад от последней использованной ячейки в столбце A до строки 9 и удалить строку, если в столбце B ничего нет (что похоже на ваш снимок экрана).