[已解决]求：输入大于0的值时输出对应表格

Taocai

描述不是很清楚，发个图说说，附个文件求方法：

模板.zip (8.67 KB, 下载次数: 10)

2015-2-2 21:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

baksy

2015-2-4 04:21

Taocai 发表于 2015-2-4 01:16
输出栏横啦向下填充依然有问题～自动输出好多0

。。。

跳转到最佳答案楼层

26759761@qq.com

1. Sub x()
   
2. On Error GoTo 10
   
3. Range("m2:p" & Cells(Rows.Count, 1).End(3).Row).Clear
   
4. Dim arr, ar(1 To 2000, 1 To 4), x As Integer, k As Integer
   
5.   arr = Range("a2:f" & Cells(Rows.Count, 1).End(3).Row)
   
6.    For x = 1 To UBound(arr)
   
7.     If arr(x, 2) > 0 Then
   
8.      k = k + 1
   
9.       ar(k, 1) = arr(x, 1)
   
10.       ar(k, 2) = arr(x, 2)
    
11.       ar(k, 3) = arr(x, 4)
    
12.       ar(k, 4) = "'" & arr(x, 6)
    
13.      End If
    
14.     Next
    
15. Range("m2").Resize(k, 4) = ar
    
16.   Exit Sub
    
17. 10
    
18. End Sub
    

复制代码

baksy

附件。

Taocai

baksy 发表于 2015-2-3 06:35
附件。

大神，效果是有了，就是能不能把没有输入数值的那一栏挤掉

baksy

Taocai 发表于 2015-2-3 08:14
大神，效果是有了，就是能不能把没有输入数值的那一栏挤掉

附件。

Taocai

baksy 发表于 2015-2-3 08:27
附件。

大神，为什么电脑上有效，到了安卓手机上就没用呢？我用的是office suite7，在件数列输入数值，后并不输出

Taocai

baksy 发表于 2015-2-3 08:27
附件。

大神还是有问题啊，名称 条码 件数 件价行数大于96行后不管96行里的件数是否有数值都自动输出

还有就是输出的地方不能横拉下拉填充命令，求大神完善......
.

Taocai

各位大神能帮忙完善吗？？？？？？？？？？

雪舞子

测试一下

Taocai

雪舞子 发表于 2015-2-3 13:12
测试一下

大神是不是传错了？