Excel VBA質問箱 IV

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

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


46695 / 76732 ←次へ | 前へ→

【35005】Re:末尾のセルが「0」の行を自動的に削除...
発言  ponpon  - 06/2/18(土) 1:46 -

引用なし
パスワード
   こんばんは。
すでに解決済みですが・・・
勉強のために作ってみました。

>これ以外に、空白処理をしてから並べ替える、とか
>0かどうかを作業列にフラグを立てて、一括して削除する

G列が0かどうかで判断しています。

Sub test() 'フラグを立てて一括削除 作業列AG列
  Dim myR As Range
  
  Set myR = Range("G1", Range("G65536").End(xlUp)).Offset(, 26)
    With myR
       .Value = "=IF(G1=0,1,"""")"
       .SpecialCells(3, 1).EntireRow.Delete
       .ClearContents
    End With
End Sub

’=========================================================

Sub test1() 'クリアして並べ替え
  Dim myR As Range
  Dim r As Range
 
  Set myR = Range("A1", Range("A65536").End(xlUp))
  Range("A:A").Insert
  myR.Offset(, -1).Value = "=row()"
  For Each r In myR.Offset(, 6)
   If r.Value = 0 Then
     r.EntireRow.ClearContents
   End If
  Next
  With Columns(1)
   .Resize(, 8).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal
   .Delete
  End With
End Sub

6 hits

【34989】末尾のセルが「0」の行を自動的に削除するマクロを作る方法ってありますか? miku02 06/2/17(金) 17:58 質問
【34998】Re:末尾のセルが「0」の行を自動的に削除す... じゅん 06/2/17(金) 20:11 回答
【35003】じゅんさん、ありがとうございます miku02 06/2/17(金) 21:23 お礼
【35001】Re:末尾のセルが「0」の行を自動的に削除す... かみちゃん 06/2/17(金) 20:33 発言
【35002】かみちゃん、ありがとうございます miku02 06/2/17(金) 21:18 お礼
【35053】Re:末尾のセルが「0」の行を自動的に削除す... じゅん 06/2/20(月) 13:25 発言
【35005】Re:末尾のセルが「0」の行を自動的に削除... ponpon 06/2/18(土) 1:46 発言
【35014】Re:末尾のセルが「0」の行を自動的に削除... Kein 06/2/18(土) 13:32 発言
【35019】Re:末尾のセルが「0」の行を自動的に削除... ponpon 06/2/18(土) 21:11 発言

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