表格代处理利用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