为什么总是跨行输入数据？求解决

lggm2008

是这样加几个物料吗？

lggm2008

这个软件是这样要求
1. 用入库单输入内容，内容在入库数据和库存里都出现，且库存的总金额实时更新。
2.出库单数据除出库数量以外均调用入库的信息，出库的信息在出库数据和库存里均出现，库存同时计算得到库存的数值

LangQueS

★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html

lggm2008

谢谢，由于是初学还有时限，而且主要不是本行，所以搞得比较毛躁，麻烦大家了

zpy2

看看，研究一下。

secowu

你的出入库单里是从B开始算的.

secowu

1. 
   
2. 
   
3. Sub rkd()
   
4.   
   
5. Dim sht, i&, j&, k&
   
6. If Sheet2.[b6] = "" Then Exit Sub
   
7. j = Sheet3.Cells(Rows.Count, 1).End(3).Row + 1
   
8. For i = 6 To 11
   
9. If Sheet2.Range("b" & i) <> "" Then
   
10. Sheet3.Cells(j, 1) = Sheet2.Cells(i, 2)
    
11. Sheet3.Cells(j, 2) = Sheet2.Cells(i, 3)
    
12. Sheet3.Cells(j, 3) = Sheet2.Cells(i, 4)
    
13. Sheet3.Cells(j, 4) = Sheet2.Cells(i, 5)
    
14. Sheet3.Cells(j, 5) = Sheet2.Cells(i, 6)
    
15. Sheet3.Cells(j, 6) = Sheet2.Cells(i, 7)
    
16. Sheet3.Cells(j, 7) = Sheet2.Cells(i, 8)
    
17. 
    
18. Sheet3.Cells(j, 11) = Sheet2.Cells(4, 6)
    
19. Sheet3.Cells(j, 12) = Sheet2.Cells(4, 11)
    
20. Sheet3.Cells(j, 13) = Sheet2.Cells(14, 4)
    
21. Sheet3.Cells(j, 14) = Sheet2.Cells(14, 10)
    
22. j = j + 1
    
23. End If
    
24. Next
    
25. Sheet2.Range("b6:G11").ClearContents
    
26. Sheet2.[f4] = ""
    
27. Sheet2.[k4] = ""
    
28. Sheet2.[D14] = ""
    
29. Sheet2.[I14] = ""
    
30. End Sub
    

复制代码

secowu

其它的照着改吧.呵呵

zpy2

大致调试了一下，太痛苦了，也不知是否理解了LZ的意思。是否，你的出库单数据不足6行时会出现你的问题，如果，数据满6行就没问题了。