|
ご連絡有り難うございます。
実際に動かしたマクロをはり付けます。
ただ、質問文に書かせて頂いたものと、実際の表は若干異なっています。
Sheet1のJ列に各都道府県名、D列に数値、C列に「大人」「子供」・・表記です。
また、1行目は項目名で数値が実際に入るのは2行目からです。
worksheets("Sheet1").select
Columns("J:J").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$22717").RemoveDuplicates Columns:=1, Header:= _
        xlNo
    Sheets("Sheet2").Select
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(Sheet1!C[2],Sheet2!C[-1],Sheet2!RC[-1],Sheet1!C[1],Sheet1!R[3]C[1])"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B326")
    Range("B2:B326").Select
End Sub
上記のものでは、動きはしましたが、数値が正確ではなく、
sumifsの最後の部分 Sheet1!R[3]C[1] → Sheet1!”子供” にしたら動かなくなりました。
お手数をおかけ致しますが、
よろしくお願い致します。
▼マナ さん:
>> =SUMIFS(Sheet1B列、Sheet2A列、Sheet2A1,Sheet1C列、Sheet1C列”子供”)
>>
>>どこかに間違いがあると思うのですが、
>>いかがでしょうか。
>
>実際に動かしてみたコードを示していただけると解決が早いと思います。
>(できれば他の部分も含めて)
|
|