Sub test() Dim rng As Range Application.DisplayAlerts = False Set rng = Selection For Each r In rng s = s & r Next rng.Merge rng.Value = s Application.DisplayAlerts = TrueEnd Sub如果像你那样填写的话,其实是要将三个单元格的 ““内容”” 合并。但是,你的源数据的单元格“F486”同时也想作为目标单元格“F486”!这就涉及到“循环引用”的问题啦。并且,即使你允许循环引用,当你在开始编辑F486单元格的公式的时候,进入循环引用的第一个F486值已经是一个空值啦。像你这种情况,插入一行来填 =F486&…… 不行吗?如果考虑到其他数据而致步骤繁琐的问题,不如你将表格的大概格式截图,并说说你的意图,这样才利于找到途径解决问题。在第10行输入=a1&a2&a3....&a9(全部行要写进来)如果行有多个单元格内容,通用的是:假设第1、2行内容需要合并。在第3行第一个格输入=a1&a2,回车,然后把公式向右拉。如果不想向右拉,可以先把第1、2行转成列:选中第1行内容(不能全选整行)---复制---选定空列中的第一格---选择性粘贴----转置。第2行同样操作。假设转置后在第i、j列,在第k列输入=i1&j1,回车,双击填充公式。把第k列转换成文本后再转置成行。如果需要合并的行太长,第二种方法比较方便。不明白可以再问。