改成这样： Sub 双倍余额递减法() Dim yz,nx,cz,zj ,zjh Sheets("固定资产折旧处理系统").Select yz = Cells(3, 2) nx = Cells(4, 2) cz = Cells(5, 2) For i = 1 To nx if i
