vba 调试错误 1004

x = Range(Cells(i, 1)).Value
改成
x = Cells(i, 1).Value
另外，楼上说的也是对的。否则你只是一个单元格，不是区域，count也就是1。