エクセルに詳しい方、お助け下さい

1 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:49:58.361 ID:qrRX0PGca.net

1月から12月まで、それぞれシートが分かれているものの、一部分の値を一つの表にまとめなくてはいけないのですが、効率化の良い方法はありませんか？　

2 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:50:13.210 ID:tyQfJhQVd.net

あります

3 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:50:27.331 ID:fgOsxHkfa.net

でもまだあなたに教える訳には行きません

4 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:50:30.459 ID:TgqY9jzKM.net

ある

5 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:50:45.357 ID:EPC1e8TS0.net

あるぞ

6 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:51:10.882 ID:j6A6KZh7d.net

ピボットテーブルを使え

7 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:51:28.088 ID:f+CBo4Ada.net

シート指定できるが

8 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:51:42.991 ID:qrRX0PGca.net

>>6
いや、この場合つかえんだろ

9 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:51:45.245 ID:kcD3PSch0.net

俺だったらINDIRECTでシート名部分もセル参照して指定する

10 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:51:49.424 ID:PI8QO13i0.net

ありすぎる

11 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:52:01.157 ID:/w1pyAui0.net

セル結合すればなんとかなるだろ

12 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:52:43.412 ID:phkakBo60.net

あるよ

13 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:52:48.211 ID:VtMQD3tHa.net

vbaで頑張れ

14 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:53:14.358 ID:TBq4r6gJ0.net

12個くらいならベタて貼って終了でいいじゃん

15 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:53:18.930 ID:ouOvQCUIa.net

グループ化ってやつだな！！！！

16 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:53:40.464 ID:zrWM0UWOa.net

中学のパソコンの授業の時にやった奴だわ

17 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:54:30.749 ID:gXoO2E0g0.net

とりあえず１枚のシートにまとめたらば？

18 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:54:32.055 ID:2AZGvOeSa.net

余裕だね

19 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:55:17.577 ID:qrRX0PGca.net

>>14
その作業が500こあるんだよ！

20 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:55:39.935 ID:qrRX0PGca.net

>>9
なんか行けそうな気がする　
ありがとう

21 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:55:50.651 ID:H+FqXfDR0.net

全部ノートに書き写して管理する

22 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:55:56.217 ID:+LYAcgnK0.net

>>14
これだね
いま考えてる時間で終わるよ

23 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:56:39.001 ID:qrRX0PGca.net

>>22
だから大量にあるんだって

24 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:57:47.042 ID:8iiU8RSga.net

ありますよ

25 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:57:55.499 ID:p4A7539Rr.net

vlookup覚えたらマスター

26 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:58:09.614 ID:RglmQt5kr.net

やばい

27 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 12:58:20.365 ID:s1Cn3kRL0.net

大量にあるって言ったってコピペで何万件のデータ数秒でいけるやんけ
細かい情報出さないと>>14で終わるぞ

28 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:00:04.172 ID:+LYAcgnK0.net

大量にあるとか言って
ちゃっちゃかぱっぱかやれば15分で終わることなんてザラ

29 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:00:25.511 ID:8UFsfMyfM.net

こう見ていると要件定義って大切だな

30 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:00:40.375 ID:Cyk/sfkYr.net

流石にネタ

31 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:03:46.691 ID:kqx6HazI0.net

ファイル名に規則性があるならクソ簡単
外部のファイルのセルを参照するだけの関数を作ってスクリプトでファイル名だけ変えてコピーしてcsv吐かせてエクセルにコピーするだけ
1分で完成

32 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:07:21.236 ID:qrRX0PGca.net

詳しく書くと、A支店の在庫が、1ヶ月ごとののシートで管理されていて（1月から12月まで12シートある）、そのうちの@商品を1つのシートで1-12月にまとめる必要がある　
そして、支店が500あるので膨大な作業なんだ　
シート名は各支店名になっている

33 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:07:32.935 ID:AJsOAQTSr.net

フィルターかけっぱ

34 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:10:05.376 ID:OMD7n6Hc0.net

やってやるからファイルアップしろ

35 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:11:29.557 ID:Y2kL3Kft0.net

こういうエクセル弄るだけの仕事したいわ
楽しそう

36 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:11:38.317 ID:qrRX0PGca.net

>>34
会社のデータ挙げれるわけないじゃん

