Друзья, всем привет!
Помогите, пожалуйста, решить проблемку. Указанный ниже макрос срабатывает, но результат не достигается, обрываясь на вставке значений из столбца X в столбец Z.
Sub Макрос12()
'
' Макрос12 Макрос
'
'
Sheets("Techlist").Visible = True
Columns("X:X").Select
Selection.Copy
Columns("Z:Z").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("Z:Z").Select
Application.CutCopyMode = False
ActiveSheet.Range("$Z$1:$Z$1602").RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Techlist").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Помогите, пожалуйста, решить проблемку. Указанный ниже макрос срабатывает, но результат не достигается, обрываясь на вставке значений из столбца X в столбец Z.
Sub Макрос12()
'
' Макрос12 Макрос
'
'
Sheets("Techlist").Visible = True
Columns("X:X").Select
Selection.Copy
Columns("Z:Z").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("Z:Z").Select
Application.CutCopyMode = False
ActiveSheet.Range("$Z$1:$Z$1602").RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Techlist").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub