[已解决]怎样把一个“sheets表”上的几个表格中的数据汇总到另一个"sheets"

yunsin1015

Sub 汇总()
With Sheets("开票流水明细")
For i = 6 To 3000
For er = 6 To 3000
If Sheets("运费流水").Cells(i, 3) <> "" Then
For j = 9 To 3000
Cells(j, 6) = Sheets("运费流水").Cells(i, 3) '日期
Cells(j, 5) = Sheets("运费流水").Cells(i, 5) '车牌
Cells(j, 3) = Sheets("运费流水").Cells(i, 6) '姓名
Cells(j, 8) = Sheets("运费流水").Cells(i, 7) '车数
j = j + 1
ElseIf Sheets("运费流水").Cells(i, 9) <> "" Then
For k = j + 1 To 3000
Cells(k, 6) = Sheets("运费流水").Cells(er, 9) '日期
Cells(k, 5) = Sheets("运费流水").Cells(er, 11) '车牌
Cells(k, 3) = Sheets("运费流水").Cells(er, 12) '姓名
Cells(k, 8) = Sheets("运费流水").Cells(er, 13) '车数

k = k + 1

Else
MsgBox "汇总完成！", 64, "倒短工具"
End If
Next er
Next i
End With
End Sub

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2012-7-23 18:32

yunsin1015 发表于 2012-7-23 10:04
补充：我试着编了代码，可是运行时显示（else没有if）请高手检查下是什么地方错误？

1. Sub 汇总()
   
2.     With Sheets("开票流水明细")
   
3.         For i = 6 To 3000
   
4.             For er = 6 To 3000
   
5.                 If Sheets("运费流水").Cells(i, 3) <> "" Then
   
6.                     For j = 9 To 3000
   
7.                         Cells(j, 6) = Sheets("运费流水").Cells(i, 3)    '日期
   
8.                         Cells(j, 5) = Sheets("运费流水").Cells(i, 5)    '车牌
   
9.                         Cells(j, 3) = Sheets("运费流水").Cells(i, 6)    '姓名
   
10.                         Cells(j, 8) = Sheets("运费流水").Cells(i, 7)    '车数
    
11.                     Next j
    
12.                 ElseIf Sheets("运费流水").Cells(i, 9) <> "" Then
    
13.                     For k = j + 1 To 3000
    
14.                         Cells(k, 6) = Sheets("运费流水").Cells(er, 9)    '日期
    
15.                         Cells(k, 5) = Sheets("运费流水").Cells(er, 11)    '车牌
    
16.                         Cells(k, 3) = Sheets("运费流水").Cells(er, 12)    '姓名
    
17.                         Cells(k, 8) = Sheets("运费流水").Cells(er, 13)    '车数
    
18.                     Next k
    
19.                 Else
    
20.                     MsgBox "汇总完成！", 64, "倒短工具"
    
21.                 End If
    
22.             Next er
    
23.         Next i
    
24.     End With
    
25. End Sub
    

复制代码

跳转到最佳答案楼层

yunsin1015

补充：我试着编了代码，可是运行时显示（else没有if）请高手检查下是什么地方错误？

JLxiangwei

yunsin1015 发表于 2012-7-23 10:04
补充：我试着编了代码，可是运行时显示（else没有if）请高手检查下是什么地方错误？

1. Sub 汇总()
   
2.     With Sheets("开票流水明细")
   
3.         For i = 6 To 3000
   
4.             For er = 6 To 3000
   
5.                 If Sheets("运费流水").Cells(i, 3) <> "" Then
   
6.                     For j = 9 To 3000
   
7.                         Cells(j, 6) = Sheets("运费流水").Cells(i, 3)    '日期
   
8.                         Cells(j, 5) = Sheets("运费流水").Cells(i, 5)    '车牌
   
9.                         Cells(j, 3) = Sheets("运费流水").Cells(i, 6)    '姓名
   
10.                         Cells(j, 8) = Sheets("运费流水").Cells(i, 7)    '车数
    
11.                     Next j
    
12.                 ElseIf Sheets("运费流水").Cells(i, 9) <> "" Then
    
13.                     For k = j + 1 To 3000
    
14.                         Cells(k, 6) = Sheets("运费流水").Cells(er, 9)    '日期
    
15.                         Cells(k, 5) = Sheets("运费流水").Cells(er, 11)    '车牌
    
16.                         Cells(k, 3) = Sheets("运费流水").Cells(er, 12)    '姓名
    
17.                         Cells(k, 8) = Sheets("运费流水").Cells(er, 13)    '车数
    
18.                     Next k
    
19.                 Else
    
20.                     MsgBox "汇总完成！", 64, "倒短工具"
    
21.                 End If
    
22.             Next er
    
23.         Next i
    
24.     End With
    
25. End Sub
    

复制代码

iaw528

把k=k+1和 j=j+1改为next k 和next j

无聊的疯子

附件很重要,

For j = 9 To 3000  后面没有 next
For j = 9 To 3000  后面也没有 next

gxglmcy

别人的辛劳我们学到了,是一定要顶一个的