EXCEL宏过程解释

来源：百度知道 编辑：UC知道 时间：2024/05/29 10:45:53
Private Sub CmdSave_Click()
Dim a As Integer, b As Byte

a = Sheets("流水账").[a60000].End(xlUp).Row
For b = 1 To 12
Sheets("流水账").Cells(a + 1, b).Value = Cells(b + 1, 2).Value
'Cells(b + 1, 2).Value = ""
Next
Cells(3, 2).Value = ""
Cells(8, 2).Value = ""
Cells(9, 2).Value = ""
Cells(12, 2).Value = ""
Cells(13, 2).Value = ""
End Sub

如对本人起到启示作用,本人将加分到最大限度

我逐段解释，希望你看得懂
a = Sheets("流水账").[a60000].End(xlUp).Row //获取“流水账"表数据的最后一行，我假设是T行
For b = 1 To 12
Sheets("流水账").Cells(a + 1, b).Value = Cells(b + 1, 2).Value
'Cells(b + 1, 2).Value = "" //这个注释掉了不起作用
Next

//以上循环12次，将表单元格2B至13B的值在"流水账"T+1行（即新开一行至数据尾）的第1列至第12列

Cells(3, 2).Value = "" //写3B的值为空
Cells(8, 2).Value = "" //写8B的值为空
Cells(9, 2).Value = "" //写9B的值为空
Cells(12, 2).Value = "" //写12B的值为空
Cells(13, 2).Value = "" //写13B的值为空
End Sub

大概就是将列数据改写到行数据里，比较简单

直接用滑鼠框选即可
http://martingm.blog.163.com/blog/static/316719452007517966202/