よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13456 / 7階層)  質問 複数シート内データコピー
□投稿者/ よねさん -(2020/06/25(Thu) 07:44:05)
    行の削除は最終行から上に向かって実行します。
    ↓のコードでは、ワークシート関数のCOUNTAで空白を判定しています。
    
    Sub 空白行の削除()
      Dim lRow As Long
      Dim i As Long
        lRow = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row 
        For i = lRow To 6 Step -1
            If WorksheetFunction.COUNTA(Rows(i)) = 0 Then
                Rows(i).Delete
            End If
        Next i
    End Sub
    

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[6]: 質問 複数シート内データコピー /yunao Mail →Re[8]: 質問 複数シート内データコピー /yunao Mail
 
上記関連ツリー

Nomal 質問 複数シート内データコピー / yunao Mail (20/06/20(Sat) 18:56) #13449
Nomal Re[1]: 質問 複数シート内データコピー / よねさん (20/06/22(Mon) 16:37) #13450
  └Nomal Re[2]: 質問 複数シート内データコピー / yunao Mail (20/06/22(Mon) 21:28) #13451
    └Nomal Re[3]: 質問 複数シート内データコピー / よねさん (20/06/23(Tue) 08:53) #13452
      └Nomal Re[4]: 質問 複数シート内データコピー / yunao Mail (20/06/23(Tue) 21:54) #13453
        └Nomal Re[5]: 質問 複数シート内データコピー / よねさん (20/06/24(Wed) 08:07) #13454
          └Nomal Re[6]: 質問 複数シート内データコピー / yunao Mail (20/06/24(Wed) 20:16) #13455
            └Nomal 質問 複数シート内データコピー / よねさん (20/06/25(Thu) 07:44) #13456 ←Now
              └Nomal Re[8]: 質問 複数シート内データコピー / yunao Mail (20/06/26(Fri) 19:40) #13457

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -