去除文本框首尾空行 If Left(Text2,2)&61;Chr(13)&Chr(10)Then Text2&61;Right(Text2,Len(Text2)-2)End If If Right(Text2,2)&61;Chr(13)&Chr(10)Then Text2&61;Left(Text2,Len(Text2)-2)End IfEnd Sub总结&...
去除文本框首尾空行 If Left(Text2,2)&61;Chr(13)&Chr(10)Then Text2&61;Right(Text2,Len(Text2)-2)End If If Right(Text2,2)&61;Chr(13)&Chr(10)Then Text2&61;Left(Text2,Len(Text2)-2)End IfEnd Sub总结&...