区域2里面有哪些包含了区域1里面的字段呢?6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
工具/原料
方法/步骤
1新建一个工作簿6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
1该信息未经授权抓取自百度经验2写上数据6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
3打开代码窗口6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
4插入模块6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
5复制代码到模块里面6OT办公区 - 实用经验教程分享！
Suba2018年05月21日22时33分44秒()6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
Set单元格区域1=Application.InputBox("包含字段区域",,,,,,,8)6OT办公区 - 实用经验教程分享！
Set单元格区域2=Application.InputBox("数据区域",,,,,,,8)6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
ForEach单元格1In单元格区域16OT办公区 - 实用经验教程分享！
ForEach单元格2In单元格区域26OT办公区 - 实用经验教程分享！
位置=InStr(1,单元格2,单元格1)6OT办公区 - 实用经验教程分享！
If位置>0Then6OT办公区 - 实用经验教程分享！
'也就是说找到了6OT办公区 - 实用经验教程分享！
长度=Len(单元格1)6OT办公区 - 实用经验教程分享！
单元格2.Characters(位置,长度).Font.ColorIndex=36OT办公区 - 实用经验教程分享！
EndIf6OT办公区 - 实用经验教程分享！
Next6OT办公区 - 实用经验教程分享！
Next6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
EndSub6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6运行一下,依次选择区域6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
7完成啦6OT办公区 - 实用经验教程分享！
6OT办公区 - 实用经验教程分享！
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！6OT办公区 - 实用经验教程分享！