37 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:12:40.743 ID:xLHBwALW0.net

>>36
はーなんだ嘘つきか解散解散

38 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:12:46.972 ID:E9CrW5bU0.net

vloookupで終わりじゃん？

39 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:12:56.272 ID:gueCfwbD0.net

500×12シート？

40 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:14:58.803 ID:s1Cn3kRL0.net

多分VIPPERが想定してない仕様もあるだろうし
シートも各店舗で微妙に勝手に改造してんのもあるだろうから
手動で全部やっとけよ

41 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:17:59.197 ID:qrRX0PGca.net

>>39
月ごとに一つのファイルに各支店のその月のシートがまとまっている　　
つまり、一月分ファイルに500支店の1月分の在庫表が各支店ごとになっている　それが12ファイル

42 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:18:18.890 ID:qrRX0PGca.net

>>40
できるわけないだろ

43 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:19:05.247 ID:+nHzRT5Vr.net

アクセスでＶＢＡ組んでエクセルから抽出して集計しろよ

44 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:19:48.054 ID:KY6jgT/M0.net

「統合」って機能がある

45 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:20:00.949 ID:d5Uo1zohr.net

良かったな立派になってかーちゃんも喜んでるよ

46 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:20:07.797 ID:gXoO2E0g0.net

>>41
その入力ってどこか１ヵ所でまとめてやってるの？
支店ごとにやってるなら支店ごとのシートがありそうだけど

47 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:21:37.941 ID:+nHzRT5Vr.net

一つのファイルに500シート？
作った奴アホなん？

48 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:22:41.636 ID:MhD82JHMa.net

>>47
説明のために省いたけど、本当はエリアごとに分かれてて、多くて50くらい　
それが10エリアみたいな感じ

49 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:23:03.173 ID:fq5illPK0.net

VBAなら十分でイナフ

50 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:25:04.760 ID:oOYM/3o50.net

やってやるからそのデータ貼り付けろ

51 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:25:29.076 ID:pVsxDIC2a.net

>>50
だからできないって

52 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:25:34.416 ID:qt4dGNIor.net

膣土方ネキに敬礼ッ！！

53 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:26:38.422 ID:KY6jgT/M0.net

聞く限り統合とvbaで解決すると思うが

54 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:26:48.981 ID:pVsxDIC2a.net

とりあえず今考えたのは、一個＝で参照して、それをコピペして、支店の名前を一個一個買える方法　
結構手間だよね？

55 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:27:10.121 ID:pVsxDIC2a.net

>>53
検索してみます

56 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:28:30.217 ID:Wwr8IuXQ0.net

データうpできないならせめてサンプル作れや！！

57 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:28:39.731 ID:4whSXPDEa.net

>>9　これ

58 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:29:10.596 ID:+nHzRT5Vr.net

1ファイル50シート（支店）x10ファイル（エリア）x12ファイル（月）の120ファイル500シート？
どっちにしろアホやん

59 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:30:46.893 ID:pVsxDIC2a.net

>>58
うち、アホなんです

60 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:31:18.928 ID:pVsxDIC2a.net

>>58
これを集計しないといけないんです　
助けてください

61 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:33:15.856 ID:pVsxDIC2a.net

>>32
ちなみに、一つのシートにまとめる際は、月ごとにしなければいけません
よって統合は使えないかも

62 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:34:18.108 ID:38ohDOA10.net

>>60
ファイルのシートの中身は全部一緒でよいのか？

63 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:35:34.708 ID:pVsxDIC2a.net

>>62
一応一緒のはずです　

64 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:42:17.718 ID:38ohDOA10.net

>>63
じゃあ、集計すべき在庫数は常にC列にある、とかは決まってるわけだな。
一行は日付別？商品別？
それとも、行は日付別で全ての商品が一行に収まってるとか？

65 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:51:23.665 ID:MNGnYT8xa.net

列は商品別ですね　
なんで、1月分のファイルの各支店のシートのB行の5の商品数を、月、支店ごとに一つのシートに集計（転記）したいみたいなかんじです

66 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:53:15.403 ID:38ohDOA10.net

>>65
げぇ・・・
でもＢ列に入っている商品は全ファイル全シートで同じなのか。なら何とかなるかも知れない。

