Excel VBA常见问题:如何用vba实现删除最右边的字符?

2015-04-15 15:12 阅读 315 次 评论关闭

Excel VBA常见问题如何用vba实现删除最右边字符

问题:1月、2月、3月...........10月、11月、12月
请问如何用vba实现把“月”删除 只提取:1、2、3.......10、11、12。

解答:

Sub abc()
Dim a As Integer
Dim b As String
Dim c As String
c = ""
For a = 1 To Len(b)
    c = c & IIf(Mid(b, a, 1) <> "月", Mid(b, a, 1), "")
Next
MsgBox c
End Sub

或者:

A1= 1月、2月、3月、4月、5月、6月、7月、8月、9月、10月、11月、12月
[A1] = Application.WorksheetFunction.Substitute([A1], "月", "")

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA常见问题:如何用vba实现删除最右边的字符? | 猎微网

评论已关闭!