各位老师，各位大侠，各位少侠，各位女侠，请帮我看看这个表的代码，还有4列保存不...

ABC勇

      各位老师，各位大侠，各位少侠，各位女侠，如果你是Excel中的高手，高手，高高手，请你帮一下我！万分感谢！！！

要求是：在“单据”表里面，点击“打印一次”按钮，“单据”表里的数据就自动保存到“单据数据”表里面，并且都是在最后一行空白行里面保存，一直往下保存，期待您的回复，谢谢！！！！！！现在还有四列保存不过去，分别是：“单号”；“日期”；“金额”；“备注”这四列，

蓝桥玄霜

K2,l2,K5都是空白单元格？附件中单据也没有数据。

sxbjzjf110

测试一下。。。。

sxbjzjf110

测试一下。。。。

ABC勇

蓝桥玄霜 发表于 2023-3-23 09:24
K2,l2,K5都是空白单元格？附件中单据也没有数据。

您好，到时候会在“单据”表里面输入数据的，就是要求点击“打印一次”之后，“单据”里面的数据会自动保存到“单据数据”表里面，

杨建营

主要的错误在我画红框的地方，修改后可以提取数据，请楼主参考。

ABC勇

sxbjzjf110 发表于 2023-3-23 09:30
测试一下。。。。

你好，你没有发改好的附件上来，

于箱长

纯属好奇，路过进来看看

tanglf188

你的表格添加过列数据了，所以列号要修改，备注备份只复制单元格数据，要备份图片还要改代码。

1. Sub 数据保存()
   
2.     With Sheets("单据")
   
3.         ar = Range(.[a1], .Cells(Rows.Count, 1).End(3).Offset(0, 13))
   
4.         ReDim arr(1 To UBound(ar), 1 To UBound(ar, 2) + 3)
   
5.         单号 = .[N2] & Format(Val(.[O2]), "000000")
   
6.         客户 = .[b5]
   
7.         开单时间 = .[N5]
   
8.         For i = 7 To UBound(ar)
   
9.             If ar(i, 1) = "合计" Then Exit For
   
10.             If ar(i, 10) <> 0 Or ar(i, 11) <> 0 Then    '金额或总平方数不为0算一条记录
    
11.                 n = n + 1
    
12.                 arr(n, 1) = 客户
    
13.                 arr(n, 2) = 单号
    
14.                 arr(n, 3) = 开单时间
    
15.                 For j = 1 To UBound(ar, 2)
    
16.                     arr(n, j + 3) = ar(i, j)
    
17.                 Next j
    
18.             End If
    
19.         Next i
    
20.     End With
    
21.     If n > 0 Then
    
22.         With Sheets("单据数据")
    
23.             .Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(n, UBound(arr, 2)) = arr
    
24.             [O2] = [O2] + 1
    
25.             MsgBox "本单据打印并保存完毕！"
    
26.         End With
    
27.         
    
28. '        Dim rng As Range
    
29. '        With Sheets("单据数据")
    
30. '            Set rng = .Columns("A:A").Find(what:=单号)
    
31. '            If Not rng Is Nothing Then
    
32. '                MsgBox "本单据已经保存过！本次仅打印"
    
33. '            Else
    
34. '                .Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(n, UBound(arr, 2)) = arr
    
35. '                [l2] = [l2] + 1
    
36. '                MsgBox "本单据打印并保存完毕！"
    
37. '            End If
    
38. '        End With
    
39.     Else
    
40.         MsgBox "本表没有实际数据，请核对!"
    
41.     End If
    
42. End Sub
    

复制代码

ABC勇

sxbjzjf110 发表于 2023-3-23 09:31
测试一下。。。。

测试过了，完全可以用，谢谢您，太谢谢您了，