vba - 复制/粘贴区域大小不同

Question

使用此 VBA 代码时，我不断收到以前没有遇到的错误:

    ActiveSheet.Select
    Range("A1:H100").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=1, Criteria1:="<>"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Copy
    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Text Files (*.txt), *.txt")
    If fileSaveName <> False Then
    ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlText, CreateBackup:=False
    MsgBox "File salvato al percorso " & fileSaveName & "."
    End If

      ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=1

告诉我复制/粘贴区域不一样。我要做的是过滤结果，将它们复制并粘贴到新工作簿中，将其保存为 .txt 并在原始工作簿上取消过滤。

感谢你的协助!

小号

Answer 1

发生错误是因为复制的单元格无法粘贴到所选区域，因为复制大小和粘贴大小不同。只需尝试选择不同的位置，可能是粘贴前第二张的单元格 1,1，它会起作用。在我的最后尝试和工作。