[求助]如何设置自动调整行高，并使行高大于等于25

sunfull_zhong · 发表于 2024-7-24 11:22

[求助]如何设置自动调整行高，并使行高大于等于25！！！

Sub hg2()
ActiveSheet.UsedRange.EntireRow.EntireRow.AutoFit.RowHeight
For Each R In ActiveSheet.UsedRange.EntireRow.Rows
If R.EntireRow.Height < 25 Then R.EntireRow.RowHeight = 25
Next
End Sub

这个代码运行有问题，有哪位大神可以帮忙修改下。

feixiangye · 发表于 2024-7-24 13:21

假如要判断10列
For i = 1 To 10
      If Columns(i).ColumnWidth < 20 Then
         Columns(i).ColumnWidth = 25
      End If
Next

batmanbbs · 发表于 2024-7-24 13:50

你这个是excel吧，怎么发到word板块中了
excel不会，自己试试看

过客fppt · 发表于 2024-7-24 14:23

你的代码，我在WPS中运行没有问题

sunfull_zhong · 发表于 2024-7-25 09:12

过客fppt 发表于 2024-7-24 14:23
你的代码，我在WPS中运行没有问题

没用WPS呢，office2019运行有问题呢

过客fppt · 发表于 2024-7-25 09:45

sunfull_zhong 发表于 2024-7-25 09:12
没用WPS呢，office2019运行有问题呢

那你可以试试其他老师的

		自动登录	找回密码
密码			免费注册