図1のような形式のシートが複数シートあります。
行いたいことは、図2のような表を作ることです。
全シートから、図1でいうB列の値だけをコピーし、
新しいブックの1つのシートに"値の貼り付け"をしていきたいです。
二回目以降の貼り付け時には、
コピーしたセルの1つ下のセルから張り付けたいです。
その際、図1の上部にあるシートタイトルやヘッダの部分も、
図2のように分けて表示させたいです。
その他にも、シート名や日付も表示させたいと考えています。
なお、対象ブックのあるパスをセルに入力して
「抽出」等のコマンドボタンをクリックしたら
そのパスを読み込んで抽出処理を行うようにしたいです。
VBAを勉強し始めたばかりでなかなか完成できず困り果てています。
コマンドボタンの配置方法や、クリック時に動作する方法は分かります。
が、セルに入力されたパスを読み込むことに手こずっています。
今まで調べてきたなかで、getPathやgetDirなどを使うんだろうなというイメージですが
動くものを作ることができません。
複数シートが対象なので、for文でシートの終わりまでループを回すことは
想像がつくのですが、実際にコードが書けません。
「こういう考え方で出来る」などでもかまいませんので
何かアドバイスをいただけませんでしょうか。
以上、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
もう少し詳しく書いたほうがよさそうです。
・図が不鮮明、小さくて読めない
・読み込みたいデータのファイルは一つなのか(一つのファイルに複数シート)、
複数ファイル(パスを指定した先のフォルダにある全ファイル)なのか、
で、さらに複数シートなのか
・図2にある日付、元のデータとの関係性が不明。
というわけでざっくりの回答となります。
手作業でやることを考えて書いていってはどうでしょうか。
あくまで一例です。いろいろ組み合わせてみてください。
1) ファイルを開く
Workbooks.Open FileName:=パス名からのファイル名
2)あるフォルダにある全ファイルを開く
Dir関数と言うのがあります。
http://officetanaka.net/excel/vba/tips/tips95.htm
たとえば
'---------------------------------------
Sub BBB()
Dim myPath As String, FlNam As String
myPath = "C:\Users\tomoya\Desktop\"
FlNam = Dir(myPath & "*.xlsx")
Do Until FlNam = ""
Workbooks.Open Filename:=myPath & FlNam
FlNam = Dir()
Loop
End Sub
'---------------------------------------
3) あるファイルの全シートをループする
'---------------------------------------
Sub ccc()
Dim k As Integer
For k = 1 To Worksheets.Count
Worksheets(k).Select
Next k
End Sub
'---------------------------------------
4) 最終行を取得する
Dim LstRow As Long
LstRow=Cells(Rows.Count,1).End(xlUp).Row
貼付先は、最終行の次でしょうから、実際には上記に +1 をするとよいでしょう。
5)B8セルから一番下までの範囲を指定する
Dim Rng As Range
Set Rng =Range(Cells(8,2),Cells(8,2).End(xlDown))
ご回答ありがとうございます。
そして勉強になるコードをたくさん、ありがとうございます。
はい。まずは手作業で、作りたいVBAの細分化をして、どんな機能を持ったプロシジャーが必要なのか等、噛み砕いてみます。
添付図について、ご指摘有難いです。今後画像を一緒に投稿する際は事前にサイズ感等の確認を行います。
読み込みたいデータは(本来は数百ブックあるのですが、まずは”1ブック内の複数シートから抽出する処理”を理解したいので、今回は)パスを指定した先のフォルダにある、1ブックの中の複数シートです。
プログラム内にはパスを書かずに、セルに入力されたパスを読み込むことが目標です。現段階では、以下ように書いています。
psPath = ThisWorkbook.Sheets(”管理”).Cells(1, 2).Value
If Dir(psPath, vbDirectory) = ”” Then
MsgBox ”存在しないパスが指定されています。修正してください”
Exit Function
End If
最後に日付なのですが、画像だと文字が潰れてしまって確認できないのですが、図1のシートタイトルのすぐ左下(B3)に「2002年7月」とありまして、さらにその左下(A8~A38)に「1から31」までの日付が下方向にふってあります。
これらから年月日を読み取って、図2のD3のように「2002/7/1」と出力しようとしています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCEL VBAで複数シートから該当列のみを別シート列方向に順番に貼り付け
Visual Basic(VBA)
-
EXCEL:複数シートから特定行を一覧化したい
その他(Microsoft Office)
-
excel2010 マクロで複数シート検索し、一致した行をコピーしたい
Excel(エクセル)
-
-
4
複数のExcelファイルにある同名シートを1つのシートに一括でまとめるには?
Excel(エクセル)
-
5
複数ファイルから特定シートのコピー
Excel(エクセル)
-
6
複数シートの同じセル内容を1シートに順番に貼り付けたい
その他(Microsoft Office)
-
7
複数エクセルから特定シートの特定行だけを別シートに抽出するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
Excelマクロのエラーを解決した...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
excelのマクロで該当処理できな...
-
【Excel VBA】Worksheets().Act...
-
同じ作業を複数のシートに実行...
-
XL:BeforeDoubleClickが動かない
-
VBAで、シート間の転記するコー...
-
ブック名、シート名を他のモジ...
-
シートが保護されている状態で...
-
エクセルのマクロについて教え...
-
ExcelのVBAのマクロで他のシー...
-
実行時エラー1004「Select メソ...
-
VBA 最終行まで数式をコピーする
-
【ExcelVBA】動的にボタン、ボ...
-
【VBA】指定した検索条件に一致...
-
VBA 検索して一致したセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
XL:BeforeDoubleClickが動かない
-
ExcelVBA シート名を複数セルか...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報