0

一覧表のA列のセルの値(確認用No)と同じ名前のシートにデータを自動転記したい。

処理中の対象レコードが、どのシートに転記されるのかを判定するコードを書いたがインデックスが有効範囲にありませんとエラーになってしまう。

Set wstNo = Worksheets(.Cells(r, "A").Value)                             '確認Noと同じシート名をセット

上記の行がエラーとなる。(インデックスが有効範囲にありません)
セルの値と同じ名前のシートはすでにある状態です。

Dim wstweb As Worksheet                                                            '「webアンケート」シート用オブジェクト変数
Dim wstNo As Worksheet                                                            '各確認用Noシート用オブジェクト変数
    
Dim lngERow As Long                                                                 
  
Dim r As Long
    
Set wstweb = Worksheets("webアンケート")
With wstweb
        lngERow = .Range("A" & .Rows.Count).End(xlUp).Row                               
        
'すべての集計元データを処理
For r = 2 To lngERow
    Set wstNo = Worksheets(.Cells(r, "A").Value)                             '確認Noと同じシート名をセット
            With wstNo
                wstNo.Cells(2, "B") = wstweb.Cells(r, "B")                                '何歳
            End With
Next
End With
2

0

この質問に回答するには、ログインする必要があります。

のタグが付いた他の質問を参照する。