各位大佬谁帮忙看看怎么弄呀

欧特满 · 发表于 2024-3-13 22:04

本人想通过sheet1明细表中的内容，生成到sheet2的对应表格。

表格中一部分内容是从明细表中取的，一部分是固定内容。
现在纯手工复制一堆表格，非常麻烦，希望哪位大佬帮忙想想办法，谢谢。

liulang0808 · 发表于 2024-3-13 22:28

Sub 按钮1_Click()
arr = Sheets("明细表").[a1].CurrentRegion
Set Rng = Sheets("巡视模板").[a1:g5]
r = 1
Application.ScreenUpdating = False
Sheets("结果").Select
For j = 2 To UBound(arr)
      If Len(arr(j, 5)) > 0 Then
         For i = 1 To Val(arr(j, 9))
            Rng.Copy Cells(r, 1)
            Cells(r + 2, 1) = arr(j, 5)
            Cells(r + 2, 2) = arr(j, 6)
            Cells(r + 2, 3) = arr(j, 13)
            Cells(r + 4, 6) = arr(j, 12)
            r = r + 7
         Next i
      End If
Next
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2024-3-13 22:29

VBA问题.zip (25.73 KB, 下载次数: 6)

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

[求助] 各位大佬谁帮忙看看怎么弄呀