1、本地打开Excel软件
3、在选项里，选择【自定义功能区】，勾选【开发工具】，点击确认
5、编辑宏代码：如实现当前工作表里在最后一行的第一、二列添加内容代码：Sub f(拘七呷憎)n = ActiveSheet.UsedRange.Rows.CountRow = ActiveSh髫潋啜缅eet.UsedRange.Rows(n).RowActiveSheet.Cells(Row + 1, 1).Value = "cells(row,1)"ActiveSheet.Cells(Row + 1, 2).Value = "cells(row,2)"MsgBox nEnd Sub多个 工作表，如何实现每个工作表的最后一行 的第一二列设置对应值:Sub f()shcount = Worksheets.CountMsgBox shcountFor i = 1 To shcountWorksheets.Item(i).Selectn = ActiveSheet.UsedRange.Rows.CountRow = ActiveSheet.UsedRange.Rows(n).RowMsgBox nActiveSheet.Cells(Row + 1, 1).Value = "cells(row,1)"ActiveSheet.Cells(Row + 1, 2).Value = "cells(row,2)"NextEnd Sub宏代码编辑完毕，点击运行