67 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:53:21.582 ID:uvKdS2pQr.net

子供に関数な親

68 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:55:01.071 ID:QJ8tyTHta.net

>>66
本当ですか！　
ちなみにシート名は支店名になっています

69 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:56:24.605 ID:QJ8tyTHta.net

>>66
B列の商品名は一緒です　
なんで、Bの5に記載している商品数を集計したいのです

70 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:56:29.691 ID:TJSjo6blr.net

普通にVBAできますってのならできるんじゃね

71 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:58:28.351 ID:38ohDOA10.net

>>68
まだ喜ぶのは早い。行はどうなってるんだ？
五行目（左端の灰色のところが 5 になっている）の一行だけが埋まっているのか？
それより下は空白？

72 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 13:59:32.293 ID:QJ8tyTHta.net

>>71
上下は他の商品数が書いてあります

73 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:00:55.459 ID:+nHzRT5Vr.net

素直にＶＢＡで組んだ方が早いだろ

74 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:01:04.601 ID:PhN5IiWGr.net

高校で教えといてほしいわ

75 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:01:32.814 ID:0A9w2wUFa.net

>>73
組めません…
頑張ってみるか

76 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:03:21.444 ID:+nHzRT5Vr.net

>>75
↓見て頑張れ
https://excel.kuuneruch.com/vba-excel-read/

77 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:04:14.133 ID:38ohDOA10.net

>>72
？？？
なんだそれ？　 かなり想像不能なんだが・・・

「他の商品数」ってなんだ？　 「他の商品」の数なのか？　 それとも他の「商品数」なのか？

78 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:06:16.048 ID:0A9w2wUFa.net

>>77
「他の商品」の数です　
A商品　100
B商品　200
C商品　300
みたいな表です

79 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:10:48.514 ID:38ohDOA10.net

>>78
はわわ・・・

それはもしかして、Ａ商品を取り扱っていない支店があったり、マネージャーがウマシカだったりして
ＢＡＣの順に並べてたりすると、B5 じゃなくて B4 になってたりする可能性がある？

80 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:10:56.207 ID:o3ChR5Mlr.net

INDEXとMATCHの組み合わせも覚えると良い

81 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:11:09.598 ID:plPczlb3r.net

やばい

82 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:11:51.277 ID:0A9w2wUFa.net

>>79
それはありません　
報告シートは定められたものを使用しているので、仮にA商品がゼロなら、0と記入してあります

83 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:12:47.283 ID:0A9w2wUFa.net

>>79
なので、集計したい商品数は、全シート同じ場所に記載してあります

84 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:13:08.010 ID:0A9w2wUFa.net

>>81
なにが？

85 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:13:11.884 ID:ApCekhd40.net

統合とかVLOOKUPですぐ出来そうだけど

86 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:14:39.140 ID:38ohDOA10.net

>>82-83
そうか、それならマシだな。

87 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:20:19.074 ID:0A9w2wUFa.net

>>86
お力添えをお願いします

88 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:26:37.646 ID:38ohDOA10.net

>>87
支店名・・・と言うとアレだが、ファイル名やそのシート名の一覧は作れるか？
例えば、
　 　 A列：ファイル名
　 　 B列：シート名
　 　 C列："B5"
ついでに
　 　 D列：支店名
　 　 E列：商品名
　 　 F列：何月分
とかもあると、後で都合が良いかも知れない。

とりあえず、作れるか否かだけ聞いておこうか。

89 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:27:30.295 ID:cLTYQUfqa.net

>>88
つくれます！

90 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:34:37.509 ID:38ohDOA10.net

>>89
素晴らしい。
なら、以下をちょっとやってみてもらいたい。
　 　 １）新規にエクセルファイルを作って、試しに一行だけそれを作ってみる。
　 　 ２）A1から作ったとして、A1のファイルを開いて最小化とかしておく。
　 　 ３）G1に、以下の計算式を入れてみる。コピペで大丈夫のはず。
=INDIRECT("[" & A1 & "]" & B1 & "!" & C1)
　 　 ４）G1に、A1のファイルのB1のシートのC1のセルの値が表示されるはずだ。
あとは・・・わかるな？

91 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:36:48.004 ID:7HIhPCEha.net

