sht.Range("AE3") = "" ‘将要写入值的单元格清空
Dim ghdw '定义购货单位变量
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函数一个一个读取字符然后组合在一起，这样就达到了去空格的目的，没有正则表达式。
