求助vba大神

最新推荐文章于 2022-03-15 15:59:15 发布

weixin_46739298

最新推荐文章于 2022-03-15 15:59:15 发布

阅读量229

点赞数

分类专栏：笔记

本文链接：https://blog.csdn.net/weixin_46739298/article/details/105315265

版权

本文是一个关于VBA编程的问题，作者希望保留数据的前五行，并按特定列拆分数据到多个新的工作簿中。提供的代码中，用户请求帮助检查错误，并给出了尝试实现此功能的代码段。

摘要由CSDN通过智能技术生成

大神们，我是想写保留前5行，按列拆分数据为若干新工作簿，但是代码一直错了，可以帮忙看一下吗？

Sub 保留表头拆分数据为若干新工作簿()
Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
c = Application.InputBox(“请输入拆分列号”, , 6, , , , , 1)
If c = 0 Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
arr = [a1].CurrentRegion
lc = UBound(arr, 2)
Set rng = [a1].Resize(5, lc)
Set d = CreateObject(“scripting.dictionary”)
For i = 2 To UBound(arr)
      If Not d.Exists(arr(i, c)) Then
         Set d(arr(i, c)) = Cells(i, 1).Resize(5, lc)
      Else
         Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
      End If
Next
k = d.Keys
t = d.Items
For i = 0 To d.Count - 1
      With Workbooks.Add(xlWBATWorksheet)