[已解决]请教，如何一次生成多个工作簿?

chusheng168 · 发表于 2010-10-21 10:59

如图所示，A列的数据是每四个为一组，A列的数据多少不一定。我想把每个区域的数据复制到新的工作簿，工作簿的名称为每个区域第一个单元格的值（绿色所示），可以用 VBA 批量生成吗？

请教大家如何实现。

请教，如何一次生成多个工作簿?

[此贴子已经被作者于2010-10-21 11:15:16编辑过]

最佳答案

月排行榜 / 总排行榜

wayy

2010-10-21 16:58

QUOTE:

以下是引用chusheng168在2010-10-21 11:16:00的发言：
请教大家如何实现：）

PjeoTG4m.rar (10.8 KB, 下载次数: 58)

wayy · 发表于 2010-10-21 11:03

当然可以啦

月影小筑 · 发表于 2010-10-21 11:11

游客，如果您要查看本帖隐藏内容请回复

chusheng168 · 发表于 2010-10-21 11:16

请教大家如何实现：）

wayy · 发表于 2010-10-21 16:58

QUOTE:

以下是引用chusheng168在2010-10-21 11:16:00的发言：
请教大家如何实现：）

PjeoTG4m.rar (10.8 KB, 下载次数: 58)

visardwl · 发表于 2010-10-21 20:33

Sub text1()
Dim i, m As Long
Dim arr
ReDim arr(1 To Range("A1").CurrentRegion.Count)
arr = Range("A1").CurrentRegion
For i = 1 To UBound(arr)
    Workbooks.Add
    ActiveWorkbook.SaveAs "F:\" & arr(i, 1)
    For m = 1 To 4
      Cells(m, 1).Value = arr(i + m - 1, 1)
    Next
    i = i + 3
Next
End Sub

chusheng168 · 发表于 2010-10-25 15:01

非常感谢大家的帮助！

cuirencui · 发表于 2011-1-31 11:36

可以啦当然可以啦

a785378066 · 发表于 2011-1-31 23:21

学习了{:912:}

haiba · 发表于 2011-2-25 10:58

学习、才会进步

		自动登录	找回密码
密码			注册