如何更新表1内容自动加在表2的每一项对应内容

fylsg80

如题，将“申请单”中对应的栏目填写内容自动依次增加到“资料印制汇总表”对应栏下面。“申请单”填写完成，点击“汇总到汇总表”按钮，就可实现这一功能。烦请高手、师傅帮忙解决。谢谢     附件已更新！

limonet

哪位给个模拟数据？

ykcbf1100

附件是空表。。。

fylsg80

随便填写数据就可以了，附件已更新了！！！

fylsg80

limonet 发表于 2024-8-30 11:53
哪位给个模拟数据？

附件已更新

fylsg80

ykcbf1100 发表于 2024-8-30 12:11
附件是空表。。。

附件已更新

明天会更好zj

limonet

没有关键字。

limonet

Sub limonet()
    Dim Arr(1 To 7) As Variant, Brr As Variant, i%, j%, k%
    Brr = Sheet1.Range("C4:E7")
    For i = 1 To UBound(Brr)
        For j = 1 To 3 Step 2
            If Brr(i, j) <> "" Then
                k = k + 1
                Arr(k) = Brr(i, j)
            End If
        Next j
    Next i
    Sheet2.Range("B" & Sheet2.Range("B" & Rows.Count).End(xlUp).Row + 1).Resize(1, 7) = Arr
End Sub

fylsg80

明天会更好zj 发表于 2024-8-30 15:48

谢谢，能否发一下表格附件