如何在Excel表格中查询一行中连接的数据？

代码:

Sub？答()

范围(单元格(1，1),?细胞(65536，？100))内饰.格局？=?xlNone

暗淡？我？作为？长的

暗淡？qsz？作为？龙？开始值，结束值

暗淡？zzz？作为？长的

为了什么？我？=?2?去哪？65536

如果？细胞(我，？1)?=?""?然后

退出？为

结束？如果

zzz？=?Range("iv "？& amp？我)。End(xlToLeft)。圆柱

为了什么？qsz？=?2?去哪？打鼾声

如果？细胞(我，？qsz)？& lt& gt？""?然后呢。细胞(我，？qsz？+?1)?& lt& gt？""?然后呢。细胞(我，？qsz？+?2)?& lt& gt？""?然后

范围(单元格(即，qsz)，？细胞(我，？qsz？+?2)).Interior.ColorIndex？=?六

结束？如果

下一个？qsz

下一个？我

结束？子效果:

用法:打开一个新的表格，点击alt+f11，然后将这个区域向左交(下图)。

右键单击，插入模块，将这段代码粘贴到右边的空白代码区。

然后在当前使用的工作表中的效果图中输入格式(即三个或三个以上非空的连续部分)，点击运行，然后自动改变颜色。