B和 D列比较，以最大的行数为标准，自动设置行高，请高手帮忙改下公式，谢谢！

huyuqun · 发表于 2022-11-24 17:57

B和 D列比较，以最大的行数为标准，根据需要自动设置行高，请高手帮忙改下公式，谢谢！

太极拍天雄 · 发表于 2022-11-24 21:34

Sub b()
Rows.AutoFit
End Sub

huyuqun · 发表于 2022-11-25 14:07

太极拍天雄发表于 2022-11-24 21:34
Sub b()
Rows.AutoFit
End Sub

我要按我想要的行高，不是自动行高，那样出来打印会紧贴着边线。谢谢。

gwjkkkkk · 发表于 2022-11-25 20:56

不知道是不是楼的意思
Sub test()
Dim iRow&, sHeight As Single
iRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To iRow
If Rows(i).RowHeight > sHeight Then
sHeight = Rows(i).RowHeight
End If
Next i
Rows("1:" & iRow).RowHeight = sHeight
End Sub

huyuqun · 发表于 2022-11-25 21:38

gwjkkkkk 发表于 2022-11-25 20:56
不知道是不是楼的意思
Sub test()
Dim iRow&, sHeight As Single

不是这样，不过我已解决了

太极拍天雄 · 发表于 2022-11-25 21:38

仅针对目前表格的列宽来操作

huyuqun · 发表于 2022-11-27 15:18

本帖最后由 huyuqun 于 2022-11-27 16:12 编辑

太极拍天雄发表于 2022-11-25 21:38
仅针对目前表格的列宽来操作

牛牛666，就是这个意思。太强大了。如果有空能帮忙加上注释就好了，谢谢！

huyuqun · 发表于 2022-11-27 16:19

本帖最后由 huyuqun 于 2022-11-27 16:23 编辑

太极拍天雄发表于 2022-11-25 21:38
仅针对目前表格的列宽来操作

想请问下如果列宽改变(如果B列宽 14.63，D列宽28)要怎么修改参数，谢谢！

准提部林 · 发表于 2022-11-27 17:04

字體名稱//文字大小/粗細...都影響自動換行數,
看起來與實際打印還是有差距//只能抓大約吧!!!

Xl0000246.rar (14.46 KB, 下载次数: 6)

太极拍天雄 · 发表于 2022-11-27 23:10

正如“准提部林”老师所说的宽度、字号、字体都会影响单元格内容的行数，所以每次改变都先要测试找规律，然后把参数修改一下，比较繁琐！

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

[求助] B和 D列比较，以最大的行数为标准，自动设置行高，请高手帮忙改下公式，谢谢！

评分

评分

评分

评分

评分