吐嘈:WPS表格中无法调整文字与单元格中的间距

2019-12-14 20:59:06  阅读 221 次 评论 0 条
WPS QQ交流群:121023130

话说,WPS表格中都没得调整间距的吗??

使用最合适的行宽与列宽后,字全部挤一块去了。。。。

image.png


PS:

已用VBA搞定。。

感谢风云大佬给的VBA代码

以下为代码内容:


'行高自适应
Sub SetRowAutoFit()
    Dim selRng As Range: Set selRng = Application.Selection
    Dim padding: padding = Application.InputBox("请输入单元格上下的边距的数值", "自适应高度设置", Type:=1)
    Dim i
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For i = 1 To selRng.Rows.Count
        selRng.Rows(i).AutoFit
        selRng.Rows(i).VerticalAlignment = xlCenter
        selRng.Rows(i).RowHeight = selRng.Rows(i).RowHeight + padding * 2
    Next i
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub


本文地址:https://www.wpsds.com/wpsbg/63.html
版权声明:本文为原创文章,版权归 达叔 所有,欢迎分享本文,转载请保留出处!
WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?