求助大师们

凹凸虾

   怎么样将第一张表中的“烧结四课”的产量快速的提取到表二中！！

凹凸虾

帮帮小弟哇！小白求救！！

coolall

Sub run()
'MsgBox "ok"
For i = 1 To 31
    Sheets(2).Cells(i + 4, 5) = Cells(2 + (i - 1) * 15, 1)
    Sheets(2).Cells(i + 4, 6) = Cells(6 + (i - 1) * 15, 4)
Next i
Sheets(2).Select
End Sub

coolall

1. Sub run()
   
2. 'MsgBox "ok"
   
3. For i = 1 To 31
   
4.     Sheets(2).Cells(i + 4, 5) = Cells(2 + (i - 1) * 15, 1)
   
5.     Sheets(2).Cells(i + 4, 6) = Cells(6 + (i - 1) * 15, 4)
   
6. Next i
   
7. Sheets(2).Select
   
8. End Sub
   

复制代码

用这个代码试试 看看是你需要的结果不？

coolall

1. Sub run()
   
2. 'MsgBox "ok"
   
3. For i = 1 To 31
   
4.     Sheets(2).Cells(i + 4, 5) = Cells(2 + (i - 1) * 15, 1)
   
5.     Sheets(2).Cells(i + 4, 6) = Cells(6 + (i - 1) * 15, 4)
   
6. Next i
   
7. Sheets(2).Select
   
8. End Sub
   

复制代码

用这个代码试试 看看是你需要的