2016-03-04 91 views

回答

1

说出这个词是qwerty。之前:

enter image description here

选择要处理和运行此短宏小区:

Sub ytrewq() 
    Dim qwerty As String, r As Range 
    Dim v As String 

    qwerty = " qwerty " 

    For Each r In Selection 
     v = r.Text 
     If InStr(1, v, qwerty) > 0 Then 
      r.Value = Split(v, qwerty)(0) 
      r.Offset(0, 1).Value = Split(v, qwerty)(1) 
     End If 
    Next r 
End Sub 

来实现:

enter image description here

+0

爱样本数据! – Jeeped

+0

@Jeeped我的孙女帮助了数据! –

+0

您是否认为将'v = r.Text'更改为'v = Replace(r.Text,qwerty,qwerty,,vbTextCompare)'是否值得删除区分大小写? – Jeeped

相关问题