摘要:
'半夜里匆忙写成,第一次用VBA,只是实现功能,未做性能优化,有时间要重写一下。Sub Fighting()Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim Cell As Range, FirstAddress As StringDim temp As LongDim c As LongDim tempValue As LongDim d As LongDim str As StringDim RowCount As LongDim tempRow As LongDim tempStr As 阅读全文
posted @ 2012-09-11 09:26
soeyong
阅读(252)
评论(0)
推荐(0)