Excel中的VBA常常要处理一些表与表之间的数据传递、交换等的工作,今天来介绍下如何用VBA将一个工作表中的数据塞到另外一个表的空白单元格中。
工具/原料
MicrosoftExcel2013
方法/步骤
1、Excel工作簿中有两个工作表,下图中左侧为表1,右侧为表2,将表1中B列的数据依次填充到表2中A列的空白单元格中。
2、按下Alt+F11打开VBA编辑界面,双击表2,弹出右侧代码编辑区,如下图所示。
3、输入代码:Sub鱼木混猪()Fori=1To10IfCel盟敢势袂ls(i,1)=""T茑霁酌绡henk=k+1Cells(i,1)=Sheets("鱼").Cells(k+1,2)EndIfNextEndSub如下图所示,代码通过循环和条件判断单元格是否为空,如果为空则填入表1的数据。
4、点击代码任意位置,然后点击上方的“运行子程序”按钮,如下图所示。
5、这样,表1的数据就塞到了表2的空白单元格中,如下图所示。