简单的Excel VBA代码实例来啦

在Excel里，要是你想让工作效率起飞，VBA代码绝对是好帮手。下面我给你分享几个简单又实用的Excel VBA代码例子：

向特定单元格输入数据

如果想在点击按钮后，往单元格A1里输入数字123，代码可以这么写：

Vba
复制
Sub InputDataToA1()    Range("A1") = 123 End Sub 

这里的Range("A1")就是表示A1这个单元格，把123赋值给它，就完成输入啦。

填充单元格

假设有这么个情况，Excel文档的第一列数据不全，没办法对整体数据进行筛选。咱们可以用下面的代码来填充第一列。

Vba
复制
SubFillColumn()DimiAsIntegerFori=2To28If(Sheet1.Cells(i,1)="")ThenSheet1.Cells(i,1)=Sheet1.Cells(i-1,1)EndIfNextEndSub

这段代码里，Dim i As Integer是声明一个整数变量i。For i = 2 To 28表示i会从2递增到28，If (Sheet1.Cells(i, 1) = "")是判断Sheet1工作表中第i行第1列是不是空的，如果是空的，就把它上一行（i - 1行）第1列的值赋给它。

删除某行数据

要是想通过Excel VBA删除某行数据，代码如下：

Vba
复制
Sub DeleteRow()     Rows(5).Delete '这里删除的是第5行，你可以按需修改行号 EndSub

Plaintext

复制

Rows(5).Delete