|
>tblR.Copy Destination:=Sheets("" & i & "").Range("a3")
>'それをそれぞれのシートにコピー
>で「インデックスが有効範囲にありません」とデバッグかかってしまいます。
Set tblR = .Range(.Cells(9, 1), .Cells(.Range("a65536").End(xlUp).Row, maxcol))
Sheets("" & i & "").Select '← これ入れて、動くか確認してみるとか..。
tblR.Copy Destination:=Sheets("" & i & "").Range("a3")
シート名を数字だけにすると、インデックス番号と間違える可能性もないとはいえないと思うので、出来たら止めた方が良いと思います。
因みに、こんな感じでした。
Dim st As String, i As Integer
i = 2
Sheets(i).Select 'インデックス番号で選択
i = 1
Sheets("" & i & "").Select '普段、1度もこう書いた事は無いけど
'文字列処理されて、シート名で選択していた。
st = 3
Sheets(st).Select 'シート名で選択
>B10の納入コード(NO,○○-○○)を
>コピー先(各アイテムNO,で抽出したsheet)のA列に入れたいのですが
提示されたデータ例だと1〜6の番号ですよね。入ってませんでしたか?
こちらでは、提示されたデータでやってみましたが入ってましたよ。
>上記のどの部分にどう追加すればいいのかわかりません。難点は、アイテムNO , の数がユニークですので、納入コードが何行ごとに入るかはバラバラなんです。
こちらにしてみても、バラバラのデータがどうなっているのか解らないとなんともいえません。
どんなふうにバラバラになっているのでしょうか??
最終的なものが、どういう風にしたいのか言葉だけでは良く解りません。
シートレイアウトなどを書いて、説明された方がいいと思います。
回答側としては、よく伝わらない質問内容を、掲載されたデータと最終結果を判断材料にしたりします。
|
|