批量生成多个工作簿并自动填充数据到指定模版

quqiyuan

狼山鸡123 发表于 2025-6-28 09:41
按照你说的改了下没对，是不是我哪写的不对啊

看上去没错，但是不知道是不是打错了字符？
这几行我发一下，你复制看看，

1. For k = 10 To 13
   
2.                             .Cells(12 + i * 2, k) = arr(brr(i), k + 19)
   
3.                         Next
   
4.                         .Cells(12 + i * 2, 14).Resize(2).MergeCells = False
   
5.                         sht.Cells(brr(i), 33).Copy .Cells(12 + i * 2, 14)
   
6.                         .Cells(12 + i * 2, 14).Resize(2).MergeCells = True
   
7.                         .Cells(12 + i * 2, 14).Resize(2).Borders.LineStyle = 1

复制代码

狼山鸡123

quqiyuan 发表于 2025-6-28 09:52
看上去没错，但是不知道是不是打错了字符？
这几行我发一下，你复制看看，

好了，这次成功了。
万分感谢！！！