[已解决]谢谢bbwsj老师，给不固定区域内的空白单元格添加“0”

lhj323323

无附件

需要进行数据加工的是某一工作表sheet2的从D列到最右一列的区域，sheet2.Range("D2:K" & Myr1)

其中D列是固定的，Myr1也是固定的，但是K列不固定，我想用K来表示sheet2的最右一列

请老师写一个完整的程序，将这个区域内所有凡是空格的单元格里添加阿拉伯数字“0”

谢谢

[此贴子已经被作者于2010-9-2 7:02:06编辑过]

最佳答案

月排行榜 / 总排行榜

bbwsj

2010-9-2 06:48

Sub T()
    Dim K
    Worksheets("sheet2").Activate
    K = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
    Set Rng = Range("D2:" & K)
    On Error GoTo 100
    Rng.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "0"
100
End Sub

跳转到最佳答案楼层

bbwsj

Sub T()
    Dim K
    Worksheets("sheet2").Activate
    K = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
    Set Rng = Range("D2:" & K)
    On Error GoTo 100
    Rng.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "0"
100
End Sub