|
こんばんは。
解決したのですか?
>>
>下記のコードで
>エラーはインデックス範囲が有効でないとでます。
>番号は9番です。
このエラーがなくなっただけではないですか?
>■シート名
>世界、eigo、tuke
>■転記するセル
>A2,A3,A4+A5
>
>仮にどのシートのセル値も
>A2が1、A3が2、A4+A5が5
>だとすると
>
>まとめ
>A B C
>1 2 5
>1 2 5
>1 2 5
>のように結果として出したいのです。
>ただし、行は7から始める。
どのシートも同じ値なら、
上記のような結果にはなりますが・・・。
>
option base 1
>
>Sub test()
> Dim may As Variant
> Dim ws As Variant
> Dim i As Variant
> Dim k As Long
> Dim num As Variant
>
> 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 3
> Worksheets("まとめ").Cells(k, i) = may(i)
> Next i
> Next k
'このループに問題がありますが、大丈夫ですか?
> End With
> Next num
>End Sub
|
|