查看完整版本: excel中 用VB 写在表格中的每一行插入相同内容

excel中 用VB 写在表格中的每一行插入相同内容

求救！   如何使用  VB  在 EXCEL中插入一段代码。能够执行到   使表格中的每一行都可以插入一段相同的内容。因为我这里需要做工资表，大表有了。但是没有发到每个人手中的小表。所以就得在大表中每一行里插入   几个空行和一个标头。希望大侠能够帮我解决这个问题。  谢谢。我需要VB 的代码

在VB中引用Microsoft Excel 11.0 Object Library,其中11.0是Office的版本号,根据你机器上装的Excel版本不同而不同.

使用代码控制
下面代码是将sheet1的内容插入到第sheet2,并且每行上加一行,第一列名叫"标题",其他行为空,供你研究,不多做解释了,当你明白怎么回事,绝对可以完成你要的功能,我给的只是一个试例,请自己完成你要的代码

[color=#0000ff][color=#000000]    [/color]Dim[/color] e As New Excel[color=#0000cc].[/color]Application
    [color=#0000ff]Dim[/color] s As Excel[color=#0000cc].[/color]Worksheet
    [color=#0000ff]Dim[/color] s2 As Excel[color=#0000cc].[/color]Worksheet
    e[color=#0000cc].[/color]Workbooks[color=#0000cc].[/color]Open [color=#ff00ff]"e:\book1.xls"[/color]
    [color=#0000ff]Set[/color] s [color=#0000cc]=[/color] e[color=#0000cc].[/color]Sheets[color=#0000cc]([/color]1[color=#0000cc])[/color]
    [color=#0000ff]Set[/color] s2 [color=#0000cc]=[/color] e[color=#0000cc].[/color]Sheets[color=#0000cc]([/color]2[color=#0000cc])[/color]
    [color=#0000ff]For[/color] i [color=#0000cc]=[/color] 1 [color=#0000ff]To[/color] s[color=#0000cc].[/color]Rows[color=#0000cc].[/color]Count
        [color=#0000ff]If[/color] s[color=#0000cc].[/color]Rows[color=#0000cc]([/color]i[color=#0000cc])[/color][color=#0000cc].[/color]Cells[color=#0000cc]([/color]1[color=#0000cc])[/color] [color=#0000cc]<[/color][color=#0000cc]>[/color] [color=#ff00ff]""[/color] [color=#0000ff]Then[/color]
            [color=#0000ff]For[/color] j [color=#0000cc]=[/color] 1 [color=#0000ff]To[/color] s[color=#0000cc].[/color]Rows[color=#0000cc]([/color]i[color=#0000cc])[/color][color=#0000cc].[/color]Cells[color=#0000cc].[/color]Count
                [color=#0000ff]If[/color] s[color=#0000cc].[/color]Rows[color=#0000cc]([/color]i[color=#0000cc])[/color][color=#0000cc].[/color]Cells[color=#0000cc]([/color]j[color=#0000cc])[/color] [color=#0000cc]=[/color] [color=#ff00ff]""[/color] [color=#0000ff]Then[/color]
                    [color=#0000ff]Exit[/color] [color=#0000ff]For[/color]
                [color=#0000ff]Else[/color]
                    s2[color=#0000cc].[/color]Rows[color=#0000cc]([/color]i [color=#0000cc]*[/color] 2 [color=#0000cc]-[/color] 1[color=#0000cc])[/color][color=#0000cc].[/color]Cells[color=#0000cc]([/color]1[color=#0000cc])[/color] [color=#0000cc]=[/color] [color=#ff00ff]"标题"[/color]
                    s2[color=#0000cc].[/color]Rows[color=#0000cc]([/color]i [color=#0000cc]*[/color] 2[color=#0000cc])[/color][color=#0000cc].[/color]Cells[color=#0000cc]([/color]j[color=#0000cc])[/color] [color=#0000cc]=[/color] s[color=#0000cc].[/color]Rows[color=#0000cc]([/color]i[color=#0000cc])[/color][color=#0000cc].[/color]Cells[color=#0000cc]([/color]j[color=#0000cc])[/color]
                [color=#0000ff]End[/color] [color=#0000ff]If[/color]
            [color=#0000ff]Next[/color]
        [color=#0000ff]Else[/color]
            [color=#0000ff]Exit[/color] [color=#0000ff]For[/color]
        [color=#0000ff]End[/color] [color=#0000ff]If[/color]
    [color=#0000ff]Next[/color] i
    e[color=#0000cc].[/color]SaveWorkspace
    e[color=#0000cc].[/color]Workbooks[color=#0000cc].[/color]Close