今天跟大家分享一下如何使用vba批量在空白单元格录入数据
工具/原料
Excel
方法/步骤
1、如下图是某年级成绩表,我们现在想要在A列空白的单元格批量录入数据。
2、选中A列单元格区域
3、同时按下Alt+F11,然后点击sheet1,接在在右边空白区域录入vba代码。
4、然后按下F5,运行代码
5、接着在弹出对话框内录入“二班”,接着点击【确定】即可完成
6、完成效果如下图。下面把vb瞢铍库祢a代码跟大家分享一下,需要的朋友们可以复制粘贴使用,如果需要表格代处理,可溅局柑氍以百度方方格子Sub空白单元格填充固定内容()DimstrDimrAsRangeDimcols,rowsDimi,jstr=Application.InputBox("请输入文本内容:","输入文本内容")Ifstr=FalseThenExitSubIfSelection.Cells.Count<1ThenMsgBox"请选中一块区域!"ExitSubEndIfIfSelection.Areas.Count>1ThenExitSubrows=Selection.Cells.rows.Countcols=Selection.Cells.Columns.CountFori=1TorowsForj=1TocolsSetr=Selection.Cells(i,j)Ifr.Value=""Thenr=strEndIfNextjNextiEndSub