ExcelVBA之去字符串空格及取年⽉⽇
sht.Range("AE3") = ""      ‘将要写⼊值的单元格清空
Dim ghdw  '定义购货单位变量
mid函数提取年月日ghdw = sht.Range("AE4")    ’变量取得单元格的字符串如“CH03 YJ”
For M = 1 To Len(ghdw)
If Mid(ghdw, M, 1) <> Chr(32) Then
MStr = MStr & Mid(ghdw, M, 1)
End If
Next
sht.Range("AE3") = "SEORD" & MStr & Year(Date) & Month(Date) & Day(Date)
‘⽣成诸如“SEORDCH03YJ2020527”这样的字符串。
说明：本来想⽤Replace去空格，可是有的字符前后也有空格，或者中间空格不⽌⼀个，⼲脆就⽤MID函数⼀个⼀个读取字符然后组合在⼀起，这样就达到了去空格的⽬的，没有正则表达式。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。