Excel VBA質問箱 IV

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

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


688 / 75426 ←次へ | 前へ→

【80382】ワークシートをコピーし空白行を削除したい。
質問  nonchan E-MAIL  - 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.のプロシージャの訂正、或いは何かいい方法はないでしょうか。

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

72 hits

【80382】ワークシートをコピーし空白行を削除したい。 nonchan 19/2/6(水) 17:25 質問[未読]
【80383】Re:ワークシートをコピーし空白行を削除し... マナ 19/2/6(水) 18:28 発言[未読]
【80384】Re:ワークシートをコピーし空白行を削除し... nonchan 19/2/6(水) 21:23 回答[未読]
【80386】Re:ワークシートをコピーし空白行を削除し... マナ 19/2/7(木) 19:13 発言[未読]
【80399】Re:ワークシートをコピーし空白行を削除し... nonchan 19/2/10(日) 9:20 お礼[未読]
【80401】Re:ワークシートをコピーし空白行を削除し... マナ 19/2/10(日) 9:41 発言[未読]

688 / 75426 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free