学步园

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