Dim i As Long
Dim k As Long
A = Cells(15, 1) '起始
B = Cells(15, 2) '终止
k = A 'A是Range类型，不能赋值给长整型变量k，所以k值还是0，调用Range("C0")就要出错，因为Excel没有第0行，首行是第1行。
你如果要将Cells(15, 1)的内容赋值给k，应该用Cells(15, 1).Value，但是在你的表格中，单元格Cells(15, 1)的内容是空的。
Dim i As Long
Dim k As Long
A = Cells(15, 1) '起始
B = Cells(15, 2) '终止
k = A 'A是Range类型，不能赋值给长整型变量k，所以k值还是0，调用Range("C0")就要出错，因为Excel没有第0行，首行是第1行。
你如果要将Cells(15, 1)的内容赋值给k，应该用Cells(15, 1).Value，但是在你的表格中，单元格Cells(15, 1)的内容是空的。
