[已解决]【求助】如何将单元格内的公式扩展

tmplinshi

               

如图，双击单元格“41066”，会显示为“=D5”，再按回车，单元格会变为 D5 的数据。

请问如何把所有未扩展的公式扩展开来？谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-9-2 08:45

跳转到最佳答案楼层

hwc2ycy

再下拉就扩展了嘛。

hwc2ycy

高

这个也叫做问题啊？？

tmplinshi

hwc2ycy 发表于 2012-9-2 08:45

谢谢！                                   

tmplinshi

回错帖了...不能删除帖子的么？
谢谢大家。我自己左拼右凑，凑到代码了：

1. Sub ReplaceStr()
   
2. With Worksheets(1).Range("a1:a500")
   
3.      Set c = .Find("(电镀）", LookIn:=xlValues)
   
4.      If Not c Is Nothing Then
   
5.      firstAddress = c.Address
   
6.           Do
   
7.              c.Value = Replace(c.Value, "(电镀）", "")
   
8.              Set range_b = Range("B" & c.Row)
   
9.              range_b.Value = range_b.Value & " (电镀）"
   
10.              Set c = .FindNext(c)
    
11.           Loop While Not c Is Nothing And c.Address <> firstAddress
    
12.      End If
    
13. End With
    
14. End Sub

复制代码