□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 別ファイルのリストから行コピーして貼り付け | |
|---|---|
[195295] 別ファイルのリストから行コピーして貼り付け- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ スカイ -(2022/10/14(15:26)) □U R L/ お世話になります。 初投稿で且つ初心者です。 以下の手順を自動化したいです。 1.a社から届いた見積りファイルを開く 2.19行目から35行目でC列に値の入っている行までコピー 3.まとめているファイル(以降まとめファイル)の一番下の行に貼り付け 4.シート名をコピーしZ列に貼り付け 5.コピーを終えた見積りファイルを別フォルダ(まとめ済みフォルダなど)に移動 6.これをフォルダから.xlsxファイルがなくなるまで繰り返し をしてみたいのですが何かいい方法はないでしょうか？ 足りない情報などございましたらご教示いただければ都度追記させていただきます。 よろしくお願いいたします。 環境:Windows10 ツール:Excel バージョン：2108 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195296] Re[1]: 別ファイルのリストから行コピーして貼り付け- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/10/14(18:33)) □U R L/ > 2.19行目から35行目でC列に値の入っている行までコピー シート名は？ コピーする列は？ > 3.まとめているファイル(以降まとめファイル)の一番下の行に貼り付け 貼り付け先のシート名は？ 貼り付け先の列は？ > 4.シート名をコピーしZ列に貼り付け ブック名の間違いでは？ | |
[195297] Re[2]: 別ファイルのリストから行コピーして貼り付け- ■記事引用/メール受信=OFF■ □投稿者/ スカイ -(2022/10/14(23:28)) □U R L/ マナさん コメントありがとうございます。 >> 2.19行目から35行目でC列に値の入っている行までコピー >シート名は？ >コピーする列は？ シート名は「株式会社◯◯」や「◯◯株式会社」などの会社名です。 列はB列からY列です。 >> 3.まとめているファイル(以降まとめファイル)の一番下の行に貼り付け >貼り付け先のシート名は？ >貼り付け先の列は？ 貼り付け先シート名は「纏」 貼り付け先の列はB列からY列です。 >> 4.シート名をコピーしZ列に貼り付け >ブック名の間違いでは？ ブック名はファイルの名前ですよね…？ シート名だと見積り先の会社の名前だけが取れるので シート名がいいんですが無理そうですか？ 初心者なので苛立たせてしまうかもしれませんが何卒よろしくお願いします。 | |
[195298] Re[3]: 別ファイルのリストから行コピーして貼り付け- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/10/15(10:28)) □U R L/ 動作確認してませんが、こんな感じで。
Sub test()
Dim fso As Object, p As String, f As Object
Dim wsT As Worksheet, wsF As Worksheet
Dim r As Range, n As Long
Set wsT = ThisWorkbook.Worksheets("纏")
p = ThisWorkbook.Path
Set fso = CreateObject("scripting.filesystemobject")
For Each f In fso.getfolder(p).Files
If LCase(f.Name) Like "*.xlsx" Then
Set wsF = Workbooks.Open(f.Path).Worksheets(1)
Set r = wsF.Range("B19:Z35")
r.Columns(r.Columns.Count).Value = wsF.Name
n = r.Columns(2).SpecialCells(xlCellTypeConstants).Count
r.Resize(n).Copy
wsT.Range("c" & Rows.Count).End(xlUp).Offset(1, -1).PasteSpecial xlPasteValues
wsF.Parent.Close False
End If
Next
fso.movefile p & "\*.xlsx", p & "\まとめ済み\"
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195302] Re[4]: 別ファイルのリストから行コピーして貼り付け- ■記事引用/メール受信=OFF■ □投稿者/ スカイ -(2022/10/15(15:36)) □U R L/ マナさん ありがとうございました。 大変助かりました。 このような質問掲示板で質問する際には、 どのような内容があると答えやすいでしょうか？ 最後に教えていただけると嬉しいです。 | |
[195311] Re[5]: 別ファイルのリストから行コピーして貼り付け- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/10/16(20:42)) □U R L/ ＞どのような内容があると答えやすいでしょうか？ 質問内容で不明な点があれば、こちらから質問しますので、 読みやすい文章であれば、それでよいです。 今回は、何がしたいか、箇条書きでわかりやすく、十分伝わっています。 ただし、 ＞何かいい方法はないでしょうか？ のような、丸投げの質問は、回答者を選びます。 せっかく、箇条書きにしたのなら、 この部分はわかるが、ここは全くわからない。 といった質問にするとよいです。 さらに、エラーで最後まで動かなくてもよいので 可能な限りコードも提示していただけると 丸投げの批判も受けないでしょう。 | |
[195312] Re[6]: 別ファイルのリストから行コピーして貼り付け- ■  / 記事引用/メール受信=OFF■
□投稿者/ スカイ -(2022/10/16(20:59)) □U R L/ マナさん ありがとうございました！ 今後はそのようにしてみます！ 仕事で使うために初めてVBAを勉強したので >さらに、エラーで最後まで動かなくてもよいので >可能な限りコードも提示していただけると >丸投げの批判も受けないでしょう。 ここの部分がどれだけできるかわかりませんが 頑張って提示できるように頑張ります！ 今回は優しく教えていただきありがとうございました！ | |