[已解决]工作料号整理Vba

fangniuji

Ａ－Ｄ列为数据源，Ｆ列是根据Ｄ列需机器数总数和如８，自动在Ｆ列生成机器编号１,２,３,４,５,６,７,８。H列工作料号是根据D列需机器数数量，对应它机器台数数量。i列以后根据B列机器工作趟数数据，后生成C列加工时间个数。最后在G列生成加工总时间，谢谢帮忙！！

最佳答案

月排行榜 / 总排行榜

suye1010

2012-7-21 14:15

1. Sub test()
   
2. Dim LastRow, i, j, k, TempRow, Times
   
3. LastRow = Cells(65536, 1).End(xlUp).Row
   
4. For i = 2 To LastRow
   
5.     For j = 1 To Cells(i, 4)
   
6.         TempRow = Cells(65536, 6).End(xlUp).Row
   
7.         Cells(TempRow + 1, 6) = TempRow
   
8.         Cells(TempRow + 1, 8) = Cells(i, 1)
   
9.         If Cells(i, 2) \ Cells(i, 4) = Cells(i, 2) / Cells(i, 4) Then
   
10.             Times = Cells(i, 2) \ Cells(i, 4)
    
11.         Else
    
12.             Times = Cells(i, 2) \ Cells(i, 4) + IIf(j <= Cells(i, 2) Mod Cells(i, 4), 1, 0)
    
13.         End If
    
14.         For k = 1 To Times
    
15.                 Cells(TempRow + 1, 8 + k) = Cells(i, 3)
    
16.         Next k
    
17.         Cells(TempRow + 1, 7) = Application.WorksheetFunction.CountA(Range(Cells(TempRow + 1, 9), Cells(TempRow + 1, 256))) * Cells(i, 3)
    
18.     Next j
    
19. Next i
    
20. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Sub test()
   
2. Dim LastRow, i, j, k, TempRow, Times
   
3. LastRow = Cells(65536, 1).End(xlUp).Row
   
4. For i = 2 To LastRow
   
5.     For j = 1 To Cells(i, 4)
   
6.         TempRow = Cells(65536, 6).End(xlUp).Row
   
7.         Cells(TempRow + 1, 6) = TempRow
   
8.         Cells(TempRow + 1, 8) = Cells(i, 1)
   
9.         If Cells(i, 2) \ Cells(i, 4) = Cells(i, 2) / Cells(i, 4) Then
   
10.             Times = Cells(i, 2) \ Cells(i, 4)
    
11.         Else
    
12.             Times = Cells(i, 2) \ Cells(i, 4) + IIf(j <= Cells(i, 2) Mod Cells(i, 4), 1, 0)
    
13.         End If
    
14.         For k = 1 To Times
    
15.                 Cells(TempRow + 1, 8 + k) = Cells(i, 3)
    
16.         Next k
    
17.         Cells(TempRow + 1, 7) = Application.WorksheetFunction.CountA(Range(Cells(TempRow + 1, 9), Cells(TempRow + 1, 256))) * Cells(i, 3)
    
18.     Next j
    
19. Next i
    
20. End Sub

复制代码

fangniuji

suye1010 发表于 2012-7-21 14:15

谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！高手！！！！！

fangniuji

suye1010 发表于 2012-7-21 14:15

再帮我看一下，谢谢！！机器工作趟数B3，j4少一个5.3，谢谢！！

fangniuji

suye1010 发表于 2012-7-21 14:15

34	9.4	DSHI105139D02/0308	9.4
35	9.4	DSHI105139D02/0308	9.4
36	9.4	DSHI105139D02/0308	9.4
37	28.2	DSHI105139D02/0308	9.4	9.4	9.4

这边也有一点小问题，谢谢！！如附件

fangniuji

suye1010 发表于 2012-7-21 14:15

分排规则是如机器工作趟数11，需机器数3，=（11/3=3，余2，再从上到下，第一台1，第二台1，把余数补完。还有：机器工作趟数/需机器数>1,一定大于1，如B18我的数据是错的，！13，14，15，排列再帮我看看，谢谢！！！

fangniuji

suye1010 发表于 2012-7-21 14:15

oK谢谢谢谢谢谢谢！！！！！！！！！！！！！！！！！