![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
VBA初心者です。よろしくお願いします。
Book1のSheet1のA2の値を検索条件とし、Book2のsheet1のA列を検索し、条件に合った行のC列の合計値を取得するとします。出力先はBOOK1のA2と同じ行、C2です。
これだけであれば、sumif関数で処理できるのですが、
Book1のA列の最終行までこの処理を繰り返さなければなりません。
また、毎月、Book1,2ともに最終行が変化します。
上記を簡単に書くと以下になります。
■Book1のsheet1
A B C
1 101 リンゴ (ここにBook2の合計値を出力したい)
2 202 レモン (ここにBook2の合計値を出力したい)
3 510 柿 (ここにBook2の合計値を出力したい)
■Book2のsheet1
A B C
1 202 レモン 10
2 202 レモン 30
3 101 リンゴ 200
4 707 ブドウ 50
5 101 リンゴ 70
6 510 柿 100
上記処理をsumif関数、forを使って作成してますが、どうもうまくいきません。
申し訳ございませんがよろしくお願いします。
環境は、Windows7、Office2010 です。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは!
関数でできそうですが、VBAをお望みだというコトですので
一例です。
Excel2007以降のバージョンをお使いだという前提です。
Book1のデータは1行目からあるとします。
Sub Sample1()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
With Cells(1, 3).Resize(i, 1)
.Formula = "=SUMIF([Book2.xlsx]Sheet1!A:A,A1,[Book2.xlsx]Sheet1!C:C)"
.Value = .Value
End With
End Sub
※ Book1のC1セルに入れる数式をそのまま利用しています。
(Excel2003までのバージョンをお使いの場合は
>=SUMIF([Book2.xlsx]Sheet1!A:A,A1,[Book2.xlsx]Sheet1!C:C)
の
>xlsx
を
>xls
とします。
※ Book1のC1セルに個の数式を入れそのままオートフィルでコピーでも大丈夫です。
(IF関数で空白の場合のエラー処理は必要になります)
こんなんではどうでしょうか?m(_ _)m
No.1
- 回答日時:
ブック1とブック2を立ち上げておきます。
ブック1のシート見出し(Sheet1)を右クリックして「コードの表示」を選択します。
表示の画面で次のコードを入力します。
Sub 合計値の入力()
Dim n, i, xSuu As Long
Set WB1 = Workbooks("Book2")
Set WB1S1 = Workbooks("Book2").Worksheets("Sheet1")
n = Range("A65536").End(xlUp).Row
For i = 2 To n
xSuu = Range("A" & i)
Range("C" & i) = WorksheetFunction.SumIf(WB1S1.Range("A:A"), xSuu, WB1S1.Range("C:C"))
Next
End Sub
マクロの実行はAltキーを押しながらF8キーを押します。
「合計値の入力」を選択して「実行」ボタンをクリックします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- その他(Microsoft Office) SUMIFとCOUNTIFの違いについて 4 2022/09/29 14:13
- Excel(エクセル) VBA SUM関数を入力したい 6 2022/08/20 20:10
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
VBAで重複データを合算したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
VBAのExecメソッドで画面を非表...
-
アクセスでエクセルに出力する...
-
プログラムについての質問です...
-
無線とかアンテナに関しの質問...
-
テキストファイルから特定の文...
-
COBOLのMOVEで桁数が異なる場合
-
VBAで出力したCSVファイルの先...
-
excelにて、ある固定値から連番...
-
Excel VBAで値を変えながら、pd...
-
マクロを教えてください。
-
printfの書式%.*s
-
VBAでテキスト出力時のスペース...
-
PCの設定「サウンド」の「出力...
-
printfとputcharの違いは
-
ListViewの複数選択について
-
リストボックスの内容を テキ...
-
makeで文字化けする。migwのmak...
-
ラズベリーパイピコでのPch MOS...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
cout と cerrの違い
-
Accessのテーブルからcsv出力す...
-
Windows Formアプリからコンソ...
-
COBOLのMOVEで桁数が異なる場合
-
コンセントの電力は入力と出力...
-
VBAでテキスト出力時のスペース...
-
C#でアクセス権限の取得方法が...
-
アクセスでエクセルに出力する...
-
VBAのExecメソッドで画面を非表...
-
【UWSC】WEBページ中の特定文字...
-
ListViewの複数選択について
-
KEYENCEのシーケンスプログラム...
-
ACCESS クエリ→フォーム...
-
CRC16計算について
-
TV出力ポートをOFFにすれば良い...
-
4種類(A4縦、A4横、A3縦、A3横)のヘ...
おすすめ情報