|
はじめまして。
マクロを勉強して1ヶ月の新人です。
シートの名前に(氏名一覧、集計、山田花子、○△□×、・・・)というシートがあって山田花子のシート以下数百名のシートがある状態です。名前の付いたシートは氏名一覧のシートに、名前をシートの順にA1のセルから下に列挙してあります。マクロで組みたいのは、集計の表にある各個人のデータを名前のシートにそれぞれ飛ばしたいのです。いろいろとやってみたのですが、エラー9の「インデックスが有効範囲にありません」というエラーがでてうまくいきません。どなたか手助けしていただけるとありがたいのですが、よろしくお願いします。
Sub 転記()
For i = 2 to 1179 step11
Sheetname=Worksheets("氏名一覧").cells((i-2)/11+1,1)
With Worksheets(sheetname)
.range("c3")="=集計!b"&i
.range("d10")="=集計!e"&i+1
.range("e10")="=集計!g"&i+1
.range("g10")="=集計!k"&i+1
.range("h10")="=集計!p"&i+1
End With
Next
End sub
どうも、Sheetnameの変数の指定の仕方が間違っているようなのですが本当にわかりません。ここに、変数を無視してシートの名前を入れると、そのシートだけはうまく動くのです。是非とも教えてください。
|
|