求助：用VBA代码批量将公式中引用的值计算过程呈现出来

Fc1984

wdx223 发表于 2018-8-23 15:43
执行代码的工作名称是“sheet1”吗？

是啊  该改的都改了啊

wdx223

执行到哪一步报错的？

Fc1984

wdx223 发表于 2018-8-23 15:43
执行代码的工作名称是“sheet1”吗？

那老师你能告诉我代码通用的时候需要改哪几个地方吗？

Fc1984

wdx223 发表于 2018-8-23 15:43
执行代码的工作名称是“sheet1”吗？

那老师你能告诉我代码换表使用的时候需要改哪几个地方吗？

Fc1984

wdx223 发表于 2018-8-23 16:39
执行到哪一步报错的？

执行到第一步，就显示错误

Fc1984

wdx223 发表于 2018-8-23 16:39
执行到哪一步报错的？

您有空吗？能不能Q您一下 ，这不好说

wdx223

1. Sub test()
   
2. Dim data, i&, ms, m
   
3. 
   
4. data = [G3:G32].Formula
   
5. 
   
6. With CreateObject("VBScript.RegExp")
   
7.     .Global = True
   
8.     .Pattern = "('.+'!|\w+!)?\$?[A-Z]{1,3}\$?\d+"
   
9.     For i = 1 To UBound(data)
   
10.         Set ms = .Execute(data(i, 1))
    
11.         If ms.Count > 0 Then
    
12.             For Each m In ms
    
13.                 data(i, 1) = Replace(data(i, 1), m, Range(m) + 0)
    
14.             Next m
    
15.         End If
    
16.     Next i
    
17. End With
    
18. [H3:H32] = data
    
19. End Sub
    

复制代码

惩戒骑

把Worksheets("Sheet1")替换成activesheet，看见本尊改的才发现结尾还改漏了，尴尬

lsdongjh

公式改公式

1. Sub test()
   
2.     Dim data, i&, ms, m, strTemp As String
   
3.     Dim strReplace As String
   
4.     data = ActiveSheet.[G3:G32].Formula
   
5.    
   
6.     With CreateObject("VBScript.RegExp")
   
7.         .Global = True
   
8.         .Pattern = "([A-Za-z]+\d*)"
   
9.         For i = 1 To UBound(data)
   
10.             strTemp = data(i, 1)
    
11.             strReplace = """ & $1 & """
    
12.             ms = .Replace(strTemp, strReplace)
    
13.             data(i, 1) = "=" & Chr(34) & ms & Chr(34)
    
14.         Next i
    
15.     End With
    
16.     ActiveSheet.[H3:H32] = data
    
17. End Sub

复制代码