[URL=#]?[/URL] 1 2 3 4 5 6 7 8 Sub Макрос12() With Worksheets( "Techlist" ) ' .Visible = xlSheetVisible .Columns( "Z:Z" ) = .Columns( "X:X" ) .Range( "$Z$1:$Z$1602" ).RemoveDuplicates Columns:=1, Header:=xlNo ' .Visible = xlSheetHidden End With End Sub
и оформите свой код кнопкой <…> на панели
Цитата
написал: а так:
Код
[URL=#]?[/URL] 1 2 3 4 5 6 Sub macro12() With Worksheets( "Techlist" ) .Columns( "X:X" ).Copy: .[z1].PasteSpecial Paste:=xlPasteValues .Range( "Z1" , .Cells(.Rows.Count, 26). End (xlUp)).RemoveDuplicates Columns:=1, Header:=xlNo End With End Sub
Друзья, огромнейшее спасибо Вам. А может вы мне еще с одним сможете помочь? Необходимо чтобы макрос удалял все значения в столбце Z:Z на скрытой вкладке Techlist
Sub delete2() ' ' delete2 Макрос '
' Sheets("E-commerce").Select Sheets("Techlist").Visible = True Selection.ClearContents Sheets("Techlist").Select ActiveWindow.SelectedSheets.Visible = False End Sub
Макрос не работает на скрытом листе
Пользователь
Сообщений: Регистрация: 20.06.2022
20.06.2022 10:19:46
Друзья, всем привет! Помогите, пожалуйста, решить проблемку. Указанный ниже макрос срабатывает, но результат не достигается, обрываясь на вставке значений из столбца X в столбец Z.
