换行；限制每行的字符数答案

【问题标题】：Wrap Text; limiting character count per line换行；限制每行的字符数
【发布时间】：2015-03-13 17:55:21
【问题描述】：

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

是否有一个公式可以让我在几乎不进行任何操作的情况下获取这些信息。可以不分词吗？

以下是我当前使用的公式示例，带有换行的文本：编译此信息的单元格是“EM”

=IF(AF1143=0,"NO TOOLING NEEDED/NO PO TO ISSUE",CONCATENATE("Supplier: ",T1143," 将构建一个 ",CA1143," 工具能够始终如一地生产 PN ",I1143," per COMPANY & ",E1143," 提供发布图纸和 3D 数据，以满足 100% 的生产要求 “,G1143”计划和服务的生命周期。模具付款条款：1/3 收到工装采购订单，1/3收到首件 {第一篇文章提交} {{包括完整的布局数据和工具数据表和 1/3 到收到 PPAP 批准来自","",E1143,", 签署的 PSW 将足以进行此确认。 ","请继续与公司买家联系并提供所有上述信息-至于不延迟付款。上述截止日期仅为估计值。实际日期是由“，”，E1143，“，”确定。 ","每周工具进度报告 (TPR) 必须在“，”，E1143，，提供给NPC；必须提供这些 TRP 作为两周的间隔。否则将导致付款延迟 {可以从供应商门户/SQAM 查看 TPR 示例。关键事件时间安排：请参考",E1143," ","NPC Schedule- 如果 NPC Schedule 是不可用，请联系买家索取副本。原产国：工具将在: ",BW1143," FOB: ",T1143," ",BW1143, Additional 信息： PN," ",I1143," ",K1143," ","工装总数: ",AF1143," ","每个工具的成本: ",AR1143," ","推理: ",AS1143," ","详细工具信息：",AT1143," ","ECI: {如果适用}: ",DW1143," ","交货时间: ",EL1143," ","假定 SOP: ",O1143," ","质量生产/寿命计划 {years}: ",Q1143, "Tool Go 发送给供应商： ",DG1143," ","设计审查日期: ",DE1143," ",DF1143," ","CER 追踪号码 #: ",FB1143," ","帐号# ",FC1143," ","工具 PO#: ",EN1143,"."))

【问题讨论】：

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

标签： excel vba concatenation word-wrap

【解决方案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

【讨论】：