UsedRange是Sheet的一个属性，因此要指定一个对象。如ActiveSheet.UsedRange或 worksheets(sheet名).UsedRange
For Each rag In ActiveSheet.UsedRange
