![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
多数の人に下記のようなファイルを配り、記入して返信してもらいました。
・オリジナルファイル
質問1 質問2 質問3
Aさん N N N
Bさん N N N
Cさん N N N
Dさん N N N
Eさん N N N
まずファイルを開けたら自分の名前をフィルターし、答えがYesの場合のみNをYに変えて返信してもらいました。回答はYかNしか選べません。フィルターはしてもらっていますが、他の人の行がすべてN状態で残ったまま返信されることになります。
この状態で複数に別れたファイルを一つにしたいと考えています。しかも回答が全列Nの人はスキップしたいです。
・実際の回答をまとめた場合
質問1 質問2 質問3
Aさん Y Y N
Bさん N N N
Cさん Y N N
Dさん Y Y Y
Eさん N N N
・今回作りたいファイル
質問1 質問2 質問3
Aさん Y Y N
Cさん Y N N
Dさん Y Y Y
この場合どのようにすれば良いでしょうか。ファイルが400以上あり困っています。
ご存知の方、ぜひご教授ください。宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
マクロを使って淡々と調べて集めます。
準備:
A列に名前、B,C,D列(2列目から4列目)に質問とする
1行目にタイトル行、2行目からデータとする
400冊の回答ブックは一か所にまとめて保存しておく
言わずもがなですが回答ブックは、1枚のシートのみ含んでいて、記入してあるものとする
手順:
白紙のブックを一つ用意する
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
必要な個所を修正する
ファイルメニューから終了してエクセルに戻る
ALT+F8を押し、マクロを実行する
sub macro1()
dim myPath as string
dim myFile as string
dim i as long
mypath = "c:\test\" ’400冊のブックの保存場所を正確に記述すること
myfile = dir(mypath & "*.xls*")
do until myfile = ""
workbooks.open filename:=mypath & myfile
for i = 2 to 4 ’実際の質問列に合わせて修正すること
range("A:D").autofilter field:=i, criteria1:="N"
next i
activesheet.autofilter.range.delete shift:=xlshiftup
if range("A1") <> "" then
activesheet.range("A1").currentregion.copy destination:=thisworkbook.worksheets(1).range("A65536").end(xlup).offset(1)
end if
activeworkbook.close false
myfile = dir()
loop
end sub
#言わずもがなですがマクロブックを400冊と同じ場所に保存「しない」こと
この回答への補足
早速のご回答ありがとうございます。
教えて頂いた通りにやってみたのですが、上手くいきません。
mypath = "c:\test\"
for i = 2 to 4
range("A:D")
の三箇所を適切に変更したつもりなのですが((3 to 73)と("A:BU")に)、マクロを実行しても何も始まりません。マクロのセキュリティレベルはすべてのマクロ有効になっています。
マクロに不慣れなので恐らく初歩的な問題なのだと思いますが、教えて頂けますでしょうか。
お手数おかけしてすみません。
No.4
- 回答日時:
修正のみで申し訳ないけど。
(私にポイントの類は付けないようにお願いします。私が書いたわけではないので)
試しに
workbooks.open filename:=mypath & myfile
を
set book=workbooks.open filename:=mypath & myfile
に変更。
activeworkbook.close false
を
book.close false
に変更。
したらどうなるでしょうか。
>の三箇所を適切に変更したつもりなのですが((3 to 73)と("A:BU")に)、マ
は
(3 to 73)と("B:U")
なのではないかと。
たぶん。
この回答への補足
修正どうもありがとうございます。
set book=workbooks.open filename:=mypath & myfileの部分でコンパイルエラーが起きてしまいます。
色々といじってみたのですが、知識不足で上手くいきませんでした。すみません。
また、(3 to 73)と("B:U")の部分はA列からBU列まで対象なのですが、("A:BU")にはならないのでしょうか。
ちなみに教えて頂いた、
activeworkbook.close false
を
book.close false
に変更。
の部分だけやってみたのですが、やはり何も実行されませんでした。
どうぞ宜しくお願い致します。
No.2
- 回答日時:
作戦:結構高速版!!
1.データファイル(多分、多数のCSVファイル)を1つのフォルダ(例えば、d:\tmp)に集める。
2.cmdプロンプトのお世話になる。
→CD /d d:\tmp
→COPY *.CSV Alltogether.xls
3.Alltogather.xlsを開き列分割。
「N」が3つ揃った行を抽出して、削除。
欲しかったものが手に入る、オシマイ!!
No.1
- 回答日時:
VBAでやるしかないのでは。
できないなら誰かに書いて(作って)もらうしか無いでしょう。
私も一応書けますが。
行と列の構造とか、ファイル名はどんな感じでしょうか。
何行目から始まって何行目で終わるとか。
何列目に質問があって何列目に回答があるとか。
半角なのか全角なのかとか、まあいろいろ細かい仕様がわからないと作れないんで。
時間あるなら自分でやってみてもいいと思う。
http://excelvba.pc-users.net/
400ファイルとなると覚えて書いたほうがたぶん早い。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Visual Basic(VBA) セルの値からファイルを複数作りたい2 3 2022/10/07 15:54
- 画像編集・動画編集・音楽編集 連続質問です 動画ファイルの圧縮時のビットレートというのについて教えてください 2 2023/08/06 11:50
- Excel(エクセル) Excel使用前提 同じフォルダ内にあるファイルの集約等をマクロでできますか 4 2022/09/06 19:03
- Excel(エクセル) Excelについての質問です。 ファイルAに関数が入っていて、それはファイルBを開いていると反映され 1 2022/06/03 18:48
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- その他(IT・Webサービス) WEBサイト内のファイルを探す方法は? 1 2022/11/11 16:38
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
EXCELブックが勝手に開いて困っ...
-
エクセル;相対パスを絶対パスへ...
-
マクロの保存先、開いてるすべ...
-
エクセルVBAで作成した別ブック...
-
[フィルターオプションの設定]...
-
EXcelのマクロで相対パスでファ...
-
【Excel】マクロの保存先について
-
EXCELのボタンによるマクロの登...
-
【Excel】特定セルの内容をテキ...
-
【Excel】他ブックからOpenされ...
-
複数のExcelファイルの印刷設定...
-
エクセルVBA 個人用マクロブッ...
-
Excel:VBAブック保存時にマクロ...
-
複数のbookから特定のセル(行...
-
excelで直前に参照していたブッ...
-
エクセルでメッセージボックス...
-
ファイル名変更後も、マクロを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
マクロの保存先、開いてるすべ...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
【マクロ】必要な項目(列)の...
-
複数のExcelファイルの印刷設定...
-
エクセルのvbaにて thisworkboo...
-
エクセルで未保存に対するメッ...
-
名前の変わるブックをアクティ...
-
ファイル名変更後も、マクロを...
-
エクセルVBA 個人用マクロブッ...
-
EXCELのボタンによるマクロの登...
-
個人用マクロブックが消えました
-
【Excel】特定セルの内容をテキ...
-
【マクロ】マクロが保存されて...
おすすめ情報