手を貸してください・・・。 会社で今まで使用していたアプリ？みたいなものが廃止されてそれと同等の機能をExcelに持たせるためVBAを今必死こいて勉強していますが、全然わからないので有識者の方手を貸してください。 自分がいまVBAでやろうとしているのは、フォルダ内の複数ブックから条件を満たす行を別のブックに転記させたいのですが、画像のように大体で構文書いてみたんですけどf8キーで流してみたのですが、インデックスが有効範囲にありません。とエラーが出ます。(デバッグを押すと下記画像の部分が黄色) With Workbooks("File")のところで「File」にはブックを開いて処理をしたらブックを閉じて次のブックが入るように可変的にしたいのですが、WithWorkbooks("File")のFile部分が違う入れ方で入れなければいけないのかなと思っているのですがどうなんでしょうか。またプログラムをいくつか追加しなければいけないのでしょうか。ご教示願います。(できればVBA初心者なので嚙み砕いて説明いただけると助かります・・・。) Sub 別ブックからデータ転記2() Dim Path As String, File As String Path = "ここにはフォルダパスが入る。" File = Dir(Path & "\*.xlsm") Do While File <> "" 'Dir関数がファイル名を返さなくなるまで繰り返す。 Workbooks.Open Path & File '抽出 Dim i, j As Long i = 5 '機械部品5行目～〇探し j = 7 '新規7行目～貼り付け With Workbooks("File").Worksheets("機械部品") Do While .Cells(i, "B").Value <> "" '(i行,B列)が空白じゃないとき繰り返し If .Cells(i, "B").Value <> "" Then '(i行,B列)が空白じゃないとき下記実行 For x = 1 To 16 ThisWorkbooks.Cells(j, x).Value = .Cells(i, x + 2) Next x End If i = i + 1 Loop End With Workbooks.Close File = Dir '引き継いだ次のファイル名を返す Loop End Sub