Excel VBA中提取左列单元格只保留数字，将字母保存到右列，代码如何编写？
答案:1 悬赏:0 手机版
解决时间 2021-03-17 09:21
- 提问者网友：杀生予夺
- 2021-03-16 17:34
Excel VBA中提取左列单元格只保留数字，将字母保存到右列，代码如何编写？
最佳答案
- 五星知识达人网友：千杯敬自由
- 2021-03-16 17:54
按ALT+F11，插入-模块，复制下列语句
FunctionSplitNumEng(str As String, sty As Byte)
Dim StrA As String
Dim StrB As String
Dim StrC As String
Dim i As Integer
Dim SigS As String
For i = 1 To Len(str)
SigS = Mid(str, i, 1)
If SigS Like "[a-zA-Z]" Then
StrA = StrA & SigS
ElseIf SigS Like "#" Then
StrB = StrB & SigS
Else
StrC = StrC & SigS
End If
Next i
Select Case sty
Case 1
SplitNumEng = StrA
Case 2
SplitNumEng = StrB
Case Else
SplitNumEng = StrC
End Select
EndFunction
比如你的数据在A1
B1输入 =SplitNumEng(A1,1)
C1 =SplitNumEng(A1,2)
FunctionSplitNumEng(str As String, sty As Byte)
Dim StrA As String
Dim StrB As String
Dim StrC As String
Dim i As Integer
Dim SigS As String
For i = 1 To Len(str)
SigS = Mid(str, i, 1)
If SigS Like "[a-zA-Z]" Then
StrA = StrA & SigS
ElseIf SigS Like "#" Then
StrB = StrB & SigS
Else
StrC = StrC & SigS
End If
Next i
Select Case sty
Case 1
SplitNumEng = StrA
Case 2
SplitNumEng = StrB
Case Else
SplitNumEng = StrC
End Select
EndFunction
比如你的数据在A1
B1输入 =SplitNumEng(A1,1)
C1 =SplitNumEng(A1,2)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