[已解决]按某一列内容拆成多个文件

Sub nnn()
Dim rg As Range
Dim bk As Workbook
    row1 = 2
    nm = Cells(2, 1)
    For i = 2 To [a1].End(xlDown).Row + 1
        nm1 = Cells(i, 1)
        If nm1 <> nm Then
            Set rg = Range(Cells(row1, 1), Cells(i - 1, 4))
            Set bk = Workbooks.Add
            rg.Copy bk.Sheets(1).[a1]
            bk.SaveAs "c:\" & nm
            bk.Close True
            nm = nm1
            row1 = i
        End If
    Next
End Sub

用上面段拆 已经拆成功 但是我想在拆后文件的第一行保留原表的第一行 要加什么？求解答谢谢大神。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-6 11:12

http://www.excelpx.com/thread-297695-1-1.html
试试看

跳转到最佳答案楼层

爱疯

http://www.excelpx.com/thread-297695-1-1.html
试试看

爱疯 发表于 2015-1-6 11:12
http://www.excelpx.com/thread-297695-1-1.html
试试看

30000行左右的数据估计不行
而且我加载项里木有这个

爱疯

你传一个30行的附件。我试试看

爱疯 发表于 2015-1-6 11:20
你传一个30行的附件。我试试看

谢谢

爱疯

换成你的原始数据，照这样操作，先试试看

64位WIN7可以用吗  提示无法装载这个对象。

爱疯

QQ_9C7998 发表于 2015-1-6 12:03
64位WIN7可以用吗  提示无法装载这个对象。

可以。
发张出错时的截图看看？

爱疯 发表于 2015-1-6 12:41
可以。
发张出错时的截图看看？

装了个64位的2010弄好了

爱疯

QQ_9C7998 发表于 2015-1-6 13:50
装了个64位的2010弄好了

我另找的电脑是 64win7+32office2010，测试时没发现异常。