如何能将打印用的表单里的内容快速复制

meijinvip · 发表于 2023-8-30 09:30

如若能提高工作效率本人十分感谢！希望各位学长赐教！
如何能将表单里的“单号”“金额”“收款方式”“收款时间”快速复制到下面，一个个复制粘贴效率好低，不知有没有更好的办法！
下面是附件

css207 · 发表于 2023-8-30 09:49

你准备怎么感谢？

3190496160 · 发表于 2023-8-30 09:51

这个问题只能是vba代码来完成了，每个送货单的行数不一致，就得逐一判断所需项目所在行才行

高个子 · 发表于 2023-8-30 09:52

新建 Microsoft Excel 工作表 (2).zip (10.28 KB, 下载次数: 7)
就这个例子，可以这么做

3190496160 · 发表于 2023-8-30 10:55

Sub 汇总()
With Sheet1
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:l" & r)
End With
ReDim br(1 To r, 1 To 5)
For i = 3 To r
If InStr(ar(i, 1), "客户名称") > 0 Then
      n = n + 1
      br(n, 1) = ar(i, 2)
      br(n, 2) = ar(i, 9)
      For s = i + 3 To r
         If InStr(ar(s, 7), "人民币：") > 0 Then
            br(n, 3) = ar(s, 8)
            Exit For
         End If
      Next s
      For s = i + 3 To r
         If Trim(ar(s, 12)) <> "" Then
            If IsDate(ar(s, 12)) Then
                  br(n, 4) = ar(s, 11)
                  br(n, 5) = ar(s, 12)
                  Exit For
            End If
         End If
      Next s
End If
Next i
With Sheets("明细表")
.[a1].CurrentRegion.Offset(1) = Empty
.[a2].Resize(n, 5) = br
End With
End Sub

3190496160 · 发表于 2023-8-30 11:30

3190496160 · 发表于 2023-8-30 11:31

新建 Microsoft Excel 工作表 (2).rar (15.62 KB, 下载次数: 2)

meijinvip · 发表于 2023-8-30 12:43

高个子发表于 2023-8-30 09:52
就这个例子，可以这么做

谢谢，辛苦了

meijinvip · 发表于 2023-8-30 12:45

3190496160 发表于 2023-8-30 11:31

太感谢了，写了这么多代码，实在是辛苦了

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

[求助] 如何能将打印用的表单里的内容快速复制