站点介绍
如果要去掉某个字符串中的所有数字，例如将一个字符串“Excel123”去掉数字后变为“Excel”，可以用自定义函数来实现。按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在右侧的代码窗口中输入自定义函数：
Function RemoveNums(theString As String)
Dim eachChar, Temp As String
Dim i As Integer
Temp = ""
For i = 1 To Len(theString)
eachChar = Mid(theString, i, 1)
If Asc(eachChar) < 48 Or Asc(eachChar) > 57 Then
Temp = Temp & eachChar
End If
Next
RemoveNums = Temp
End Function
excel利用VBA互换两个单元格或区域中的数据
有时需要在Excel工作表中互换两个区域中的数据，如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换两列时可以直接单击工作表上方的列标题选择整列，然后执行代码互换数据。 在工作表中选择两个形状相同的、无公共部分的区域，然后执行下面的代
假如包含数字的字符串在A1单元格，在B1单元格中输入
=RemoveNums(A1)
即可返回一个去掉数字后的字符串，如果字符串全部由数字组成，则返回空字符串。
excel利用VBA将文本字符串的首字母变成大写
下面的VBA代码可以将活动工作表中的所有文本字符串的首字母改为大写，对包含公式单元格则不作更改。 Sub CapitalizeFirstLetter()Dim Rng As RangeActiveSheet.UsedRange.SelectFor Each Rng In Selection.CellsIf Rng.Ha
浏览统计(最近30天)
相似站点
