有不有宏命令能在每个单元格里面文字上面和下面增加一个回车了？？？

chen8587216

主要是为了解决excel表格压字的问题，有不有这个宏命令了？我只知道能增加自动行高的倍数的，这个增加回车的就不知道有不有了。。。。

海好呀

ActiveCell.FormulaR1C1 = "aaaa" & Chr(10) & "bbbb" & Chr(10) & "cccc" & Chr(10) & "dddd"

chen8587216

海好呀 发表于 2023-4-26 20:21
ActiveCell.FormulaR1C1 = "aaaa" & Chr(10) & "bbbb" & Chr(10) & "cccc" & Chr(10) & "dddd"

如果是多行多列了？能一键添加所有的行列，或者是选取的单元格添加回车。。。。

还是希望大佬能写一个宏命令，我好添加到收纳箱里面。。。。。。

1121228509

Option Explicit
Sub 选定区域单元格回车换行()
Dim Arr As Variant
Dim hh As Long, hs As Long, Lh As Long, Ls As Long
hh = Selection.Areas.Count
If hh <> 1 Then
    MsgBox "选定了多个区域，无法处理回车换行符", vbInformation, "不可选定多个区域"
Else
    hs = Application.Selection.Rows.Count
    Ls = Application.Selection.Columns.Count
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False '删除空格
    Selection.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    If hs = 1 And Ls = 1 Then
        Selection = Chr(10) & Selection & Chr(10)
    Else
        Arr = Selection
        ReDim Brr(1 To hs, 1 To Ls) As Variant
        For hh = 1 To hs
            For Lh = 1 To Ls
                If Arr(hh, Lh) = "" Then
                    Brr(hh, Lh) = ""
                Else
                    Brr(hh, Lh) = Chr(10) & Arr(hh, Lh) & Chr(10)
                End If
            Next Lh
        Next hh
        Selection = Brr
        Set Arr = Nothing
        Erase Brr
    End If
End If
End Sub

选定区域单元格回车换行.rar (19.21 KB, 下载次数: 6)

2023-4-27 00:13 上传

点击文件名下载附件

蔡泽哥

自动换行不就可以了嘛

chen8587216

蔡泽哥 发表于 2023-4-27 08:07
自动换行不就可以了嘛

还是会压字，打印出来还是压字了。。。。

chen8587216

1121228509 发表于 2023-4-27 00:13
Option Explicit
Sub 选定区域单元格回车换行()
Dim Arr As Variant

谢谢大佬了，试了一下真的成功。。。。唯一的就是超过了表格的极限高度（增加了一行合并的单元格）无法判断，这个一般很少，手动微调一下就可以的。。。。。

chen8587216

1121228509 发表于 2023-4-27 00:13
Option Explicit
Sub 选定区域单元格回车换行()
Dim Arr As Variant

你好，这个宏命令没有问题，就是如果文字是四号字体的话，这个回车的符号也是四号字体，显得间距有点大，能不能改小一点了？？？有一点间距，不压字为最佳。。。