求教修改宏代码!

符合

excel表刷新数据后有空行，用宏命令删除，再将A6:B6单元格复制填充至A423:B423，代码还未完，但在红色部分就不能运行了，求教各位高手！

Sub Macro1()
'ActiveWorkbook.RefreshAll '刷新数据
Dim i As Integer
For i = 9 To 515 Step 5
If Range("C" & i).Value = "" Then
    Rows("i:i").Select   'Rows("9:9").Select 这个行，前面用变量就不行了。
    Selection.Delete Shift:=xlUp  '删除所有空行
   End If
Next i
Range("A6:B6").Select
    Selection.AutoFill Destination:=Range("$A$6:$B$515"), Type:=xlFillDefault
    Range("A6:B423").Select '选定A6:B6单元格复制填充至A423:B423
End Sub

符合

各位朋友，谁能帮帮忙，谢谢了！

异路天涯

用这个Rows(i)即可
用你的方式也可以但要这样写Rows(i & ":" & i)
因为()要求为字符串
你那样写选的是I列而不是把I当做变量

okeey

学习中，菜鸟飘过！！

alayjie

学习中，撸过

符合

异路天涯 发表于 2013-3-13 13:35
用这个Rows(i)即可
用你的方式也可以但要这样写Rows(i & ":" & i)
因为()要求为字符串

谢谢你!我来试试》

okeey

学习中，菜鸟飘过！

TinaLiang

学习了，飘过