通过VBA设置excel的最后一行的第n列单元格的值

1、本地打开Excel软件

2、点击文件菜单，打开选项

3、在选项里，选择【自定义功能区】，勾选【开发工具】，点击确认

4、点击功能区上的【开发皤材装肢工具】点击【宏】，如果没有宏则输入宏名兵点击【创建】按钮，如果已有宏，选定宏名，然后点击【编辑】也可以

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宏代码编辑完毕，点击运行

6、查看效果：