长文本在Excel中加工VB脚本

Sub ins_line() '1插入空行,行数等于原本数据行数
    x = InputBox("插入多少个空行？")
    For i = 1 To x
        Cells(i * 2, 1).Select
        Selection.EntireRow.Insert
    Next i
End Sub

Sub Copydata() ' 2Copydata 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() ' 3添加数据到偶行,行数等于原本行数
    x = InputBox("总共有多少行数据？")
    For i = 1 To x
       ThisWorkbook.Worksheets("MMTXT").Cells(i * 2, 1) = "'2"
       ThisWorkbook.Worksheets("MMTXT").Cells(i * 2, 2) = "L"
    Next i
End Sub

 

例如下图：

转载于:https://www.cnblogs.com/huggins/archive/2009/12/04/1616769.html