条件を指定してカウントするには「countif」関数を使いますが、
これを複数条件で実行したいときは

=sumproduct((A2:A25="東京都")*(B2:B25="男性"))

と記述することで「東京都でかつ男性」の条件に一致するデータをカウントできるようです。

おかげで楽に集計ができましたとさ。爽快爽快...。

テーブルの一括削除
テーブル名前を取得して削除の繰り返し。
もっと効率的なやり方があるのかも知れませんがとりあえず目的は果たせたので、今回はこれでよしとします。

Dim DB As DAO.Database Dim tbLoop As TableDef Dim strTbName As String Set DB = CurrentDb For Each tbLoop In DB.TableDefs strTbName = tbLoop.Name If Left(strTbName, 2) <> "MS" Then DoCmd.DeleteObject acTable, strTbName End If Next tbLoop