2020年3月2日
取字母
摘要： Sub text()Dim i As IntegerDim txt As StringDim texnkyy As Stringtexnyy = ""txt = "face"For i = 1 To Len(txt) ‘ Len =多少个字符If Not Mid(txt, i, 1) Like "[ 阅读全文
posted @ 2020-03-02 22:56 星翊 阅读(120) 评论(2) 推荐(0) 编辑