从倒数的第 3 位开始，取4位值

baigangliao · 发表于 2017-8-30 17:29

提示: 作者被禁止或删除内容自动屏蔽

baigangliao · 发表于 2017-8-30 21:26

提示: 作者被禁止或删除内容自动屏蔽

dqhtju · 发表于 2017-8-30 21:38

我非常想看到高手对这样的问题的解答

baigangliao · 发表于 2017-8-30 21:50

提示: 作者被禁止或删除内容自动屏蔽

chxw68 · 发表于 2017-8-30 22:47

Sub test()
Dim r%, i%
Dim arr, brr
With Worksheets("sheet1")
arr = .Range("b4:m6")
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
brr = Split(arr(i, j), ",")
If UBound(brr) > 2 Then
arr(i, j) = brr(0)
Else
arr(i, j) = ""
End If
Next
Next
.Range("b11").Resize(UBound(arr), UBound(arr, 2)) = arr
End With
End Sub

复制代码

chxw68 · 发表于 2017-8-30 22:47

详见附件。

baigangliao · 发表于 2017-8-30 23:01

提示: 作者被禁止或删除内容自动屏蔽

baigangliao · 发表于 2017-8-30 23:10

提示: 作者被禁止或删除内容自动屏蔽

乐乐2006201505 · 发表于 2017-8-30 23:35

刚试了一下，以你目前数据来说，下面公式完全满足了你的要求。开始的时候是你没有模拟数据，不然这个问题早就解决了。不管怎么说，还是我师父褚老师厉害。
我刚在外边了，手机上看到你最后需要的结果后，就知道怎么用公式解决了，但公式还是不如VBA代码方便，主要是数据量大的话，公式在速度方面就很有问题了。
=IFERROR(IF(AND(FIND(",",B4,1)<3,LEN(B4)>6),MID(B4,1,FIND(",",B4,1)-1),IF(AND(FIND(",",B4,1)>2,LEN(B4)>8),MID(B4,1,FIND(",",B4,1)-1),""))," ")

乐乐2006201505 · 发表于 2017-8-30 23:36

又是“回复需要审核，请等待通过”。郁闷！
=IFERROR(IF(AND(FIND(",",B5,1)<3,LEN(B5)>6),MID(B5,1,FIND(",",B5,1)-1),IF(AND(FIND(",",B5,1)>2,LEN(B5)>8),MID(B5,1,FIND(",",B5,1)-1),""))," ")

		自动登录	找回密码
密码			免费注册

[求助] 从倒数的第 3 位开始，取4位值

评分

评分

评分

最新热点 /1

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	楼主\| 发表于 2017-8-30 17:29 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	楼主\| 发表于 2017-8-30 21:26 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	楼主\| 发表于 2017-8-30 21:50 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	楼主\| 发表于 2017-8-30 23:01 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	楼主\| 发表于 2017-8-30 23:10 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报