Ошибка макроса в Excel при вставке

316
Zarina Akhtar

Я фильтрую столбец, затем пытаюсь скопировать и вставить значения.

Тем не менее, я получаю сообщение об ошибке PasteSpecial Метод Range Class Failed

Sub DD() ' ' DD Macro '  ' Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8, Criteria1:="1" Columns("A:A").Select Selection.Copy ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8 Columns("I:I").Select ActiveSheet.Paste Range("I6").Select End Sub Sub dds() ' ' dds Macro '  ' Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8, Criteria1:="1" Columns("A:A").Select Selection.Copy ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8 Columns("I:I").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J9").Select Columns("I:I").EntireColumn.AutoFit Range("I6").Select Application.CutCopyMode = False End Sub

Конкретная ошибка, 

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

Я использую функцию записи макросов в Excel. Есть идеи?

0
Поместите Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False на 1 строку, _ обозначает перевод строки, но это может привести к отключению. spikey_richie 5 лет назад 0
В качестве альтернативы попробуйте заменить Paste: = xlPasteValues ​​на Paste: = xlValues spikey_richie 5 лет назад 0
Вы можете просто сделать `Range (" I: I "). Value = Range (" A: A "). Value`, за исключением того, что это может занять некоторое время, так как вы копируете * весь столбец *. BruceWayne 5 лет назад 0

0 ответов на вопрос

Похожие вопросы