| |
▼ゆかわ さん：
>フィルタにして、見出し以外のデータの範囲の可視データのみ削除という
>ようにしたら成功しました！
>すごく速くなって満足です。
解決されたようでなによりです。
削除行をソートして下方に集め、一括削除する例です。
参考までに
'▼Sort法により J列が0の行を削除
Sub Try2()
Dim R As Range
Dim mx As Long, i As Long
Dim v As Variant, t As Variant
Set R = Range("A1").CurrentRegion
mx = R.Columns.Count
v = R.Columns("J").Value
ReDim t(1 To UBound(v), 1 To 1)
'If Len(v(1, 1)) = 0 Then v(1, 1) = "Dmmy"
t(1, 1) = "wk"
For i = 2 To UBound(v)
v(i, 1) = Val(v(i, 1))
If v(i, 1) <> 0 Then t(i, 1) = 1
Next
With R.Columns("J")
.ClearContents
.NumberFormat = "#,##0"
.Value = v
End With
'--------- 作業列で Sortして0の行を下方に集め,まとめて行削除
With R.Columns(mx + 1)
.Value = t
R.Resize(, mx + 1).Sort _
Key1:=R.Columns(mx + 1), Header:=xlYes
.SpecialCells(xlBlanks).EntireRow.Clear
.Clear
End With
End Sub
|
|
kanabun
- 11/3/31(木) 17:01 -
