| |
こんな風な形にしてみてください。
ただし、noneの行が１シート3000行以上になるなら使うのはやめてください。
数が多くなるにつれて極端に遅くなってくるから。
Dim Sh As Variant, Rng As Range
For Each Sh In Array("Sheet1", "Sheet2", "Sheet3")
With Sheets(Sh)
For rw = 4 To .Range("A1000").End(xlUp).Row
If .Range("A" & rw).Value = "none" Then
If Rng Is Nothing Then
Set Rng = .Rows(rw)
Else
Set Rng = Application.Union(Rng, .Rows(rw))
End If
End If
Next
End With
If Not Rng Is Nothing Then
Rng.EntireRow.Hidden = True
End If
Set Rng = Nothing
Next
もたもた削除して修正していたら、終わってた....。
ま、いっか。
|
|
Jaka
- 12/1/12(木) 17:14 -
