|
世界などの名前の付いたワークシートのA2,A3,A4+A5の値を転記する方法。
まとめシートのA7からD7にはワークシート世界の値 、
A8からD8にはワークシートeigoの値・・・という風にです。
forとかarrayの使い方を間違えているのか、エラーがでます。
どこをどのように変えると正しく転記されるのでしょうか?
ご教授いただきたく、書かせていただきました。
宜しくお願い致します。
Sub test()
Dim may As Variant
Dim ws As Variant
Dim i,num,k As Long
ws = Array("世界", "eigo", "tuke")
For num = 1 To UBound(ws)
With Worksheets(ws(num))
may = Array(.Cells(1, 2), .Cells(1, 3), Cells(1, 4) + .Cells(1, 5))
For K = 7 To 9
For i = 1 To 4
Worksheets("まとめ").Cells(K, i) = may(i)
Next i
Next K
End With
Next num
End Sub
|
|