Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1996 / 76734

←次へ　｜　前へ→


	【80382】ワークシートをコピーし空白行を削除したい。

nonchan

- 19/2/6(水) 17:25 -


	引用なし

	パスワード

初めて質問します。VBA初心者です。

【やりたい事】
ワークシート「ﾃﾝﾌﾟﾚｰﾄ」をコピーし、「WBSﾘｽﾄ」にある名前をワークシート名に
して、空白行を削除した後、「WBSﾘｽﾄ」にある全部の名前のワークシートを作成
する。

【やってみた事】
1.ワークシート「ﾃﾝﾌﾟﾚｰﾄ」をコピーし、「WBSﾘｽﾄ」にある名前をワークシート名に
　して、「WBSﾘｽﾄ」にある全部の名前のワークシートを作成する。
　　　　　↓
Sub 経費予算資料作成()
　　Application.ScreenUpdating = False
　　
　　Dim i As Long
　　For i = 2 To Sheets("WBSﾘｽﾄ").Cells(Rows.Count, "A").End(xlUp).Row
　　　　Sheets("ﾃﾝﾌﾟﾚｰﾄ").Copy after:=Sheets(Sheets.Count)
　　　　ActiveSheet.Name = Sheets("WBSﾘｽﾄ").Cells(i, "A")
　　　　Range("A1") = Sheets("WBSﾘｽﾄ").Cells(i, "A")
　　Next i

End Sub
　　　　　↓
これは上手くいきました。

2.アクティブなワークシートの空白行を削除する。
　　　　　↓
Sub test空白行を削除する()
　　Application.ScreenUpdating = False
　　
　　Dim j As Long
　　For j = 630 To 2 Step -1
　　　　If Range("R" & j).Value = "空白行" Then
　　　　　　Rows(j).Select
　　　　　　Selection.Delete shift:=xlUp
　　　　End If
　　Next j
End Sub
　　　　　↓
これも上手くいきました。

3.　1.+2.ワークシートを作成したら、空白行を削除して
　次のワークシートを作成する。
　　　　　↓
Sub test経費予算資料作成空白行削除()
　　Application.ScreenUpdating = False
　　
　　Dim i As Long
　　For i = 2 To Sheets("WBSﾘｽﾄ").Cells(Rows.Count, "A").End(xlUp).Row
　　　　Sheets("ﾃﾝﾌﾟﾚｰﾄ").Copy after:=Sheets(Sheets.Count)
　　　　ActiveSheet.Name = Sheets("WBSﾘｽﾄ").Cells(i, "A")
　　　　Range("A1") = Sheets("WBSﾘｽﾄ").Cells(i, "A")
　　　　
　　　　　　Dim j As Long
　　　　　　For j = 630 To 2 Step -1
　　　　　　　　　If Range("R" & j).Value = "空白行" Then
　　　　　　　　　　 Rows(j).Select
　　　　　　　　　　Selection.Delete shift:=xlUp
　　　　　　End If
　　　　Next j
　　　
　　Next i
End Sub
　　　　↓
失敗しました！！

1.と2.を合体させることができません。
3.のプロシージャの訂正、或いは何かいい方法はないでしょうか。

よろしくお願いいたします。
以上　

4 hits

▼

【80382】ワークシートをコピーし空白行を削除したい。 nonchan 19/2/6(水) 17:25