Excel中VBA操作数据表

Sub ins_line_01() '插入空行

x = InputBox("插入多少个空行？")

For i = 1 To x

Cells(i * 2 , 1).Select

Selection.EntireRow.Insert

Next i

End Sub

Sub del_line() '删除空行

x = InputBox("删除多少个空行？")

For i = 1 To x

Cells(i + 1, 1).Select

Selection.EntireRow.Delete

Next i

End Sub

Sub Copydata_03() ' Copydata Macro 偶数行

x = InputBox("填入多少行?")

For i = 1 To x

If i Mod 2 <> 0 Then

Cells(i, 4).Select

Selection.Copy

Cells(i + 1, 3).Select

ActiveSheet.Paste

End If

Next i

End Sub

Sub value_input_02() ' 复制数据到指定单元格

x = InputBox("总共有多少行数据？")

For i = 1 To x

ThisWorkbook.Worksheets("sheet3").Cells(i * 2, 1) = "'2"

ThisWorkbook.Worksheets("sheet3").Cells(i * 2, 2) = "L"

Next i

End Sub

按Alt+F11，出现VB界面，插入一个模块，将下列代码粘贴，关闭VB界面，回到工作表按Alt+F8，执行相应的宏就行了。

sheet1.cells(2,1).value="祝你快乐!"，也可以：Worksheets("sheet1").Range("B1").value="祝你快乐!"，其中sheet是你所在的表格，sheet1是第一张表