vba单据查询系统代码有误

苍海拾贝

富之宝 发表于 2013-12-11 21:08
请帮再修改个复制的代码好吗? 谢谢 !
Sub copyadd()
    Application.ScreenUpdating = False

这段代码有什么问题？

富之宝

苍海拾贝 发表于 2013-12-11 21:57
这段代码有什么问题？

哦，谢谢了，我又解决了, 还想请教你个问题啊, 损耗用量表.rar (5.58 KB, 下载次数: 7)

2013-12-11 23:12 上传

点击文件名下载附件

苍海拾贝

富之宝 发表于 2013-12-11 23:13
哦，谢谢了，我又解决了, 还想请教你个问题啊,

不知这个格式是否具有代表性？如果有代表性，可以考虑
总数量这串字母用正则表达式可以解析，提取出数量和订单号信息
E列的红色数据不需要拆分，只需要根据空行调整位置即可
最后删除空行

富之宝

苍海拾贝 发表于 2013-12-12 14:29
不知这个格式是否具有代表性？如果有代表性，可以考虑
总数量这串字母用正则表达式可以解析，提取出数量 ...

很多表都是那样做的，现在我需要整理这些数据,，从2010年到现在,一个一个的做好慢啊,不知能否用代码实现，能帮做下吗?谢谢!

苍海拾贝

富之宝 发表于 2013-12-12 18:26
很多表都是那样做的，现在我需要整理这些数据,，从2010年到现在,一个一个的做好慢啊,不知能否用代码实现， ...

参考

1. Sub Button1_Click()
   
2.     Dim i, sNum, sPono
   
3.     [a2:d2] = Array("客户", "生产单号", "总数量", "物料名称", "颜色")
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Pattern = "\d+PCS" '数量
   
6.         sNum = Replace(.Execute([o1])(0), "PCS", "")
   
7.         .Pattern = "\D{2}-\d{7}"
   
8.         sPono = .Execute([o1])(0) '订单号
   
9.     End With
   
10.     For i = 3 To [e65536].End(3).Row Step 3
    
11.         If Cells(i + 2, "E") = "" And Cells(i + 1, "E") <> "" And Cells(i, "E") <> "" Then
    
12.             Cells(i + 1, "D") = Cells(i, "E")
    
13.              Cells(i, "E") = ""
    
14.             Cells(i + 1, "C") = sNum
    
15.             Cells(i + 1, "B") = sPono
    
16.         End If
    
17.     Next
    
18.         For i = ActiveSheet.UsedRange.Rows.Count To 3 Step -1
    
19.         If Cells(i, "E") = "" Then Cells(i, "E").EntireRow.Delete
    
20.     Next
    
21.     [1:1].Delete
    
22. End Sub
    

复制代码

富之宝

苍海拾贝 发表于 2013-12-12 18:56
参考

为什么运行到这句  sNum = Replace(.Execute([o1])(0), "PCS", "")

提示 无效的过程调用或参数什么意思呢 ?

谢谢 !

苍海拾贝

富之宝 发表于 2013-12-12 20:36
为什么运行到这句  sNum = Replace(.Execute([o1])(0), "PCS", "")

提示 无效的过程调用或参数什么意思 ...

在楼主发的附件中测试，运行正常，没有出现提示啊你的测试数据与所发数据不同吗？

损耗用量表.rar (6.71 KB, 下载次数: 15)

2013-12-12 21:11 上传

点击文件名下载附件

富之宝

苍海拾贝 发表于 2013-12-12 21:12
在楼主发的附件中测试，运行正常，没有出现提示啊你的测试数据与所发数据不同吗？

分析表.rar (63.05 KB, 下载次数: 4)

2013-12-13 13:06 上传

点击文件名下载附件

我给你上传个复杂的吧，希望帮我看一下，万分感谢

苍海拾贝

富之宝 发表于 2013-12-13 13:07
我给你上传个复杂的吧，希望帮我看一下，万分感谢

第一感觉 ，用Excel干这活太费力了，象D107这样一个单元格含有多个款号的数据似乎手工也无法拆分到每个款号，Excel如何拆分呢？对数据源进行规范方是上策呀。

富之宝

苍海拾贝 发表于 2013-12-13 18:09
第一感觉 ，用Excel干这活太费力了，象D107这样一个单元格含有多个款号的数据似乎手工也无法拆分到每个款 ...

这个我知道,以后肯定会规范,像你说的一个单元格有几个款号不用拆分,当有合并单元格时就把合并的拆分,不管有几款,每个单元格填一样的内容就行了,谢谢 !