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

易克赛儿

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

3楼的tanglf188 你好！ 您的代码我看不懂，复制粘贴到工作簿中运行不起来。 想请你再帮我在以下附件中的工作簿中修改一下代码，并测试运行成功。谢谢！

易克赛儿

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

3楼的tanglf188 你好！ 您的代码我看不懂，复制粘贴到工作簿中运行不起来。 想请你再帮我在以下附件中的工作簿中修改一下代码，并测试运行成功。谢谢！

ovxyz

你试试看。

易克赛儿

ovxyz 发表于 2023-4-26 11:09
你试试看。

file:///C:/Users/YDwwl/Desktop/%E8%B0%83%E6%95%B4%E8%A1%8C%E9%AB%98%E6%B5%8B%E8%AF%95.JPG

代码提示：　运行时错误‘1004’　类Range的ＡutoFit方法无效

我修改了一下，始终是这个提示

易克赛儿

ovxyz 发表于 2023-4-26 11:09
你试试看。

file:///C:/Users/YDwwl/Desktop/%E8%B0%83%E6%95%B4%E8%A1%8C%E9%AB%98%E6%B5%8B%E8%AF%95.JPG

你写的代码出行出错

易克赛儿

ovxyz 发表于 2023-4-26 11:09
你试试看。

　　ovxyz 你好！　谢谢你热心帮助，你发给我的以上代码运行出错了

tanglf188

F列内容换行符的位置并不是理想的换行位置，有些行即使有换行符但内容也较多，一行也显示不下，要把各种因素考虑进去就要花些时间了，且你的表格中还有各种合并单元格，现在换个思路帮你解决下，就是取消所有的换行符，设定每行容纳的字符数量，这样就容易计算出自动换行的行数，因为夹杂全角、半角，所以计算行数和显示行数可能有一些出入。
Sub AutoRowHeight()
    Cells.Replace What:=Chr(10), Replacement:=""
    Cells.Replace What:=Chr(13), Replacement:=""
    Dim mr As Range, last&, rw&
    cs = 54 '每行容纳字符数量设定为54（27个汉字或全角字符），自己根据列宽调整。汉字全角字符占用2字节。
    last = Sheet1.Range("F" & Rows.Count).End(xlUp).Row
    For Each mr In ActiveSheet.Range("F7:F" & last)
        If LenB(mr.Value) Mod cs = 0 Then
            rw = LenB(mr.Value) / cs
        Else
            rw = Int(LenB(mr.Value) / cs) + 1
        End If
        If rw = 0 Then rw = 1
        mr.MergeArea.RowHeight = 15 * rw
        mr.HorizontalAlignment = xlCenter
    Next
End Sub

ovxyz

我觉得你看看你的工作表名，是不是和我的一样。

sheets("sheet1") 这个名字得和你要调整的工作表名一致。包括大小写。

perfect131

易克赛儿 发表于 2023-4-26 13:58
　　ovxyz 你好！　谢谢你热心帮助，你发给我的以上代码运行出错了

这样？
https://club.excelhome.net/threa ... tml?_dsign=953d5959

易克赛儿

感谢tanglf188　和　perfect131　的热心帮助，　我运行了一下你俩的代码，Ｆ列的文字不可以居中对齐，有很多行还是需要手工调整，不理想。　
　　Ｆ列的文字在三行之内的，占90%多，这些行一定不要让公司领导去手工调整；　Ｆ列有几行文字特别多的，可以让公司领导手工调整一下。

以下是我自己写的代码：

Private Sub CommandButton1_Click()
Dim I%, jsH%
  For I = 7 To 60
     If Len(Cells(I, 6)) > 70 Then Rows(I).RowHeight = 5 * (Len(Cells(I, 6)) / 10)
  Next
End Sub
　　　　　　办法：当Ｆ列的一个单元格的字符数超过70个（2行）的时候，进行调整行高
运行后，就5行左右需要手工调整一下。