如何从B列中截取某些字段到C列:
方法1:使用MID函数(字符串,开始位置,字符个数);
方法2:使用VBA代码实现。
方法1:
方法2:
若是截取的内容数量不固定,则可以使用下述方式,代码如下所示:
Sub ExtractCode()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "D").End(xlUp).Row ' 获取D列最后一行行号
Dim i As Long
For i = 1 To lastRow ' 从第1行开始循环
If InStr(Cells(i, "D").Value, "(") > 0 Then ' 如果包含括号
Dim code As String
code = Trim(Split(Cells(i, "D").Value, "(")(1)) ' 使用Split函数截取括号中的代码
code = Left(code, Len(code) - 1) ' 使用Left函数去掉右括号
Cells(i, "E").Value = code ' 将截取到的代码填充到E列
Cells(i, "D").Value = Trim(Split(Cells(i, "D").Value, "(")(0)) ' 将D列的值保留代码名称
Cells(i, "E").NumberFormat = 0 '若是数字过长,且不希望写成科学计数法格式
Else ' 如果不包含括号
Cells(i, "E").Value = "" ' E列留空
End If
Next i
End Sub
效果图对比:
截取前:
截取后: