ＶＢＡ如何获取单元格中字符的行数

易克赛儿

　求助：ＶＢＡ如何获取单元格中字符的行数。
　一张几千行的工作表，需要用VBA代码按字符数量最多的那一列来自动调整行高。此列中有的单元格中是自动换行，同时也有按ALT+Enter硬换行的。比如只有一行文字的正常行高是18（此列所有单元格都是五号字体，列宽一般是固定的，不会改变），　如果有6行文字，＝18*6，　这样就很容易用ＶＢＡ代码设置整个表格的行高了。　问题是我们不知道用什么函数命令来获取单元格中字符的行数。　恳请ＶＢＡ大侠赐教，谢谢！


　　我想很多人都会有这个需求。很普遍的！

ovxyz

不是很懂啊。选中双击，不就自动调整成最合适的行高了吗？

tanglf188

1. Sub test()
   
2.     Dim mr As Range
   
3.     For Each mr In ActiveSheet.UsedRange
   
4.         Debug.Print mr.Address & "包含行数：" & GetLines(mr)
   
5.     Next
   
6. End Sub
   
7. 
   
8. Function GetLines(mc As Range)
   
9.     brr = Split(mc, Chr(10))
   
10.     If UBound(brr) > 0 Then
    
11.         GetLines = UBound(brr) + 1
    
12.     Else
    
13.         GetLines = 1
    
14.     End If
    
15. End Function
    

复制代码

xiaoya6976

tanglf188 发表于 2023-4-25 15:41

学习了，非常巧妙，利用Split拆分后数组的上标来判断有几行，厉害

易克赛儿

　　非常感谢3楼的tanglf188热心指教！　太好了，这个办法我会经常用到。

易克赛儿

ovxyz 发表于 2023-4-25 15:17
不是很懂啊。选中双击，不就自动调整成最合适的行高了吗？

选中　双击，确实会自动调整合适的行高，　但效果很难看，　只有一行文字的单元格行高太小，特别的不爽。

ovxyz

这种方法是alt+回车的换行才能知道有多少行吧？如果是自动换行，只怕是没有办法了。

ovxyz

易克赛儿 发表于 2023-4-26 09:07
选中　双击，确实会自动调整合适的行高，　但效果很难看，　只有一行文字的单元格行高太小，特别的不爽。

如果这样的话，代码是否可以这块考虑。
先自动双击，然后再当前这个高度增加20%（具体多少可以慢慢调整）

易克赛儿

ovxyz 发表于 2023-4-26 09:23
如果这样的话，代码是否可以这块考虑。
先自动双击，然后再当前这个高度增加20%（具体多少可以慢慢调整 ...

file:///C:/Users/YDwwl/Desktop/%E5%BE%AE%E4%BF%A1%E5%9B%BE%E7%89%87_20230426093156.png

易克赛儿

ovxyz 发表于 2023-4-26 09:23
如果这样的话，代码是否可以这块考虑。
先自动双击，然后再当前这个高度增加20%（具体多少可以慢慢调整 ...

《2023年度　无人值守称重报价单》，是一个事先由我设计好的Excel模板，有20多家供应商报价，表中内容是从数据库里面读取的，公司领导要看哪家供应商报价时，打开这个模板，选择好表头数据（招标期号、报价轮次，供应商公司），点一下按钮，数据就出来了。　不可能让公司领导去手动调整行高的。