Excell 写的一个宏代码

Sub Macro2() ' ' Macro2 Macro ' 宏由 微软用户 录制，时间: 2008-6-2 ' '6列是金额        n1 = 2     For rshtindex = 2 To 31     nsheetrw = 4     Do While Not IsEmpty(Worksheets(rshtindex).Cells(nsheetrw, 6).Value)         If (Not IsEmpty(Worksheets(rshtindex).Cells(nsheetrw, 1).Value)) Or (nsheetrw > 1000) Then             Worksheets(1).Cells(n1, 1).Value = rshtindex - 1             Worksheets(1).Cells(n1, 2).Value = Worksheets(rshtindex).Cells(nsheetrw, 1).Value             Worksheets(1).Cells(n1, 3).Value = Worksheets(rshtindex).Cells(nsheetrw, 6).Value             Worksheets(1).Cells(n1, 4).Value = Worksheets(rshtindex).Cells(nsheetrw, 8).Value             n1 = n1 + 1         End If     nsheetrw = nsheetrw + 1     Loop     Next rshtindex End Sub