求救，这段代码老是出现“运行时错误1004”，我是新手，请高手指点错在哪里？万分感

xtool

<p>Sub Macro1()<br/>Dim irow As Long<br/>With Sheets("考勤签到记录")<br/>irow = .UsedRange.Rows.Count</p><p>&nbsp;&nbsp;&nbsp; Range("A3:L3").Select<br/>&nbsp;&nbsp;&nbsp; Range(Selection, Selection.End(xlDown)).Select<br/>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=xlPinYin, DataOption1:=xlSortNormal</p><p>&nbsp;&nbsp;&nbsp; For i = 1 To irow<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(.Cells(3, i)) &amp; Trim(.Cells(5, i)) = Trim(.Cells(3, i)) &amp; Trim(.Cells(5, i)) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Rows("i:i").Select<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Selection.Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf Trim(.Cells(3, i)) = "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "完成！"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next i<br/>End With<br/>End Sub<br/></p>

haydonlevy

沙发 学习中

xtool

<p>循环语句里<br/>&nbsp;.Rows("i:i").Select<br/>这一句有问题，但不知是什么问题</p>

xtool

请高手指点！