>>90
本当にありがとうございます！　
早速やってみます

92 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:36:56.528 ID:YZDYOwXSr.net

知らんばい

93 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:51:55.460 ID:7HIhPCEha.net

なんかえらーになります

94 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:55:23.910 ID:GLkwG2pOa.net

CSV出力してaccessに出したら？
CSV出力するところはVBA使えば自動化出来るだろ

95 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 14:55:30.910 ID:38ohDOA10.net

>>93
新しく作ったファイルは、元のファイルと同じ場所にあるか？
無い場合、ファイル名のところにパス名も書かないと駄目かも。

96 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:08:20.278 ID:suCPDuLQa.net

>>95
なんか上手くいかないですね　
もうちょい頑張ってみます

97 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:19:29.057 ID:YYAQsHhuM.net

vbaで20行も書けばいけそうな気がするんだが

98 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:19:33.942 ID:38ohDOA10.net

>>96
試しに、
=INDIRECT("[" & A1 & "]" & B1 & "!" & C1)
の INDIRECT( と ) とを除いた
="[" & A1 & "]" & B1 & "!" & C1
に変更したらどうなる？　 表示されたのをコピペして見てみたい。
色々と厳密なところなんで、わずかな差でも問題になったりするぞ。

99 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:19:39.369 ID:GLWyJnZTr.net

ググレカス

100 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:27:27.506 ID:suCPDuLQa.net

>>98
そうすると新規作成したファイルのA1B1C1の文字がでますね

101 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:27:37.685 ID:l/GssttEr.net

セックスで幾らでも作れる

102 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:27:49.228 ID:GGJOgkZsr.net

突っ込んであげないから

103 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:30:25.113 ID:38ohDOA10.net

>>100
厳密だって言ってるだろ・・・
A1にaaa、B1にbbb、C1にcccって入れて出て来た文字を此処へコピペ汁

104 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:36:30.593 ID:suCPDuLQa.net

>>103
［aaa］bbb！ccc
です　申し訳ない

105 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:36:40.057 ID:zc6+2IXtr.net

突っ込んであげないから

106 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:37:51.940 ID:38ohDOA10.net

>>104
それが本当にコピペなら、以下の三文字を半角に汁
［
］
！

107 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:40:50.720 ID:suCPDuLQa.net

>>106
会社のパソコンはネットに繋げれないので、コピペではないです　元々半角です

108 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:45:21.567 ID:38ohDOA10.net

>>107
先に言え無能。
じゃあ、A1に入っているファイル名のエクセルファイルは開いているか？

109 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:45:58.622 ID:suCPDuLQa.net

>>108
申し訳ない　
開いています

110 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:49:09.630 ID:0HYAY/R20.net

ブック名とかシート名を指定できなかったっけ？

111 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:49:18.008 ID:hAF5v2aVr.net

桐？

112 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:50:10.226 ID:38ohDOA10.net

>>109
A1に入れてあるファイル名には .xlsx まで入れてある？
開いているならパスは無しでファイル名だけで。空白とか入ってないかどうかも問題。

113 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:55:30.965 ID:gF9tNklG0.net

その方法だと120個のファイル全部開かないとダメなんじゃねーの？

114 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:55:35.643 ID:ewzIggKer.net

マクロ組んで計算してから手計算で確認しろ

115 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:55:49.398 ID:oYGCxMcir.net

sum関数で4行ずつ指定していくのは時間がかかりすぎるからNG

オートフィルで一気にできる方法ない？

116 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 15:58:11.331 ID:vVf+FMcma.net

>>112
A1に入れてあるファイル名には .xlsx まで入れてある？　
→いれてあります
開いているならパスは無しでファイル名だけで。空白とか入ってないかどうかも問題。　
→パスは無しでファイル名だけでの意味がわかりません…

117 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:00:43.917 ID:38ohDOA10.net

>>116
フォルダーを開いた時に見える名前。
ファイル名を逆クリックしてプロパティーってやると、書いてある名前。

118 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:03:32.619 ID:wRrEZOf/a.net

>>117
ありがとうございます　
その名前をA1にいれています

119 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:06:09.031 ID:4whSXPDEa.net

逆クリック…？🤔

120 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:06:50.407 ID:38ohDOA10.net

