[已解决]关于定位与引用的代码

WENWENTF

请问如果我想选取a1:a10000行其中有好多空值，（必顺先排序）我要把空值用定位

选出来，并用引用把空值变成与上一个单元格相同的值，要如何做啊，我自己写了一个代码可不对

Sub hcdayen()
Range("a65536").End(xlUp).Row
range(a1:A10000).SpecialCells(xlCellTypeBlanks).Select

End Sub
求人帮助看看，我在线等，我是刚学有不对的地方请谅解

最佳答案

月排行榜 / 总排行榜

amulee

2010-2-4 11:16

这样？

Sub hcdayen()

Range("A1:A10000").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

End Sub

跳转到最佳答案楼层

amulee

这样？

Sub hcdayen()

Range("A1:A10000").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

End Sub

WENWENTF

谢谢

谢谢

WENWENTF

FormulaR1C1 = "=R[-1]C

这代码FormulaR1C1是引用，

"=R[-1]C那这是起什么做用呢，是什么意思

喜多多

Sub hcdayen()
Dim rng As Range
For Each rng In Range("a1:A10000").SpecialCells(xlCellTypeBlanks)
If rng.Row <> 1 Then
rng = rng.Offset(-1)
End If
Next
End Sub

wyg791019

[em02][em02]