0

ワークブックのあるシートから別のシート (名前は「Sheet1」および「Clean Data」) にデータをコピーしようとしています。rRow は Sheet1 のソース範囲で、rPaste は「Clean Data」でコピーしたい場所です。まず、新しい行には変数 sSkillset と sDate が含まれている必要がありますが、これは現在正常に機能していますが、rRow からデータの行全体を追加する必要があります。不一致またはオブジェクト エラーを生成せずにそれを行う方法が見つかりません。

rPaste.Value = sSkillset
Set rPaste = rPaste.Offset(0, 1)
rPaste.Value = sDate
Set rPaste = rPaste.Offset(0, 1)
For Each rCell In rRow
'Copy rCell contents to rPaste
Set rPaste = rPaste.Offset(0, 1)
Next rCell
Set rPaste = rPaste.Offset(1, -14) 'I need a line so that next time rPaste is called, it is ready at column A of the next row

出力は 1 行である必要があります: [sSkillset][sDate][rRowCell1][rRowCell2].....

ありがとうございました!

4

1 に答える 1