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
