Здравствуйте, форумчане. Опять к Вам на поклон. Проблема в следующем. Макрос удаляет первую строку, выделяет от последней не пустой до А2 и выделенное копирует: Workbooks("ДРУК.xlsm" ;) .Sheets("ФИЛЬТР" ;) .Activate Rows("1:1" ;) .Delete LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range(Cells(2, 1), Cells(LastRow, "bf" ;) ).Select Selection.Copy
Проблема в том, что если не пустых от А2 и далее не окажется, заглавная строка удалится, как и должна, но будут выделяться пустые ячейки второй строки. А они потом копируются и тем же макросом вставляются в другую таблицу и искажают её данные. Как сделать так, чтобы если в выделенных таким образом ячейках не будет текста и цифр (а формул не будет точно), т.е. ячейки окажутся визуально пустыми, макрос не копировал их?
Похоже, нашёл решение вопроса. Записал макрорекордером специальная вставка без пустых ячеек. Вышеприведенный код прежний, а вот вставку поменял. В имевшийся код вставил помеченное жирным: ActiveCell.PasteSpecial Paste:=xlPasteAllAndValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=True, Transpose:=False
Workbooks("ДРУК.xlsm").Sheets("ФІЛЬТР").Activate
Rows("1:1").Delete
Dim rFndRng As Range
Set rFndRng = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not rFndRng Is Nothing Then
LastRow = rFndRng.Row
Range(Cells(1, 1), Cells(LastRow, "bf")).Copy
Workbooks("НЕ ДОПУЩЕНІ.xlsm").Sheets("НЕ ДОПУЩЕНІ").Activate
ActiveCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...