Cells(2, "J")用法不对。cells(正整数行号,正整数列号)你应该用Cells(2, 10)，Cells(r, 10)，或者range("J2"),range("J" & r)
Cells(2, "J")应该是Cells(r, "J")
