[已解决]错哪？？

fangniuji

Sub tt()
Dim X As Long
Dim Xg As Long
Dim Gr As Long
For X = 3 To Range("a65536").End(3).Row
If Range("k" & X) = "有" Then
    Range(Cells(X, 1), Cells(X, 10)).Copy
    Sheets("误餐费").Select
    Xg = Range("a65536").End(3).Row + 1
    Range("a" & Xg).PasteSpecial
    Sheets("司机工作").Select
ElseIf Range("L" & X) = "有" Then
    Range(Cells(X, 1), Cells(X, 10)).Copy
    Sheets("加油").Select
    Gr = Range("a65536").End(3).Row + 1
    Range("a" & Gr).PasteSpecial
    Sheets("司机工作").Select
End If
Next X
Application.CutCopyMode = False
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-10-7 16:01

自问自答？   

跳转到最佳答案楼层

fangniuji

Sub tt()
Dim X As Long
Dim Xg As Long
Dim Gr As Long

For X = 3 To Sheets("司机工作").Range("a65536").End(3).Row

If Range("k" & X) = "有" Then
    Sheets("司机工作").Range(Cells(X, 1), Cells(X, 10)).Copy Sheets("误餐费").Cells(Sheets("误餐费").Range("a65536").End(3).Row + 1, 1)
ElseIf Range("L" & X) = "有" Then
    Sheets("司机工作").Range(Cells(X, 1), Cells(X, 10)).Copy Sheets("加油").Cells(Sheets("加油").Range("a65536").End(3).Row + 1, 1)
End If
Next X
Application.CutCopyMode = False
End Sub

正确

zjdh

自问自答？