在 VBA 中使用 Trim 获取长度代码需要帮助答案

【问题标题】：Need assistance with my Code for Length with Trim in VBA在 VBA 中使用 Trim 获取长度代码需要帮助
【发布时间】：2019-03-01 22:50:13
【问题描述】：

我在 F 列中有我的主键 - 长度为 4 的字符我在 X 列中有实体名称 - 1 到 40 个长度字符

我需要连接两列并在 CD 列中生成结果。

但列 CD 的长度应少于 20 个字符。当总字符数超过 20 时，我的以下代码可以正常工作，但当连接数小于 20 时会引发错误。

有人可以建议我哪里出错了吗？

Range("CD1") = "Standard_Beneficiary"
For a = 2 To Cells(Rows.Count, "F").End(xlUp).Row
        Cells(a, "CD").Value = Cells(a, "F").Value & "_" & Left(Cells(a, "X"), Len(Cells(a, "X").Value) - 10)
 Next a

【问题讨论】：

Cells(a, "CD").Value = Left(Cells(a, "F").Value & "_" & Cells(a, "X").Value, 20)
非常棒的时光。该代码有效。非常感谢。

标签： excel vba

【解决方案1】：

Left(Cells(a, "X"),Len(Cells(a, "X").Value) - 10)只在Cells(a,"X").Value的长度大于10个字符时有效，否则你想要的从左边开始的字符数是负数当然是不可能的。

你可以使用 if 语句，或者使用类似的东西

application.worksheetfunction.max(1,Len(Cells(a, "X").Value) - 10)

而不是Len(Cells(a, "X").Value) - 10，以确保它始终为正数。

【讨论】：