在EXCEL中的某列中，怎样用VBA保留最后两位数据，如123 保留23

EXCEL中,用函数就可以实现
=right(a1,2)

如果非要用VBA

sub www()
Dim aa As String
aa = Right(Cells(1, 1), 2)
End Sub

For i = 1 To 10 '1-10行
Cells(i, 1) = Right(Cells(i, 1), 2) '第一列
Next

保留小数有两种, round() 四舍五入和format()截了

保留最后两位数据,是用right(?,2)

sub x ()
dim i as integer
r=2
do until len(cells(r,2).value)=0
cells(r,2).value = right(cells(r,2),2)'format(cells(r,2),"#0.00") 'round(cells(r,2),2) '看你要那种
r=r+1
loop

end sub