VBA中 range（）显示格式的问题

有这样的一句代码 thisworkbook.worksheets(1).range("A1")="=1+2+3+4+5+6"
执行该句，会看到excel表格里面A1格子内显示21但是点击该格子会发现上方编辑栏中显示=1+2+3+4+5+6这种格子显示运算结果 编辑栏显示运算算式的样子正是我想要的，但是再往后，我想要的效果是这样的：继续在此格子内用vba语句添加进去算式的加数。比如想要显示1+2+3+4+5+6+7 A1格子经过处理以后仍然会显示运算结果28而编辑栏显示=1+2+3+4+5+6+7
但是当我用语句 (with 语句省略) .range("A1")=.range("A1") & "+7" 的时候在编辑栏显示的内容变成了21+7
我用 .range("A1")=“=7+” & .range("A1")的时候也仅仅是运算结果正确格子内显示=7+21
我如果用.range("A1")=.range("A1")+7的话更是达不到效果啊。。。。
就以上问题，求教大神如何解决。。。十分感谢啊
如何能在一个格子内以=1+2+3+4+5+6。。。。等等的形式不断的添加我需要的数字。。。就像手动操作excel表格一样。。。我想要让编辑栏显示运算式也就是运算过程。。。不破坏这个形式的用VBA方法添加我想要添加进去的后期加数。。。谢谢了啊。。。

请改成这个：
.range("A1")=.range("A1").formula & "+7"

sheets("sheet1").range(sheets("sheet1").cells(1,1),sheets("sheet1").cells(3,3)) 这样写才对