建议楼主截图看看吧[t25].SelectFor Each c In Selectionc.Value = Left(c.Value, Len(c.Value) -17)Next上面这段代码,只能修改Selection.CELLS(1)这个单元格对应的内容其他的实际上其他对应的都是空白也就是说,如果[t25]是个合并单元格,那么上面的代码是要报错的
合并单元格只有第一格有内容,循环毫无意义。