Sub 提取中間值()
For i = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
c = ActiveSheet.Cells(i, 1).Value
ActiveSheet.Cells(i, 2).Value = Mid(c, 5, 2)
Next
End Sub
vba：提取字符串中間字符
免責聲明！
本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。