|
こんにちは
>ワークブック名をWorkbook(Index)で
>同じ計算を繰り返しするにはオートフィル以外
どちらも何を意味しているのか良く分かりませんけど、
Sub test()
Dim wb()
Dim i As Long
Dim w As Workbook
i = 1
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name And _
w.Name <> "PERSONAL.XLS" Then
ReDim Preserve wb(1 To i)
wb(i) = CStr("'[" & w.Name & "]Sheet1'!RC")
i = i + 1
End If
Next
ThisWorkbook.Worksheets("Sheet1") _
.Range("C7").Consolidate wb, xlSum, False, False, False
End Sub
「Select」は大抵の場合不要です。
With ThisWorkbook.Worksheets("Sheet1")
.Range("C7").AutoFill Destination:=.Range("C7:E7"), Type:=xlFillDefault
End With
|
|