请教各位老师，关于excel复制公式到新表中，怎么样能不带路径。。

MarsYu908

思路是这样的，用替换，把公式里的引用的表去掉。具体你试试

1. ThisWorkbook.Sheets(1).Cells(12, 12).Copy ThisWorkbook.Sheets(1).Cells(12, 13)
   
2.     ThisWorkbook.Sheets(1).Cells(12, 13).Formula = Replace(ThisWorkbook.Sheets(1).Cells(12, 13).Formula, "[BF.xlsm]BF!", "")

复制代码

cqcbc

这个需求很实际，希望不用替换的方法，而是用通用的处理方法，盼有高手解决。

zhujiayi1991

MarsYu908 发表于 2016-9-28 16:27
思路是这样的，用替换，把公式里的引用的表去掉。具体你试试

这样要替换的地方很多，，一个个去替换吗？、

MarsYu908

还是需要用替换，只不过可以批量替换
代码：

1. With ActiveWorkbook.Sheets.Add
   
2.             ThisWorkbook.Sheets("BF_Result").Cells.Copy .Range("A1")
   
3.             Call .Cells.Replace("[BF.xlsm]BF", "Sheet1")
   
4.         End With

复制代码

演示附件：
BF.zip (353.23 KB, 下载次数: 18)

2016-9-29 14:27 上传

点击文件名下载附件

MarsYu908

zhujiayi1991 发表于 2016-9-29 11:53
这样要替换的地方很多，，一个个去替换吗？、

批量替换

1. 
   
2. With ActiveWorkbook.Sheets.Add
   
3.     ThisWorkbook.Sheets("BF_Result").Cells.Copy .Range("A1")
   
4.     Call .Cells.Replace("[BF.xlsm]BF", "Sheet1")
   
5. End With
   

复制代码

zhujiayi1991

MarsYu908 发表于 2016-9-29 14:27
还是需要用替换，只不过可以批量替换
代码：

谢谢老师，但是这个如果更换下文件名又都得改，除此之外没有别的办法吗？

zhujiayi1991

MarsYu908 发表于 2016-9-29 14:29
批量替换

老师，在提个问题，另外生成的折线图中，是怎么替换的？

zhujiayi1991

冒个泡，，，求高手。。。

zhujiayi1991

折线图已经琢磨出来了，思路就是生成新表用录制宏再重新根据新数据画图，不复制。

biogene

“公式”--“显示公式”--复制到word文件--复制粘贴到表格！