|
おはようございます。
参照セル範囲が少ないとリンクが処理速度が速かったので。
以下のコードを含むブックと参照するブック(01.xls〜10.xls)は、同じフォルダにあると言う仮定です。
尚、出力は、アクティブシートに対して行っています。
'=======================================================
Sub test()
Dim cnt As Long
Dim r_add1 As String
Dim sht As String
cnt = 10 '←ここを100にすれば、01.xls〜100.xlsまで処理します
Range("a1:b1").Value = Array("file", "H180")
' ↑H180を変更すれば(例.V200)
' 指定セルを参照します
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
確認してみて下さい。
|
|