2

部門ごとにスプレッドシートをフィルタリングし、結果をコピーして適切な部門のワークシートに貼り付けるマクロがあります。その後、9 つの部門ごとに繰り返されます。「パンチプレス」セクションのデータの最後の行をコピーして貼り付けないことを除いて、正常に機能しています。強調表示されたセルが表示されますが、データは転送されません。

どんな助けでも大歓迎です!

ここに私が持っているものがあります:

Sub UpdateTables()
  'PunchPress Macro



    Sheets("Audit scores").Select
    ActiveSheet.Range("$A$1:$AL$118").AutoFilter Field:=2, Criteria1:= _
        "Punch Press ESP"


    Range("X1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select


    Selection.Copy
    Sheets("Punch Press").Select
    Range("X1").Select
    ActiveSheet.Paste
    Columns("A:A").ColumnWidth = 17.57
    Columns("A:A").ColumnWidth = 20.57
    Rows("2:2").RowHeight = 15
    Selection.RowHeight = 15

    Range("A1").Select

End Sub    
4

1 に答える 1