我一直在寻找检查单元格中的每个字符,看它是否大写,但UCASE将字母转换为大写,但我希望能够检查.我不确定"做"这句话应该怎么做.
Function Italic(rng As Range) As Variant
Dim strng As String
Dim iEnd As Long, iIni As Long, strngLen As Long
strngLen = Len(rng.Value2)
iIni = 1
Do While iEnd <= strngLen
Do While UCase(Mid(rng.Value, iEnd, 1)) = Mid(rng.Value, iEnd, 1) And Not rng.Characters(iEnd, 1).Font.Italic
If iEnd = strngLen Then Exit Do
iEnd = iEnd + 1
Loop
If iEnd > iIni Then strng = strng & Mid(rng.Value2, iIni, iEnd - iIni) & "|"
iEnd = iEnd + 1
iIni …我试图消除所有小写字符,但VBScript正在删除所有下划线,小写字母和数字.我怎样才能使它只取出小写字母并且不会消除我的其他字符？
With CreateObject("VBScript.RegExp")
.Pattern = "[^A-Z ]"
.Global = True
For Each cell In Worksheets("Sheet1").Range("C1:C25")
If Not IsEmpty(cell.Value) Then _
cell.Value = Application.Trim(.Replace(cell.Value, ""))
Next cell
End With?
如何将多个分隔符用于split()函数？我想使用两个以上的单词作为分隔符,但我不确定这是怎么可能的.
c = Trim(t.value)
arr = Split(c, "hello" , "hi")