各シートそれぞれ力技でループしていて随分時間がかかるなってときがある。特定の列が空白になるまでとか、Endなど特定の単語がでてくるまでとか、ループの判定の作り方は色々あるのだけれど、UsedRangeを安易に使って悪さしていることがあった。
シートを毎回VBAで作り直す処理なら問題ないけど、固定シートに入力してもらう場合CurrentRegionやUsedRangeは注意が必要ということ。
1 2 3 4 5 6 7 |
Sub test() For Each w In Sheets Debug.Print w.Name, w.UsedRange.Rows.Count Next End Sub |