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是第一张表