作者:乔山办公网日期:
返回目录:office365
右键单元格》设置单元格格式》对齐》缩小字体填充 打钩》确定。酷睿软件园为你解答。
首先,要调整的单元百格右边的单元格必须是空的。文字的话就右键要调整的单元格,点“设度置单元格格式”,“对齐”一栏里先“靠左(缩进)”,点确定再双击设定的单元格就可回以了。如果是数字的话,在“设置单元格格式”的“数字”一栏选“文本”,再答点确定,双击单元格,噔噔~OK啦!
改成这样:
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<nx-1 then
Cells(5 + i, 8) = yz * 2 / nx
yz = yz - Cells(5 + i, 8)
else
Cells(5 + i, 8) = (yz - cz) / 2
End If
Next i
Sheets("固定资产折旧处理系统").Select
End Sub
测试一下,看看对不,不对继zhidao续问我,应该是没问题
比如你的数据在3000行之前,3001行后都是空白的,那么选中3001行,按住ctrl+shift+↓三个键,会自动全选3001行至最后。然后点击右键,选择删除,保存。文件就会相应的缩小了。