コピー/貼り付け領域と同じサイズ

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として保存し、元のワークブックでフィルタリングすることです。

ご協力いただきありがとうございます。コピーサイズ及びペーストサイズが異なるため、コピーされた細胞が選択された領域に貼り付けることができない、ため

S

Answer 1

エラーが起こっています。ちょうど別の場所を選択してみてください。ペーストする前に2枚目のセル1,1であってもかまいません。試しました&私の最後に動作します。コピーサイズとペースト大きさが異なるため、コピーされた細胞は、選択した領域に貼り付けることができない、ので

Answer 2

あなたはこのような何かをしようとする...

Dim dwb As Workbook 
ActiveSheet.AutoFilterMode = False 
With Range("A1:H100") 
    .AutoFilter field:=1, Criteria1:="<>" 
    If Range("A1:A100").SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then 
     Set dwb = Workbooks.Add 
     .SpecialCells(xlCellTypeVisible).Copy 
     dwb.Sheets(1).Range("A1").PasteSpecial xlPasteValues 
    End If 
    .AutoFilter field:=1 
End With