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