用vba代码提取.前的6个字符到E列

weide_yang

D列中有N多类似的数据，想要用vba代码提取.前的6个字符到E列，恳请老师赐教，谢谢！
工作簿1.zip (10.96 KB, 下载次数: 14)

2024-9-22 11:34 上传

点击文件名下载附件

songshihai

没必要用vba,俩函数就解决了

excel玉米

下面是第一种解法：

1. Sub 提取()
   
2. Dim arr, i%, j%
   
3. With Sheet1
   
4.   arr = .Range(.Cells(3, 4), .Cells(9, 5))
   
5.   For i = LBound(arr) To UBound(arr)
   
6.     temp = Split(arr(i, 1), ".")(0)
   
7.     arr(i, 2) = Right(temp, 6)
   
8.   Next i
   
9.   .Cells(3, 4).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
10. End With
    
11. End Sub

复制代码

weide_yang

songshihai老师，我试用未成功，可以赐附件示教吗？谢谢！

micch

=mid(x,instrrev(x,".")-6,6)

weide_yang

谢谢micch老师，但是好像未能产生效果。

excel玉米

第二个方法，自定义函数：
在单元格里输入  =getsix(D3,".",6)
见附图

1. Function getsix(Str, diy1, diy2) '
   
2.    getsix = Right(Split(Str, diy1)(0), diy2)
   
3. End Function
   

复制代码

weide_yang

excel玉米老师，我这边显示的只是公式。

醉眼看尘世

先设置单元格格式为常规，再输入以下公式即可
=LEFT(RIGHT(D3,11),6)

weide_yang

excel玉米老师，我把单元格格式改为常规格式后，可以了！谢谢老师赐教！