|
下記の内容のマクロに関して、
ぜひ教えてください。
説明がうまくなかったらごめんなさい。
A列からK列までの表があります。
行数は200前後。
一行目項目行。
その表のI列でフィルタし、1であれば抽出し、
別シート"A"にコピーするというマクロを作りたいと思っています。
私のしたいことは、
IJK列の最終行のセルに合計を出すようにしたい。
AからH列は選択範囲内で中央ぞろえし、合計と中央ぞろえで
入力がしたい。
最後にマクロが終了した際は結果が表示されているシート、つまり
Aシートで終了したい。
Aシートがなんらかのアクシデントで削除されてしまった場合に
メッセージボックスで確認し、作成しますか?YESでシートを新規作成するということはできますでしょうか?
わたしの幼稚な下記のマクロを改善し、進化させるようご指導いただけますでしょうか?
よろしくお願いします。
Sub 集計()
With Sheets("送付リスト").Range("A1")
.AutoFilter Field:=9, Criteria1:="1"
.CurrentRegion.Copy Sheets("A").Range("A1")
Columns("A:K").EntireColumn.AutoFit
End With
With Sheets("送付リスト")
If .AutoFilterMode = True Then
.AutoFilterMode = False
End If
End With
MsgBox "ソート完了"
End Sub
|
|