vba字符串才分组和转换

'left,right,mid,Len

Sub z1()

  Dim sr

  sr = 'Excel教学教程网'

  Debug.Print Left(sr, 5)

  Debug.Print Right(sr, 5)

  Debug.Print Mid(sr, 3, 5)

  Debug.Print Left(sr, Len(sr) - 1)

End Sub

'split

 

Sub z2()

  Dim sr, arr

  sr = 'Excel的教学的教程网'

  arr = Split(sr, '的')

  Debug.Print UBound(arr)

End Sub

'val

 Sub z3()

  Dim sr

  sr = '89.90美元'

  Debug.Print Val(sr)

 End Sub

'字符串组合

 '&

 Sub a4()

  Debug.Print 'a' & 'b'

 End Sub

 'join

  

 Sub a5()

  Dim sr, arr

  sr = 'Excel-教学-教程网'

  arr = Split(sr, '-')

  Debug.Print Join(arr, '+')

End Sub

'instr 从前向后查

Sub c1()

  Dim sr

  sr = 'Excel教学教程'

  Debug.Print InStr(sr, '教学') > 0

End Sub

'InStrRev 从后向前

Sub c2()

  Dim sr

  sr = 'Excel教学教程论坛'

  Debug.Print InStr(sr, '程')

End Sub

'Replace替换

Sub c5()

 Dim sr

  sr = 'Excel教学教程培训网'

  sr = Replace(sr, '培训网', '论坛')

  Debug.Print sr

End Sub

'mid语句替换

Sub c6()

 Dim sr

  sr = 'Excel教学教程培训网'

  Mid(sr, 8, 3) = '论坛'

  Debug.Print sr

End Sub

'LCase 转换成小写

Sub z1()

  Debug.Print LCase('ABC')

End Sub

'UCcae 转换成大写

Sub z2()

  Debug.Print UCase('Abc')

  

End Sub

'StrConv 函数

'常数 值 说明

'vbUpperCase 1 将字符串文字转成大写。

'vbLowerCase 2 将字符串文字转成小写。

'vbProperCase 3 将字符串中每个字的开头字母转成大写

Sub 转换()

  Debug.Print VBA.StrConv('wHo ARE you?', vbProperCase)

  

End Sub

Sub 转换2()

 Dim i As Long

Dim x() As Byte

x = StrConv('ABCDEFG', vbFromUnicode)    ' 转换字符串。

Debug.Print Application.Min(x)

For i = 0 To UBound(x)

    Debug.Print x(i)

Next

End Sub

'TRim删除两端空格

'Ltrim 删除左边空格

'Rtrim 删除右边空格

 Sub z3()

 Dim sr

 

 sr = ' A B BC '

 Debug.Print Trim(sr)

 Debug.Print LTrim(sr)

 Debug.Print RTrim(sr)

 End Sub

 

'ASC 返回一个 Integer，代表字符串中首字母的字符代码,ANSI 字符集

'CHr 返回 String，其中包含有与指定的字符代码相关的字符

Sub z4()

  Debug.Print Asc('Z')

  Debug.Print Chr(90)

End Sub

'Space 和 string生成重复的字符

 Sub z5()

 

    Debug.Print 'A' & Space(10) & 'B'

    Debug.Print 'C' & String(10, 'a') & 'D'

    

 End Sub