表格代处理利用vba空白单元格批量录入数据

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 i
End Sub