第一个：
Sub a()
For i = 1 To 82
Sheets(83).Range("A" & i + 1).Value = Sheets(i).Range("B2").Value
Sheets(83).Range("B" & i + 1).Value = Sheets(i).Range("B3").Value
Sheets(i).Range("527:530").Delete
Sheets(i).Range("1:3").Delete
Next
End Sub


第二个：
Sub a()
For i = 1 To 89
Sheets(90).Range("A" & i + 1).Value = Sheets(i).Range("B2").Value
Sheets(90).Range("B" & i + 1).Value = Sheets(i).Range("B3").Value
Sheets(i).Range("527:530").Delete
Sheets(i).Range("1:3").Delete
Next
End Sub

试试这个，呵呵

不知是怎么回事呀，我解压打开之后是个空表呀。。

操作2：将每个工作簿中的前三行，和 527-530行 删掉
--因为格式相同，所以只要按住shift一次性的选中所有的工作表然后选删除就ok了。能不写宏的就不写宏，呵呵。

操作1：只要下载一个超级加载宏的软件进行操作就ok了（数据处理中的拆分工作簿选项）。我给你拆了一个工作簿做示范。抓了一个图，太大了，传不上来。
http://ishare.esnai.com/view/46151.aspx
或者直接用这个也可以

2# controlpanel

拆好了，抓图给你看一下。因为我的电脑其他东西装的比较多，又是2003版本的excel，所以运行的比较慢。你装了超级加载宏以后应该比这个快些，呵呵。