[已解决]单元格选择并赋值

837852190

在sheet2的vbe输入：Sheets("sheet1").Range(Range("j2"), Range("o2").End(xlToLeft)).SpecialCells(xlCellTypeBlanks).Value = 0
为什么为报错 望各路大神指点

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-9-3 20:50

Sheets("sheet1").Range(Sheets("sheet1").Range("j2"), Sheets("sheet1").Range("o2").End(xlToLeft)).SpecialCells(xlCellTypeBlanks).Value = 0

跳转到最佳答案楼层

cutecpu

Sheets("sheet1").Range(Sheets("sheet1").Range("j2"), Sheets("sheet1").Range("o2").End(xlToLeft)).SpecialCells(xlCellTypeBlanks).Value = 0

lisongmei

End(xlToLeft)的意思是从当前区域的第一行向左选最左边的一个单元格，所以它是一个单元格，而不是一个区域，所以，你后面的SpecialCells(xlCellTypeBlanks)就定位不到空单元格，所以会报错未找到单元格

837852190

lisongmei 发表于 2021-9-3 22:51
End(xlToLeft)的意思是从当前区域的第一行向左选最左边的一个单元格，所以它是一个单元格，而不是一个区域 ...

感谢你的回复 但是 上面的程序表达的是在j2到o2的左端点区域中非空单元格赋值0，依照你的意思，也应该在一个单元格赋值0，并不是报错

lisongmei

837852190 发表于 2021-9-18 21:14
感谢你的回复 但是 上面的程序表达的是在j2到o2的左端点区域中非空单元格赋值0，依照你的意思，也应该在 ...

对一个空赋值不报错报什么。。参考版主大人的吧

837852190

lisongmei 发表于 2021-9-18 21:36
对一个空赋值不报错报什么。。参考版主大人的吧

Sub tt1()
Range("a1") = 0
End Sub

这个为什么不报错