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

1、本地打开Excel软件

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

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

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

5、编辑宏代码：

如实现当前工作表里在最后一行的第一、二列添加内容

代码：

Sub f()

n = ActiveSheet.UsedRange.Rows.Count

Row = ActiveSheet.UsedRange.Rows(n).Row

ActiveSheet.Cells(Row + 1, 1).Value = "cells(row,1)"

ActiveSheet.Cells(Row + 1, 2).Value = "cells(row,2)"

MsgBox n

End Sub

多个 工作表，如何实现每个工作表的最后一行 的第一二列设置对应值:

Sub f()

shcount = Worksheets.Count

MsgBox shcount

For i = 1 To shcount

Worksheets.Item(i).Select

n = ActiveSheet.UsedRange.Rows.Count

Row = ActiveSheet.UsedRange.Rows(n).Row

MsgBox n

ActiveSheet.Cells(Row + 1, 1).Value = "cells(row,1)"

ActiveSheet.Cells(Row + 1, 2).Value = "cells(row,2)"

Next

End Sub

宏代码编辑完毕，点击运行

6、查看效果：