从代码上分析，应该第一段代码从 DIM R& ...End Select（就是去掉第一行和最后两行），把这一段放到第二段的 Next m 之后、Err: 之前就可以了。楼主试试呢，当然这样第一段中的这一行 Application.EnableEvents = False 就可以去掉了。GoodLuck!
请问高手Excel表格中如何把这二段代码合在一起
从代码上分析，应该第一段代码从 DIM R& ......End Select（就是去掉第一行和最后两行），把这一段放到第二段的 Next m 之后、Err: 之前就可以了。
楼主试试呢，当然这样第一段中的这一行 Application.EnableEvents = False 就可以去掉了。
GoodLuck!2011-05-22
