程序能否简化下

sunny568914

Sub 整理产量()
Dim 订单表 As Worksheet
Dim 产量表 As Worksheet
Dim L
Dim H
Set 订单表 = ActiveSheet
Set 产量表 = Sheets("产量表")
DL = 订单表.Range("XF2").End(xlToLeft).Column '订单表最后一列
DH = 订单表.Range("B65536").End(xlUp).Row    '订单表最后一行
For L = 6 To DL   '列循环
Columns(L).Select
If 订单表.Application.WorksheetFunction.Sum(Range(Cells(3, L), Cells(DH, DL))) <> 0 Then '判断区域是否为0
    If 订单表.Application.WorksheetFunction.Sum(Range(Cells(3, L), Cells(DH, L))) <> 0 Then   '判断列是否为0
       For H = 3 To DH  '行循环
            If 订单表.Cells(H, L).Value <> 0 Then
                CH = 产量表.Range("A65536").End(xlUp).Row    '产量表当前非空行
                产量表.Range("A" & CH + 1).Value = 订单表.Cells(2, L) '产量A列日期
                产量表.Range("B" & CH + 1).Value = 订单表.Cells(H, 1) '产量B列类型
                产量表.Range("C" & CH + 1).Value = 订单表.Cells(H, 2) '产量C列姓名
                产量表.Range("D" & CH + 1).Value = 订单表.Cells(1, 2) '产量D列订单号
                产量表.Range("E" & CH + 1).Value = 订单表.Cells(H, 3) '产量E列工序
                产量表.Range("F" & CH + 1).Value = 订单表.Cells(H, L) '产量F列记工表用量
                产量表.Range("G" & CH + 1).Value = 订单表.Cells(H, 4) '产量G列记工表单价
                产量表.Range("H" & CH + 1).Value = 订单表.Cells(H, 5) '产量H列记工表单价状态
                产量表.Range("I" & CH + 1).Value = 产量表.Range("F" & CH + 1) * 产量表.Range("G" & CH + 1) '产量I列合计
            End If
      Next H
    End If
End If
Next L


End Sub

lixikao

效仿楼主的

清风竹-

请参考一下。

fenghuaxue

帮顶。。。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.4
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("WX903-1X-1206")
   
4.         arr = .UsedRange
   
5.         dd = .[b1]
   
6.     End With
   
7.     ReDim brr(1 To 10000, 1 To 9)
   
8.     For j = 6 To UBound(arr, 2)
   
9.         If arr(3, j) <> Empty Then
   
10.             For i = 3 To UBound(arr)
    
11.                 If arr(i, 2) <> Empty Then
    
12.                     If arr(i, j) <> Empty Then
    
13.                         m = m + 1
    
14.                         brr(m, 1) = arr(3, j)
    
15.                         brr(m, 2) = arr(i, 1)
    
16.                         brr(m, 3) = arr(i, 2)
    
17.                         brr(m, 4) = dd
    
18.                         brr(m, 5) = arr(i, 3)
    
19.                         brr(m, 6) = arr(i, j)
    
20.                         brr(m, 7) = arr(i, 4)
    
21.                         brr(m, 8) = arr(i, 5)
    
22.                         brr(m, 9) = Val(brr(m, 7)) * Val(brr(m, 6))
    
23.                     End If
    
24.                 End If
    
25.             Next
    
26.         End If
    
27.     Next
    
28.     With Sheets("产量表")
    
29.         .UsedRange.Offset(1) = ""
    
30.         .Columns(1).NumberFormatLocal = "mm/dd"
    
31.         .Columns(6).NumberFormatLocal = "0"
    
32.         .Columns("G:I").NumberFormatLocal = "0.00"
    
33.         .[a2].Resize(m, 9) = brr
    
34.         .[a2].Resize(m, 9).Sort .[a2], 1
    
35.     End With
    
36.     Application.ScreenUpdating = True
    
37.     MsgBox "OK！"
    
38. End Sub

复制代码

ykcbf1100

用数组会快一些的。

洋务德雷

没有用vba做，用的是excel中数据透视表中的多重合并计算做出来的。
这个问题，其实是步骤反着来了。应该首先做成想【产量表】那样的表，然后通过数据透视表就可以自动生成【订单表】。如果按照这样做的话，录入也方便。生成【订单表】也比较方便。就完全不用写vba代码了。
一点小建议

sunny568914

洋务德雷 发表于 2024-1-4 22:55
没有用vba做，用的是excel中数据透视表中的多重合并计算做出来的。
这个问题，其实是步骤反着来了。应该首 ...

感谢指导，现在的情况是订单表是别人提供了，我这边需要让订单汇总整理

sunny568914

lixikao 发表于 2024-1-4 17:11
效仿楼主的

感谢指导，我这边学习下、

sunny568914

清风竹- 发表于 2024-1-4 17:31
请参考一下。

感谢指导，我这边下载学习下