|
こんばんは。
すでに解決済みですが・・・
勉強のために作ってみました。
>これ以外に、空白処理をしてから並べ替える、とか
>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
|
|