介绍如何通过VBA实现设置excel工作表的最后一行的第n列单元格的值 n为1 2 3 ...品牌型号：Microsoft Excel （2019）系统版本：win10方法/步骤1/6分步阅读

本地打开Excel软件

2/6

点击文件菜单，打开选项

3/6

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

4/6

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

5/6

编辑宏代码：

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

代码：

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/6

查看效果：

注意事项

以上方式如果当前工作表没有内容，代码执行结果会出现第一行空白，从第二行下开始填充的情况

如果是合并的单元格不能通过cells方式 获取到与设置单元格内容