|
わざわざ図を描いていただいてありがとうございます。
図の通りで問題ありません。ファイルの重複もありません。
一応過去レスで似たようなものがないか調べていたのですが
【複数ファイルからのデータ】という例がありました。
Sub test()
Dim cnt As Long
Dim r_add1 As String
Dim sht As String
cnt = 10
Range("a1:b1").Value = Array("file", "H180")
r_add = Range(Range("b1").Value).Address
For idx = 2 To cnt + 1
With Cells(idx, 1)
.Value = idx - 1
.NumberFormat = "00"
sht = .Text
With .Offset(0, 1)
.Formula = "='" & ThisWorkbook.Path & _
"\[" & sht & ".xls]" & sht & _
"'!" & r_add
'.Value = .Value
End With
End With
Next
End Sub
これだと確かに同じH180のデータを複数ファイルから抜き出せる
ようですが、今回はcntで入力するファイルの数が確定していないうえ
どの番号のファイルが対象かは四半期ごとに変わります。
なおかつコピー先のファイルがコピー元と同じフォルダ内にないと
いけないようですが、コピー先とは分けなければいけません。
素人考えでおそらく上のコードをいじっていけばできるような気は
するのですがどう手をつけて良いかわかりません。よい知恵をお貸しください。
|
|