- 798 名前：デフォルトの名無しさん [2010/03/22(月) 08:45:10 ]
- 初歩的な質問ですけど、教えてください
'対象行をdataシートへコピーする
Sub ColumCopy(ByVal cnt As Integer)
Dim k As Integer
Worksheets("data").Activate
k = 0
Do
k = k + 1
Loop Until Cells(k, 1) = ""
Worksheets("Page1").Range(Cells(cnt, 1), Cells(cnt, 8)).Copy _
Destination:=Worksheets("data").Range(Cells(k, 1), Cells(k, 8))
Worksheets("Page1").Activate
End Sub
というのを作ったんです（cntには51という値が、kには1という値が入っています）が、
実行時エラー
アプリケーション定義またはオブジェクト定義のエラーです
でWorksheets("Page1").〜の部分で終了してしまってます
どの様に直せばよろしいのでせうか？
|
 |
