软件:excel
版本:2016
小弟VBA功力不好，因此都是先写好一部分确认可行，然后再组装进我要的档案。
之前我编写一个如下附图
https://i.imgur.com/EobzSvi.jpg
可行之后将他组装入我的宏档案，
可是执行到
Set a = Worksheets("raw").Cells.Find("To:", LookAt:=xlPart)
b = a.Address
就会卡住(如下附图)，请问是什么原因吗
https://i.imgur.com/dRYJI22.jpg

应该是没有找到任何to:的字可以在前面加上 on error resume next不过上下句子 对照起来 好像不符合逻辑单独用本身没问题 套用到你目前的做法应该是想要模糊搜寻有"TO:"的位置 并取得栏列如果有找到 就更改该位置的字体大小粗体但目前你的写法是 假设没找到时>改变该位置的字体大小粗体1.b无法带入任何资料会错误2.既然没找到的话 range(b)也无法正常判断 又会错误

把 b = a.Address 往下移三行(else 下一行)