[已解决]怎么把图中显示不出来的单元格自动拉开成匹配的单元格大小

jojolam08

把图中显示不出来的单元格自动拉开成匹配的单元格大小，最好是可以设置宏语言，多好类似的单元格要调整，感谢大神~

最佳答案

月排行榜 / 总排行榜

爱疯

2016-8-30 17:44

03里单元格中的字符长度超过255会显#.rar (7.96 KB, 下载次数: 4)

2016-8-30 17:39 上传

点击文件名下载附件


Sub test()
    With [a1]
        .NumberFormat = "@"
        .WrapText = True
        .EntireRow.AutoFit
        .Value = String(InputBox("字符的长度:", "请输入", 255), "1")
    End With
End Sub



这例子是为了说明上楼的观点。
没找到直接的帮助，希望能找到。

跳转到最佳答案楼层

jojolam08

图中显示不出来文字类似“经营范围”的单元格自动拉开成匹配的单元格大小

爱疯

建议先上传excel 文件

jojolam08

上传附件~~

爱疯

jojolam08 发表于 2016-8-30 10:48
上传附件~~

Sub test()
    Dim x As Range
    Application.ScreenUpdating = False
    Sheets(1).UsedRange.EntireRow.AutoFit
    For Each x In Sheets(1).UsedRange
        If x <> "" And x.MergeCells And x.Address = x.MergeArea.Cells(1).Address Then x.RowHeight = getHeight(x)
    Next
End Sub

Function getHeight(x As Range)
    With Sheets(2)
        .Cells.Delete
        x.MergeArea.Copy .[a1]
        .[a1].UnMerge
        .[a1].ColumnWidth = 8.38 * x.MergeArea.Columns.Count
        .Rows("1:1").EntireRow.AutoFit
        getHeight = .[a1].Height
    End With
End Function
3.rar (15.46 KB, 下载次数: 8)

2016-8-30 11:44 上传

点击文件名下载附件

jojolam08

爱疯 发表于 2016-8-30 11:44
Sub test()
    Dim x As Range
    Application.ScreenUpdating = False

经营范围这个地方没有变化

爱疯

jojolam08 发表于 2016-8-30 11:49
经营范围这个地方没有变化

是哪个单元格没有变化呀?

下班了，只有下午再看了。。。。。。。

jojolam08

爱疯 发表于 2016-8-30 11:53
是哪个单元格没有变化呀?

下班了，只有下午再看了。。。。。。。

C9和C20~感谢大神~

爱疯

Sub test()
    Dim rng As Range
    Dim maxHeight As Integer
    Dim i As Integer
    Dim j As Integer
    Dim A

    '1）辅助区域
    Set rng = Sheets(2).[a1]
    rng.NumberFormat = "@"
    rng.WrapText = True

    '2）非合并单元格，也自适应行高
    Application.ScreenUpdating = False
    Sheets(1).UsedRange.EntireRow.AutoFit
    Sheets(1).UsedRange.ColumnWidth = 8.38

    '3）合并单元格
    A = Sheets(1).UsedRange
    For i = 1 To UBound(A)
        maxHeight = 0    '每行中，合格单元格最大的行高值
        For j = 1 To UBound(A, 2)
            If Cells(i, j) <> "" And Cells(i, j).MergeCells And Cells(i, j).Address = Cells(i, j).MergeArea.Cells(1).Address Then
'                Debug.Print Cells(i, j).Address, Cells(i, j).MergeArea.Width, Cells(i, j).Value
                '辅助单元格的列宽=合并单元格所在列宽
                rng.ColumnWidth = 8.38 * Cells(i, j).MergeArea.Columns.Count
                '放入值，以便自行改变行高
                rng.Value = Cells(i, j).Value
                '如果有了更大的行高，就更新maxHeight
                If rng.Height > maxHeight Then maxHeight = rng.Height
                '设置行高
                Cells(i, j).RowHeight = maxHeight
            End If
        Next j
    Next i
End Sub

4.rar (15.98 KB, 下载次数: 3)

2016-8-30 17:28 上传

点击文件名下载附件




现象：C9，C20的字符串长度都是331（即>255），在excel2003中C9和C20都显示连续#。
说明：因为03规范只允许一个单元格中的字符串长度最多255，否则显示连续#。
解决：使用03以后的版本。

爱疯

03里单元格中的字符长度超过255会显#.rar (7.96 KB, 下载次数: 4)

2016-8-30 17:39 上传

点击文件名下载附件


Sub test()
    With [a1]
        .NumberFormat = "@"
        .WrapText = True
        .EntireRow.AutoFit
        .Value = String(InputBox("字符的长度:", "请输入", 255), "1")
    End With
End Sub



这例子是为了说明上楼的观点。
没找到直接的帮助，希望能找到。