オートフィルターで抽出した合計値を変数に格納できない

Question

前提・実現したいこと

以下のプログラムはsheet1に記載の下記の表から「田中」のラベルを含む行のみをsheet2へコピーしsheet2の数値列の合計値をresult.xlsxに出力させるプログラムです。
ところが、total_amountという変数にオートフィルターで抽出した合計値を格納できません。
どうすればきちんと格納できるのでしょうか？

表(sheet1)

列1	列2	列3
名前	記号	数値
有村	A	10
田中	B	20
橋本	C	30
田中	D	40
桜井	E	50
吉岡	F	60
田中	G	70
広瀬	H	80
田中	I	90
中野	J	100

ソースコード

Sub Macro8()
    Sheet2.Cells.ClearContents
    With Range("A1")
        .AutoFilter 1, "田中"
        Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp)).Copy Sheets("Sheet2").Range("A1")
        Range(Range("C1"), Cells(Rows.Count, 3).End(xlUp)).Copy Sheets("Sheet2").Range("B1")
        
        Debug.Print (WorksheetFunction.Subtotal(9, Sheets("Sheet2").Range("B:B")))　'ここは正しい合計値(220)が格納される
        Dim total_amount As Double
        total_amout = WorksheetFunction.Subtotal(9, Sheets("Sheet2").Range("B:B"))
        Debug.Print ("total_amount: " & total_amount)　'total_amountがなぜか０になってしまう
        
     
       
       'result.xlsxを開き合計値を書き込む
        Set wb = Workbooks.Open(ThisWorkbook.Path & "/result.xlsx")
        Set ws = wb.Worksheets(1)
        ws.Cells(1, 1) = total_amount
        wb.Close
    End With
End Sub

出力結果
220
total_amount: 0 ←こうなる理由がわかりません

補足情報（FW/ツールのバージョンなど）

mac os
excel 2016

Answer 1

タイプミスでは。

        Dim total_amount As Double
-       total_amout = WorksheetFunction.Subtotal(9, Sheets("Sheet2").Range("B:B"))
+       total_amount = WorksheetFunction.Subtotal(9, Sheets("Sheet2").Range("B:B"))
        Debug.Print ("total_amount: " & total_amount)

モジュールの冒頭で
Option Explicit
と記述しておくとこのようなミスは防げます。

Office TANAKA - 今さら聞けないVBA[Option Explicitって何？]

Office TANAKA - 今さら聞けないVBA[変数って宣言しなくちゃいけないの？]

Comments

[loreeeee]

タイプミスでした..ご指摘ありがとうございます。また、.option explicitのリンクを貼っていただきありがとうございます。

[hatena19]

あと、エラーとは関係ないですが、With を使う必然性はないですね。

Range("A1").AutoFilter 1, "田中"

[mako1972]

いまさらですけど。結果をコピーするのならSubtotalを使う意味が分からないという
意味で結果をコピーしたシートを単純に足すというVBAです。

Sub Macro8()
Dim sh As Worksheet
Dim cnt As Double

Set sh = Sheets("sheet1")

With Sheet2
.Cells.ClearContents

sh.Range("A1").AutoFilter 1, "田中"
sh.Range(Range("A1"), sh.Cells(Rows.Count, 1).End(xlUp)).Copy .Range("A1")
sh.Range(Range("C1"), sh.Cells(Rows.Count, 3).End(xlUp)).Copy .Range("B1")

cnt = .Range("A1").End(xlDown).Row
mysum = WorksheetFunction.Sum(.Range("B2:B" & cnt).Value)
End With

'result.xlsxを開き合計値を書き込む
Set wb = Workbooks.Open(ThisWorkbook.Path & "\result.xls")
Set ws = wb.Worksheets(1)
ws.Cells(1, 1) = mysum
wb.Close

set sh= nothing
End Sub

[loreeeee]

ご指摘ありがとうございます。書いていただいたプログラムで動作を確認できました。

Answer 2

検証の前にwith rangeの使い方がおかしいですね。

with sheets("sheet1")

x=.range("a1").value
end with

とかならわかりますけど。

個別のセルにカンケイない範囲に
対して
withを使うのをはじめて見ました。