![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_09.png?5a7ff87)
図1のような形式のシートが複数シートあります。
行いたいことは、図2のような表を作ることです。
全シートから、図1でいうB列の値だけをコピーし、
新しいブックの1つのシートに"値の貼り付け"をしていきたいです。
二回目以降の貼り付け時には、
コピーしたセルの1つ下のセルから張り付けたいです。
その際、図1の上部にあるシートタイトルやヘッダの部分も、
図2のように分けて表示させたいです。
その他にも、シート名や日付も表示させたいと考えています。
なお、対象ブックのあるパスをセルに入力して
「抽出」等のコマンドボタンをクリックしたら
そのパスを読み込んで抽出処理を行うようにしたいです。
VBAを勉強し始めたばかりでなかなか完成できず困り果てています。
コマンドボタンの配置方法や、クリック時に動作する方法は分かります。
が、セルに入力されたパスを読み込むことに手こずっています。
今まで調べてきたなかで、getPathやgetDirなどを使うんだろうなというイメージですが
動くものを作ることができません。
複数シートが対象なので、for文でシートの終わりまでループを回すことは
想像がつくのですが、実際にコードが書けません。
「こういう考え方で出来る」などでもかまいませんので
何かアドバイスをいただけませんでしょうか。
以上、よろしくお願い致します。
![「【VBA】全ての複数シートから指定した列」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/a/542276956_56555615333dd/M.png)
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
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
VBAで文字列を数値に変換したい
Excel(エクセル)
-
6
複数シートの同じセル内容を1シートに順番に貼り付けたい
その他(Microsoft Office)
-
7
同一フォルダ内の別ブックからシートをコピーするには? 「集計」フォルダ内に「項目別集計.xlms」と
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
実行時エラー'1004': WorkSheet...
-
別のシートから値を取得するとき
-
特定の文字を含むシートだけマ...
-
XL:BeforeDoubleClickが動かない
-
excelのマクロで該当処理できな...
-
ブック名、シート名を他のモジ...
-
VBA 存在しないシートを選...
-
セルのコピーで「オブジェクト...
-
エクセルのシート名変更で重複...
-
Excel VBA 複数行を数の分だけ...
-
同じ作業を複数のシートに実行...
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
-
別のシートを参照して計算する方法
-
【VBA】シート名に特定文字が入...
-
コマンドボタンをクリックでシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報