帮我解释下下面一段EXCEL的vba代码的意思，还有运行时是怎样的一个过程？

Question

Dim rg As Range, i As Integer
For i = 2 To Range("c65536").End(xlUp).Row
If Cells(i, 7) = 0 Then
If rg Is Nothing Then
Set rg = Rows(i)
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next i
rg.Delete

Answer 1

这个代码是把C列空单元格所在行删除的代码
Dim rg As Range, i As Integer ‘定义rg和i的变量类型
For i = 2 To Range("c65536").End(xlUp).Row '设定Range("c65536").End(xlUp).Row是指从单元格C65535往上查询到的第一个非空单元格所在行的行号，在EXCEL2003里面C65535是C列最后一个单元格，这一句是定义循环的次数
If Cells(i, 7) = 0 Then ‘如果第i行第7列所在单元格等于0，那么
If rg Is Nothing Then ’如果rg未赋值，那么
Set rg = Rows(i) ‘rg等于第i行
Else ’否则
Set rg = Union(rg, Rows(i)) ‘rg等于之前所赋值，加上第i行
End If
End If
Next i
rg.Delete ’把rg所指的范围删除

运行时的过程是这样的
1、假设C列最后一个非空单元格为C10，则循环9次，即FOR I=2 TO 9
2、假设C3，C5是空的，rg等于第3行和第五行的所在行
3、最后把第三行和第五行删除

Answer 2

从第2行起到C列最后一个有数值或公式的单元格所在行止，删除G列为0的行。
程序设置了一个range对象变量rg和一个整型变量i（这里有一个限制，i必须不大于32767，i As long就没有这个限制了）。
i从2开始到C列最后一个有数值或公式的单元格所在行为止，以步长为1，作循环。判断该行G列，若数值为0，则把该行放入rg对象集合中。循环结束后，删除rg对象。

Answer 3

删除G列中数据为0的单元格对应的行

这段代码里面是以C列为计数，以G列为判断条件

运行之后，所有C列有数据的行同时对应的G列的数值为0的行，将会被删除

追问

为什么 我 按原来代码中的 For i = 2 To Range("c65536").End(xlUp).Row 运行，就提示错误

把它改为 For i = 1 To Range("c65536").End(xlUp).Row 就能运行成功，能帮我解释是什么原因吗？

追答

没可能吧，改为1之后一样也要经过 i = 2的情况，前面运行错误应该不是这样原因，是有其它原因。
对了，提示什么错误呢？

追问

C行有空格就不能运行，提示错误，原来的代码应该如何修改，C行出现空格的话，也删除这一行，能不能把修改好的代码贴出来，谢谢

追答

改成这样，
Dim rg As Range, i As Integer
For i = 2 To Range("c65536").End(xlUp).Row
If Cells(i, 7) = 0 or cells(i,3) = "" Then
If rg Is Nothing Then
Set rg = Rows(i)
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next i
rg.Delete

Answer 4

Range("c65536").End(xlUp).Row 这个值是1，
for i=2 to 1,这个循环就直接跳过了
所以，rg没有被赋值，rg is nothing
所以rg.delete报错

如果要使这个程序能运行，应该在C列，65536行上面的行有值，并且应该定义 dim i as long ，否则interger会溢出

追问

C行有空格就不能运行，提示错误，原来的代码应该如何修改，C行出现空格的话，也删除这一行，能不能把修改好的代码贴出来，谢谢

Answer 5

你将代码放到你的vB模块中按F8就会你按一次他运行一句，你再看你的工作表有什么变化就知道是怎么运行的