|
ごめん、★印の行は確認用に入れたコードで
本来、必要ありませんので、削除して下さい
> With rngList
> '削除行が有るなら
> If lngCount > 0 Then
> 'FlagをL列に出力
> .Offset(, clngColumns).Resize(lngRows) = lngDelete
> '空白行を最終行に集める為、L列をKeyとして整列
> .Resize(lngRows, clngColumns + 1).Sort _
> Key1:=.Offset(, clngColumns), Order1:=xlAscending, _
> Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
> Orientation:=xlTopToBottom, SortMethod:=xlStroke
> '削除行を削除
'★削除 .Offset(lngRows - lngCount).Resize(lngCount).EntireRow.Select
> .Offset(lngRows - lngCount).Resize(lngCount).EntireRow.Delete
> '削除Flag列を削除
> strProm = lngCount & "件の削除処理が完了しました"
> Else
> strProm = "削除行は有りません"
> End If
> End With
|
|