[[20200421215122]]　『複数シートの１行目をまとめて１つのシートに抽出』（みどり）　ページの最後に飛ぶ

『複数シートの１行目をまとめて１つのシートに抽出したい』（みどり）

お世話になります。

シート1は集計用、シート2からシート100までは、同じ配列の表が入っています。

シート2からシート100の仕様としては下記のとおり
・「１行目」に２行目以降のデータが転機されるようになっている。
・「１行目」には数字・文字列が混在している。
・全てのシートの「１行目」は非表示である。
・各シートには全シート共通の４桁のパスワードがかかっている。
・シート名はバラバラ。

作業としては、シート2からシート100の「１行目」をシート1の１行目から下に下に抽出して集計をしたいと考えています。
シート１の集計表の「１行目はシート２の1行目」「２行目はシート３の１行目」「３行目はシート４の１行目」・・・というように抽出いくマクロコードを教えていただけるとありがたいです。
追加で可能であれば、パスワード「数字４桁」(共通)を解除、シート１へは値のみ貼り付けの設定でできれば助かります。

どうぞよろしくお願いてします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 バックアップをとってからテストしてください。

 Sub test()
     Dim ws As Worksheet
     Dim k As Long

     Set ws = Worksheets("集計")
     ''For k = 2 To Worksheets.Count
     For k = 2 To 4      '' テスト用
         ws.Cells(k - 1, "A") = Worksheets(k).Name
         Worksheets(k).Rows(1).Resize(1, 1000).Copy
         ws.Cells(k - 1, 2).PasteSpecial Paste:=xlPasteValues
     Next
 End Sub

 パスワードというのはシートの保護に関連したものですか？
 読み込むだけなら解除は必要ないような。
（γ） 2020/04/21(火) 23:36

ありがとうございます。バックをとってからテストしてみます。
パスワードは読み込むだけなら解除不要なんですね。
勉強になりました。
（みどり） 2020/04/22(水) 00:05

コメント返信：

[ 一覧(最新更新順) ]

[[20200421215122]] 『複数シートの１行目をまとめて１つのシートに抽出』（みどり） ページの最後に飛ぶ

[[20200421215122]]　『複数シートの１行目をまとめて１つのシートに抽出』（みどり）　ページの最後に飛ぶ