匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

VBAで元コードの実行は何のエラーもありませんが、

同条件の再利用コードの実行はエラーがでます。

概要は
ピボットででた結果をVBAを使って別シートに貼り替える、
その際ピボット見出しが"(空白)"となっていたらその行を削除する
というものです。

エラー内容は
「ピボットテーブルのレポートの一部を移動したり~できません」ステップインで確認
「Rangeクラスのselectメソッドが失敗しました」ステップインで確認(selectに変えて実験)
「実行時エラー1004 アプリケーション定義エラー、オブジェクト定義エラー」 最終的なエラー


Sub 元コード()
sh.Cells.Clear
Worksheets("やさい").Cells.Copy
sh.Range("A1").PasteSpecial Paste:=xlPasteValues
Maxrow = sh.Cells(Rows.Count, 1).End(xlUp).Row
MaxCol = sh.Cells(2, Columns.Count).End(xlToLeft).Column
For i = 3 To Maxrow
If sh.Cells(i, 1) = "(空白)" Then
Rows(i).Delete
End If
Next i

Sub 元コードの再利用()
sh.Cells.Clear
Worksheets("くだもの").Cells.Copy
sh.Range("A1").PasteSpecial Paste:=xlPasteValues
Maxrow = sh.Cells(Rows.Count, 1).End(xlUp).Row 
MaxCol = sh.Cells(2, Columns.Count).End(xlToLeft).Column
For i = 3 To Maxrow
If sh.Cells(i, 1) = "(空白)" Then
Rows(i).Delete
End If
Next i

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/02/28 14:24:50
  • 終了:2013/03/07 14:25:04

回答(1件)

匿名回答1号 No.1

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら
2013/02/28 15:41:19

sh にワークシートオブジェクトをセットしてないのではないですか?
sh. の部分を Worksheets("結果を書き出したいシートの名前"). にしてみると動くのではないですか?

他1件のコメントを見る
匿名質問者

shについては上記では文字数の関係で記載を省略していますが、
ワークシートオブジェクトをセットしており、
元コードはそれで実際に動いており、
同じ内容を転用した再利用コードがエラーになるという質問です。
お手数ですが何かわかればお願いします。

質問者はリンクの質問者です。
上記

2013/02/28 16:39:18
匿名回答1号

>文字数の関係で記載を省略

勝手に省略されると超能力か偶然でもないと無理だと思う。
質問者からの追記とかコメント欄だと長いコードでも書けるので使ってみるといいです。
答えが見つかりそうなら続けて回答するけどわからなかったら何も書きませんってか書けませんので悪く思わないでください。

2013/02/28 17:07:25

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません