Excel 寻找Strright的VBA等效项

正在寻找LotusScript的Strright的VBA等效项。该代码段用于将错误消息连接到一个单元格中

你可以使用Join

或者使用此模式：

If IsError = True Then
   Dim sep
   tmpMsg = ""
   For Each v In errormsg
       tmpMsg = tmpMsg + sep + v
       sep = ","
   Next v
   Cells(Row, 8).Value = tmpMsg
End If

仪表和仪表

If IsError = True Then
   Cells(Row, 8).Value = Join(errormsg, ",")
End If

If IsError = True Then
   Dim sep
   tmpMsg = ""
   For Each v In errormsg
       tmpMsg = tmpMsg + sep + v
       sep = ","
   Next v
   Cells(Row, 8).Value = tmpMsg
End If