knifewei的专栏

Private Sub Worksheet_Change(ByVal Target As Range)Dim i As IntegerDim tempStr As StringDim firstDrawBoxRowCount As IntegerDim firstDrawBoxColumn As IntegerfirstDrawBoxRowCount = 15   --三级联动第一级的单元

在一个excel文件中有100个sheet页，每个sheet页的格式固定，每个sheet页有30列字段，上万行的数据，如何把这个excel文件中的数据按需要的字段整理成一个sheet业中，如果手工作业的话是很烦人的，所以弄了个代码帮忙，十几秒搞定！！！ Sub readfield()Dim she As WorksheetApplication.ScreenUpdating = False