网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
06月05日
漏签
0
天
vba吧
关注:
16,767
贴子:
65,082
看贴
图片
吧主推荐
游戏
5
回复贴,共
1
页
<<返回vba吧
>0< 加载中...
求查找表1内的(a1到d5)单元格内是否含有公司两个字,如果
只看楼主
收藏
回复
caobao1235
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
求查找表1内的(a1到d5)单元格内是否含有公司两个字,如果某个单元格内的值含有公司两个字,则把这个单元格的公司前边的5个字提取出来修改为表的名称。譬如a1到d5单元格里有个单元格的值是”中国华为有限公司”的(不用考虑其他因素,a1到d5里边只有一个单元格的内容里含有公司),找出来这个单元格把这个表的名称修改为”国华为有限”。谢谢了
baifandu2013
武林新贵
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
这个不难:
Dim rng As Range
Dim rg As Range
Set rng = Range("a1:d5") '定义检索区域
For Each rg In rng
If InStr(rg.Value, "公司") > 0 Then '如果包含“公司”
s = Mid(rg.Value, 1, InStr(rg.Value, "公司") - 1) '截取“公司”之前的文字
ActiveSheet.Name = s '修改工作表名称
Exit For
End If
Next
北京勤哲软件技术
勤哲Excel服务器软件2024,用Excel自动生成基于web,移动APP和PC的简单的编程软件。软博会金奖产品,适合于各行各业的管理人员使用。
2024-06-05 15:58
广告
立即查看
lxm1782360074
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
替换
基金小虎哥
后起之秀
7
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
在你想放的单元格输入函数=mid(你想截取的文本的单元格,find("公司",你想查找文本的单元格)-6,5)双击填充即可。
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示