请求哪位老师帮忙看看模板2填充不了数据。谢谢！

108079955

请求哪位老师帮忙看看。我用模板的第一个出入证是正常运行的。
当我把第一的代码套用到第二个住校证的时候，就是不能自动填充数据了，只能最后有一列没有边框的数据。  
请哪位老师抽空看看我哪儿修改错了呀！ 多谢了！

Sub 出入证()
Dim i&, n&, f$, k&, rng As Range
Dim arr
Application.ScreenUpdating = False
arr = Sheets("数据").[a1].CurrentRegion
n = 9
With Sheets("打印")
    .Columns("b:e").ClearContents
    For i = 2 To UBound(arr)
        
        Sheets("模板").[a1:e9].Copy
        .[a1].Offset(n * (i - 2)).PasteSpecial Paste:=xlPasteColumnWidths
        .Paste
        Sheets("模板").Rows(1).Resize(n).Copy
        .Rows(1).Offset(n * (i - 2)).Resize(n).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
      
        .[c5].Offset(n * (i - 2)).MergeArea = arr(i, 2)
        .[c6].Offset(n * (i - 2)).MergeArea = arr(i, 3)
        .[c7].Offset(n * (i - 2)).MergeArea = arr(i, 4)
        .[c8].Offset(n * (i - 2)).MergeArea = arr(i, 5)
    Next
End With
Application.ScreenUpdating = True
MsgBox "生成完毕！"
End Sub



'修改后的如下：



Sub 住校证()
Dim i&, n&, f$, k&, rng As Range
Dim arr
Application.ScreenUpdating = False

arr = Sheets("数据").[a1].CurrentRegion
n = 9
With Sheets("打印")
    .Columns("b:g").ClearContents
    For i = 2 To UBound(arr)
        
        Sheets("模板").[a10:e18].Copy
        .[a1].Offset(n * (i - 2)).PasteSpecial Paste:=xlPasteColumnWidths
        .Paste
        Sheets("模板").Rows(1).Resize(n).Copy
        .Rows(1).Offset(n * (i - 2)).Resize(n).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
      
        .[c14].Offset(n * (i - 2)).MergeArea = arr(i, 2)
        .[c15].Offset(n * (i - 2)).MergeArea = arr(i, 3)
        .[c16].Offset(n * (i - 2)).MergeArea = arr(i, 4)
        .[c17].Offset(n * (i - 2)).MergeArea = arr(i, 5)
        
  
    Next
End With
Application.ScreenUpdating = True
MsgBox "生成完毕！"
End Sub

半百

108079955

半百 发表于 2023-5-25 18:51

非常感谢半百老师有一次热情无私的帮助，太感谢了！不理解代码意思呀，我觉得第二个模板开始赋值不就是从14,15,16,17开始的就那样修改了。结果填充不了数据。我修改成老师说的那样后就可以填充数据了。
但我还有一点不明白 ，我复制的是第二个模板的格式表格是浅绿色，为什么生成的数据还是第一个模板个格式没有颜色呀 ？

全党

给你重新写了一个，试试。。。。。。。。。。。

全党

全党 发表于 2023-5-26 16:56
给你重新写了一个，试试。。。。。。。。。。。

有点小问题，改一下，见附图。

108079955

全党 发表于 2023-5-26 16:56
给你重新写了一个，试试。。。。。。。。。。。

非常感谢全党老师的热情无私付出。你写的代码运行很好的！多谢了！

gwjkkkkk

108079955 发表于 2023-5-26 16:03
非常感谢半百老师有一次热情无私的帮助，太感谢了！不理解代码意思呀，我觉得第二个模板开始赋值不就是从 ...

请参考附件。。。

108079955

gwjkkkkk 发表于 2023-5-27 11:02
请参考附件。。。

非常感谢gwjkkkkk老师无私热情的帮助，太感谢了！代码很好用，正是我想要的效果。谢谢了！