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
Excell 写的一个宏代码
最新推荐文章于 2024-04-18 10:33:52 发布