Question

我对此非常陌生，我的代码大部分来自录音。

我正在尝试使用过滤器框完成基本搜索，然后将单元格复制到另一个工作表中以准备再次开始。

这是我记录的宏，我一直遇到的问题不是“将单元格B7中的内容复制到宏中记录的内容。...=“ = 餐”，那么我需要在“费用支出”标签中将其设置为B7单元格吗？

Sub MySub()
    Range("A13:G36").Select
    Selection.ClearContents

    Range("B7").Select
    Selection.Copy

    Sheets("Detail for selection").Select
    ActiveSheet.Range("$A$1:$F$55").AutoFilter Field:=6, Criteria1:="=*meal*", _
        Operator:=xlAnd

    Application.CutCopyMode = False
    Selection.Copy

    Sheets("Concur Expenses").Select
    Range("A12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Sheets("Detail for selection").Select
    ActiveSheet.Range("$A$1:$F$55").AutoFilter Field:=6

    Sheets("Concur Expenses").Select
    Cells.Select
    Cells.EntireColumn.AutoFit

    Range("B7").Select
End Sub

任何人都非常感谢，

谢谢

复制单元格并将其粘贴到过滤器框vba

0 个答案: