excel怎么用函数修改列数据

excel如何用函数修改列数据
例如，我想修改一列数据，全部转大写并且加上 “2009”的前缀

怎样用类似 C1 = "2009" & Ucase(C1) 这样的vb函数、语句来完成呢？？？







------解决方案--------------------------------------------------------
Sub test()
Dim rng As Range
For Each rng In Range("a:a").SpecialCells(xlCellTypeConstants)
rng = "2009" & UCase(rng.Value)
Next
End Sub