自动换行;限制每行的字符数

Question

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

是否有一个公式，我可以使用它来描绘这些信息几乎没有操纵。可能没有分词？

以下是我正在使用的公式示例，包含文本：符合此信息的单元格为“EM”

= IF（AF1143 = 0，“NO TOOLING NEEDED / NO PO TO ISSUE”，CONCATENATE（“供应商：”，T1143，“将构建”，CA1143，“能够始终如一地生产PN的工具”，I1143，“每个公司＆ “，E1143，”提供了发布的图纸和3D数据，以满足“，G1143”计划和服务生命周期的100％生产要求。工具付款条款：1/3收到工具PO发行，1/3收到首件零件{首件提交} {{包括完整版面数据和工具数据表以及1/3收到PPAP批准来自“，”，“E1143”，签署的PSW将足以进行此确认。“， “请与上述所有信息保持联系，以免延误付款。上述截止日期仅为估算。实际日期由”，“，”E1143“，”，“确定。”，“每周工具进度报告（TPR）必须以“，”，“E1143”提供给NPC;这些TRP必须以两周的间隔提供。否则将导致付款延迟{TPR样本可以从供应商处查看TAL / SQAM。关键事件时间：请参阅“，E1143”，“，”NPC时间表 - 如果没有NPC时间表，请联系买方索取。原产地：工具将在以下位置生产：“，BW1143，”FOB：“，T1143，”“，BW1143，附加信息：PN，”“，I1143，”“，K1143，”“，”工具总计：“， AF1143，“”，“每个工具的成本：”，AR1143，“”，“推理：”，AS1143，“”，“详细工具信息：”，AT1143，“”，“ECI：{if applicable}：”，DW1143 ，“”，“交货时间：”，EL1143，“”，“SOP假设：”，O1143，“”，“批量生产/生活计划{年}：”，Q1143，“工具发送至供应商：”，DG1143 ，“”，“设计审查日期：”，DE1143，“”，DF1143，“”，“CER跟踪号码：”，FB1143，“”，“帐号”＃“，FC1143，”“，”工具PO＃： ”，EN1143， “”）。）

Answer 1

这就是我的意思：

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