运行宏代码时为何工作表的函数公式变成数值？

huaxia5qiannian

请教大神：

1、“生产7月”工作表的J、K、M、N以及AV到BZ列都设置有函数公式，在未点击左上角的“更新数据”时，也就是未运行宏代码时，这些列 的函数公式都是存在的，但是一旦点击“更新数据”按钮运行代码时，这4列的函数就变为数值了。                                                               

2、本人小白一个，  宏的代码是由“ISC900707 大神（李老师）”编写的，写的很完美，在此， 向李老师表示感谢；仅因本人当时未发现这个问题，所以在此，重新发帖，请求大神们，帮忙解决一下，在运行代码时，工作表单元格内原有的公式依然存在，请帮忙看一下代码，万分感谢！                                         

lsc900707

1. Sub gj23w98()
   
2. Dim d, sht As Worksheet, arr, i As Long, s As String   '定义变量
   
3.     Set d = CreateObject("scripting.dictionary")    '创建字典
   
4.     For Each sht In Sheets    '循环
   
5.          If sht.Name <> ActiveSheet.Name And InStr(sht.Name, "-") Then '判断工作表是否为当前活动工作表且遍历包含带有"-"的工作表
   
6.             With sht
   
7.                 arr = .[a1].CurrentRegion   '获取带有"-"工作表的已用区域
   
8.                 For i = 2 To UBound(arr)   '循环
   
9.                     s = arr(i, 1) & arr(i, 7)  '合并带有"-"工作表的A列和G列的值
   
10.                     d(s) = arr(i, 9) '向字典存入数据
    
11.                 Next
    
12.             End With
    
13.         End If
    
14.     Next
    
15.     brr = [a1].CurrentRegion  '获取活动工作表的已用区域
    
16.     For i = 4 To UBound(brr)
    
17.         For j = 16 To UBound(brr, 2) - 10
    
18.             s = brr(3, j) & brr(i, 2) '合并活动工作表的B4和P3的值
    
19.             If d.exists(s) Then Cells(i, j) = d(s) '判断带有"-"工作表合并后的值是否被包含在活动工作表的B4和P3的值内
    
20.         Next
    
21.     Next
    
22. End Sub
    

复制代码

lsc900707

以后最好事先说明一下。

huaxia5qiannian

lsc900707 发表于 2018-7-24 16:44

大神就是大神，由衷的感谢ISC900707 老师的多次帮助，既耐心，又热心，这种无私的奉献精神，不得不赞一个！

huaxia5qiannian

lsc900707 发表于 2018-7-24 16:51
以后最好事先说明一下。

好的。刚开始没意识到这个问题！