在Trim In In VBA中需要我的代码方面的帮助

Question

我在f -4长的char中具有我的主键我在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

Answer 1

Left(Cells(a, "X"),Len(Cells(a, "X").Value) - 10)仅在Cells(a,"X").Value的长度大于10个字符时起作用，否则您想要的字符数是负面的，这当然是不可能的。

您可以使用if-statement，也可以使用

之类的东西

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

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