Dim x&,r&,k&,i& r = Range("G65536").End(xlUp).Row For x = 2

Dim x&,r&,k&,i& ‘这行肯定没问题,是定义四个变量
r = Range("G65536").End(xlUp).Row’关键是这行：
"G65536"——是G列的最后一个单元格,Excel行的极限是65536
End(xlUp)——相当于按下Ctrl键和向上键,其含义是从 Range("G65536")单元格向上找,找到第一个不为空的单元格,这个单元格的行号就下面的：
Row 所找到的第一个不空的行号.
For x = 2 To r　'从第2行循环到r行.
　　　张志晨奉献