>>118
うーん、じゃあ後は「何かエラー」ってのがどんなのかだな・・・

121 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:07:57.223 ID:VlaIygMZa.net

>>120
♯REF！です

122 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:08:06.085 ID:eZ4mEFLer.net

できません

123 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:15:41.490 ID:38ohDOA10.net

>>121
なら、いったん>>98に戻して、表示されてる内容をそのままH1あたりに入れてみたらどうなる？
G1
[xxxxx.xlsx]shitemmei!B5
H1
=[xxxxx.xlsx]shitemmei!B5
みたいにしてみる。

124 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:19:04.211 ID:P0oljySJa.net

=sum(indirect("[集計用ファイル.xlsx]集計対象シート!B10"),indirect("[集計用ファイル2.xlsx]集計対象シート!B10"))

125 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:20:56.100 ID:38ohDOA10.net

>>124
流石にそれは無いと思うぞ・・・わからんけど。

126 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:27:12.783 ID:nk8f0sTCa.net

>>123
入力した名前は正しくありません　
以下の理由が考えられます　
名前の先頭が、英文字、ひらがな、カタカナ、漢字、アンダースコアではありません　
名前に空白または他の無効な文字が含まれています　
名前がエクセルの組み込み名、または、ブック内の他のオブジェクト名と競合しています

127 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:27:50.083 ID:fq5illPK0.net

Sub test()

Const folderAdrs As String = "XXX" '左のXXXにはファイルのあるフォルダアドレスを入れて下さい

Dim fso As Object
Set fso = VBA.Interaction.CreateObject("Scripting.FilesystemObject")

Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet

If Not fso.FolderExists(folderAdrs) Then
MsgBox "Invail address!"
Exit Sub
End If

Dim f As Scripting.File
Dim fls As Scripting.Files
Set fls = fso.GetFolder(folderAdrs).Files

Dim cnt As Long
cnt = 1

With Excel.Application.ThisWorkbook.Worksheets(1)
.Cells(cnt, 1) = "FileName"
.Cells(cnt, 2) = "SheetName"
.Cells(cnt, 3) = "Value"
End With
cnt = cnt + 1

For Each f In fls
If f.Type = "Microsoft Excel ワークシート" Then
Set wb = Excel.Application.Workbooks.Open(f.Path)
For Each ws In wb.Worksheets
With Excel.Application.ThisWorkbook.Worksheets(1)
.Cells(cnt, 1) = fso.GetBaseName(f.Path)
.Cells(cnt, 2) = ws.Name
.Cells(cnt, 3) = ws.Cells(5, 2).Value
End With
cnt = cnt + 1
Next ws
wb.Close False
Set wb = Nothing
End If
Next f

Set fso = Nothing

End Sub

128 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:32:12.556 ID:38ohDOA10.net

>>126
うーん？
.xlsxを除いてみたらどうだろうか？

129 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:35:10.710 ID:n66TKn/oM.net

ここで教えてもらっても後々メンテナンスできなくて詰みそう

130 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:38:32.454 ID:38ohDOA10.net

最初から泣きながらコピペしてたらもう終わってるよな、間違い無く。

131 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:39:05.885 ID:2NA0UlcSa.net

>>128
同じメッセージですね…

132 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:39:33.708 ID:2NA0UlcSa.net

>>127
ありがとうございます　

133 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:39:40.293 ID:hJaIbVVfp.net

やりようがいくらてもあって草

134 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:39:40.682 ID:T6Y40rbJr.net

イベントとかじゃね
修正するとき探すの大変だし

135 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:41:04.208 ID:2NA0UlcSa.net

とりあえずINDIRECT調べて頑張ってみます　
ありがとうございました

136 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:42:13.467 ID:38ohDOA10.net

諦めたｗｗｗｗ

137 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:43:33.122 ID:n66TKn/oM.net

1ブック内で完結するならINDIRECT関数
複数ファイルに跨るならVBA書く

138 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 16:49:39.969 ID:2NA0UlcSa.net

https://youtu.be/mYFVbrVDXVM
これで解決しそう

139 ：以下、？ちゃんねるからVIPがお送りします：2021/08/05(木) 17:42:17.441 ID:8iiU8RSga.net

ここにファイル張ればお前は職を失うかもしれないけど解決するかもしれんぞ