工作表拆分

200240

求助：搜索了很多拆分，都是关于固定行拆分和根据筛选拆分的

跟我这个还有些不一样。我需要的是根据两个固定的标识进行拆分
。
附件A列有“外协外购件入库明细及汇总”和“货物合计:XXXXXXXXX”。这是重复出现的

数据量有几万条（3-5万条），这两个标识之间的行数是不定的。我想把每一次出现的

“外协外购件入库明细及汇总”和“货物合计:XXXXXXXXX”及他们之间的数据行都另存为一个工作薄。

存放路径就在本文件的同目录下。

附件是模拟的数据。请大神帮忙给个代码，谢谢！

abc123281

建议上传真实一些的附件和想要实现的效果做成样表

cjc209

这种格式在一张表内吗？

chis3

你的附件什麼都沒有,怎幫你

cjc209

参照这种模式 自己修改就可以了 你的表哥太简单了 给你一个思路
Sub test()
Dim arr()
For Each Rng In [a4:a60]
If Rng.Offset(-1) = "外协外购件入库明细及汇总" Then
k = k + 1
n = n + 1
ReDim Preserve arr(1 To n)
  arr(n) = Rng.Value
ElseIf Rng Like "*货物合计:*" Then k = 0
ElseIf k > 0 Then
  n = n + 1
ReDim Preserve arr(1 To n)
  arr(n) = Rng.Value

End If
Next Rng
End Sub

cjc209

其实也简单 就是你的附件太简单了 你可以取一小部分实际的就好搞了

cjc209

连你自己都难得搞 谁人能帮到你？是不是这个理啊？

200240

本身信息沟通就存在一定障碍，我也是尽量想让大家知道我的真实想法。
我的目的是要由一个工作表拆分成很多个工作簿。拆分的依据就是
由开始标识“外协外购件入库明细及汇总”这一行开始，结束标识就是“货物合计:XXXXXXXXX”这一行结束
这两个标识是反复出现的，把每一次出现的标识行及之间的行都生成一个新的工作簿
附件虽然没有把附件的数据做太多，一是因为这两个标识行之间的数据不影响本问题，二是我已经给出了标识行。就我来看，已经讲清楚了。所以如果不清楚的请告诉我哪里有误解？