VBA角度提取

提取149.2000等到三个单元格正确
For m = 1 To Range('a65536').End(xlUp).Row
Cells(m, 'c') = Int(Cells(m, 'a'))
Cells(m, 'd') = Left(Right(Cells(m, 'a'), 4), 2)
Cells(m, 'e') = Right(Cells(m, 'a'), 2)
提取149.2000等到三个单元格错误
For m = 1 To Range('a65536').End(xlUp).Row
Cells(m, 'c') = Int(Cells(m, 'a'))
Cells(m, 'd') = Right(Int(Cells(m, 'a') * 100), 2)
Cells(m, 'e') = Right(Cells(m, 'a'), 2)
Next m