1、如下图是某年级成绩表，我们现在想要在A列空白的单元格批量录入数据。
2、选中A列单元格区域
3、同时按下Alt+F11，然后点击sheet1，接在在右边空白区域录入vba代码。
4、然后按下F5，运行代码
5、接着在弹出对话框内录入“二班”，接着点击【确定】即可完成
6、完成效果如下图。下面把vba代码跟大家分享一下，需要的朋友们可以复制粘贴使用，如果需要表格代处理，可溅局柑氍以百度方方格子Sub 空白单元格填充固定内容() Dim str Dim r As Range Dim cols, rows Dim i, j str = Application.InputBox("请输入文本内容:", "输入文本内容") If str = False Then Exit Sub If Selection.Cells.Count < 1 Then MsgBox "请选中一块区域！" Exit Sub End If If Selection.Areas.Count > 1 Then Exit Sub rows = Selection.Cells.rows.Count cols = Selection.Cells.Columns.Count For i = 1 To rows For j = 1 To cols Set r = Selection.Cells(i, j) If r.Value = "" Then r = str End If Next j Next iEnd Sub
