Excel VBA之去字符串空格及取年月日

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函数一个一个读取字符然后组合在一起，这样就达到了去空格的目的，没有正则表达式。