时间戳

首页 > 解决方案 > 如何将数据附加到一组数据VBA的底部

excel - 如何将数据附加到一组数据VBA的底部

问题描述

这就是我到目前为止所拥有的。我正在尝试从“匹配目标”和“匹配豁免”两个表中获取数据并将它们存储在“目标”选项卡中，但我不想从两个选项卡中获取标题，因为它们匹配并且会扭曲数据.

 ActiveSheet.Range("A:AT").AutoFilter Field:=33, Criteria1:= _
        "=Insurance"
    Cells.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet2").Select 'will be Sheet1 in deployment since all tabs are already named when we receive
    Sheets("Sheet2").Name = "Paygenus Exempt"
    Sheets("Sheet21").Select
    ActiveSheet.ShowAllData
    
    
    ActiveSheet.Range("A:AT").AutoFilter Field:=17, Criteria1:= _
        "=Accepting"
    ActiveSheet.Range("A:AT").AutoFilter Field:=5, Criteria1:=">9999", _
        Operator:=xlAnd
    ActiveSheet.Range("A:AT").AutoFilter Field:=33, Criteria1:="<>Insurance", _
        Operator:=xlAnd
    Cells.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet3").Select 'will be Sheet2 in deployment since all tabs are already named when we receive
    Sheets("Sheet3").Name = "Match Goal"
    Sheets("Sheet21").Select
    ActiveSheet.ShowAllData
    
    
    ActiveSheet.Range("A:AT").AutoFilter Field:=17, Criteria1:=Array( _
        "=Not Accepting", "Not Found"), Operator:=xlFilterValues
    ActiveSheet.Range("A:AT").AutoFilter Field:=33, Criteria1:="<>Insurance", _
        Operator:=xlAnd
    Cells.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet4").Select 'Will be Sheet3 in deployment
    Sheets("Sheet4").Name = "Match Exempt"
    Cells.Copy
    
    
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet5").Select 'will be Sheet4 in deployment since all tabs are already named when we receive
    Sheets("Sheet5").Name = "Target"
    Sheets("Match Goal").Select
    Cells.Copy.Offset (1)
    Sheets("Target").Select

标签： excelvba

解决方案

推荐阅读