Excel 换行文本；限制每行字符数

我正在创建一个公式或vba来限制每行连接的信息。我需要在应用程序中粘贴此内容，但空间“49个字符”有限

有没有一个公式，我可以用来得到这些信息描绘很少或没有操纵。可能不会有文字分裂

以下是我当前使用的公式示例，带有包装文本： 符合此信息的单元格为“EM”

=如果（AF1143=0，“无需工具/无需发布采购订单”），则连接（“供应商：”，T1143，“将构建一个”，CA1143，“能够持续 生产PN”，I1143，“每家公司和”，E1143，“已发布 图纸和3D数据，以满足项目100%的生产要求 “G1143”计划和服务的寿命。模具付款条件：1/3 收到工装采购订单后，1/3收到首件 {第一篇文章提交}{{包括完整的布局数据和工具 数据表和1/3至收到来自“E1143”的PPAP批准， 签字的PSW将足以确认此确认。”，“请保留 与公司买方联系，了解所有上述信息-不包括 延迟付款。上述到期日期仅为估计日期。实际日期为 由“，”E1143“，”每周工具进度报告（TPR）确定 必须提供给NPC，地址为“E1143”，必须提供这些TRP 每两周一次。否则将导致付款延迟 {可从供应商门户/SQAM查看TPR示例。关键事件 时间安排：请参考“E1143”，“NPC计划-如果NPC计划是 不可用，请联系买家获取副本。原产国：工具 将于：，BW1143，，，离岸价：，T1143，，，BW1143，附加 信息：零件号、I1143、K1143、工装总数、AF1143、 “每种工具的成本：”，AR1143，“，“推理：”，AS1143，“，”详细说明 工具信息：“，AT1143，”，“ECI:{如果适用}:”，DW1143，“ “交付周期：”，EL1143，”，“SOP假设：”，O1143，“，“质量 生产/寿命计划{years}:”，Q1143，“发送给供应商的工具： ，DG1143，，“设计审查日期：”，DE1143，，“DF1143，”，“CER 跟踪号：“，FB1143，”，“账号，”，FC1143，“，“工具 PO:“，EN1143，”。”）

我的意思是：

Public Function LimitLine (StringToLimit As String, NumberOfLetters As Integer) As String
    Dim TheString As String
    Dim Output As String
    Dim CommaLoc As Integer
    Dim BlankSpaceLoc As Integer

    Output = ""
    TheString = StringToLimit

    Do WHile Len(TheString) > NumberOfLetters
        BlankSpaceLoc = InStrRev(Left(TheString, NumberOfLetters), " ")
        CommaLoc = InStrRev(Left(TheString, NumberOfLetters), ",")
        If BlankSpaceLoc > CommaLoc Then
              Output = Output & Left(TheString, BlankSpaceLoc) & vbCr
              TheString = Right(TheString, Len(TheString) - BlankSpaceLoc)
        Else
              Output = Output & Left(TheString, CommaLoc) & vbCr
              TheString = Right(TheString, Len(TheString) - CommaLoc)
        End If
    Loop
    Output = Output & TheString
    LimitLine = Output
End Function

---

您可以尝试在字符串的前49个字符中反向搜索某些字符（空格、逗号等）。然后将字符串的第一个字符一直保留到这一点，附加一个回车符，然后在剩余的字符串上重复。这至少是一个起点。理解，并希望这样做，但我的连接信息的长度可能会有所不同。不清楚您到底想做什么。没有办法将所有这些内容都放进去49个字符，如果您必须手动执行，您会怎么做？没有id，每49个字符都会硬返回单元格，创建一个包装单元格，单元格中的所有信息限制为每行49个字符。