标题: [VBA] excel中 用VB 写在表格中的每一行插入相同内容 [打印本页]

---

作者: 雪球    时间: 2008-8-12 21:18     标题: excel中 用VB 写在表格中的每一行插入相同内容

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

---

作者: Nothing    时间: 2008-8-13 00:17

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

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

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

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0