Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5603 / 76735

←次へ　｜　前へ→


	【76742】Re:集計について

ビギナー - 15/3/7(土) 6:13 -


	引用なし

	パスワード

ご連絡有り難うございます。
実際に動かしたマクロをはり付けます。
ただ、質問文に書かせて頂いたものと、実際の表は若干異なっています。
Sheet1のJ列に各都道府県名、D列に数値、C列に「大人」「子供」・・表記です。
また、１行目は項目名で数値が実際に入るのは２行目からです。

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列”子供”）
>>
>>どこかに間違いがあると思うのですが、
>>いかがでしょうか。
>
>実際に動かしてみたコードを示していただけると解決が早いと思います。
>（できれば他の部分も含めて）

2 hits

▼

【76727】集計について ビギナー 15/3/5(木) 14:28