[已解决]如何将筛选后单元格公式批量转化为数值

水中绿萝

请教各位：
          在EXCEL 2010里， 如何将筛选后单元格公式批量转化为数值。因数据量大，想要简单可行办法达到目的，见附件。
           想达到的目标，，筛选G列的无颜色行，公式批量转化为数值。现在用复制粘贴为数值时，提示。定位可见单元格，复制粘贴，也不能达到目标。在网上找了很多，也没简请大家出谋划策。因为没有积分，不能发悬赏贴，不好意思啊。

最佳答案

月排行榜 / 总排行榜

林木水

2022-1-18 14:10

1. Sub demo()
   
2. Dim i As Integer
   
3. For i = 5 To 1715
   
4.     If Cells(i, "g").Interior.ColorIndex = -4142 Then
   
5.         Cells(i, "g") = Cells(i, "g").Value
   
6.     End If
   
7. Next i
   
8. End Sub

复制代码

跳转到最佳答案楼层

林木水

水中绿萝 发表于 2022-1-21 15:09
您好，执行后，提示：编译错误，缺少：行号或标签或语句结束。

麻烦测试一下，您 那边是不是可以运行 ...

1. Sub demo()
   
2. Dim i As Integer
   
3. For i = 5 To 1715
   
4.     If InStr(Cells(i, "B").Value, "合计") > 0 Or InStr(Cells(i, "B").Value, "小计") > 0 Or InStr(Cells(i, "B").Value, "总计") > 0 Then
   
5.     Else
   
6.         Cells(i, "g") = Cells(i, "g").Value
   
7.     End If
   
8. Next i
   
9. End Sub

复制代码

林木水

1. Sub demo()
   
2. Dim i As Integer
   
3. For i = 5 To 1715
   
4.     If Cells(i, "g").Interior.ColorIndex = -4142 Then
   
5.         Cells(i, "g") = Cells(i, "g").Value
   
6.     End If
   
7. Next i
   
8. End Sub

复制代码

水中绿萝

林木水 发表于 2022-1-18 14:10

您好，这个代码可以成功地把G列筛选的公式单元格，批量替换为数值。

能否有办法，把任意筛选列的公式单元格，批量替换为数值。谢谢。

林木水

水中绿萝 发表于 2022-1-19 14:39
您好，这个代码可以成功地把G列筛选的公式单元格，批量替换为数值。

能否有办法，把任意筛选列的公式 ...

方法是一样的。根据你筛选的条件去判断。

水中绿萝

林木水 发表于 2022-1-19 18:13
方法是一样的。根据你筛选的条件去判断。

您好，可以帮忙修改一下代码，效果为，如果G列对应的B列为“合计”或“小计”，则不转换为数值，否则，转换为数值。

林木水

水中绿萝 发表于 2022-1-20 10:55
您好，可以帮忙修改一下代码，效果为，如果G列对应的B列为“合计”或“小计”，则不转换为数值，否则，转 ...

1. Sub demo()
   
2. Dim i As Integer
   
3. For i = 5 To 1715
   
4.     If Cells(i, "B").Value = "合计" Or Cells(i, "B").Value = "小计" Then
   
5.     Else
   
6.         Cells(i, "g") = Cells(i, "g").Value
   
7.     End If
   
8. Next i
   
9. End Sub
   

复制代码

水中绿萝

林木水 发表于 2022-1-20 12:01

您好，还想麻烦一下，可以帮忙修改一下代码，效果为，如果G列对应的B列为“合计”或“小计”或“总计”，则不转换为数值，否则，转换为数值。

还有能不能实现，G列对应的B列，只要含有“小计”、“合计”、“总计”字的，则G列不转换为数值，否则，转换为数值。

因为数据量大，有各种带前缀的小计、合计、总计分层。

林木水

水中绿萝 发表于 2022-1-20 17:11
您好，还想麻烦一下，可以帮忙修改一下代码，效果为，如果G列对应的B列为“合计”或“小计”或“总计”， ...

1. <div class="blockcode"><blockquote>Sub demo()
   
2. Dim i As Integer
   
3. For i = 5 To 1715
   
4.     If InStr(Cells(i, "B").Value, "合计") > 0 Or InStr(Cells(i, "B").Value, "小计") > 0 Or InStr(Cells(i, "B").Value, "总计") > 0 Then
   
5.     Else
   
6.         Cells(i, "g") = Cells(i, "g").Value
   
7.     End If
   
8. Next i
   
9. End Sub
   

复制代码

水中绿萝

林木水 发表于 2022-1-20 17:20

您好，执行后，提示：编译错误，缺少：行号或标签或语句结束。

麻烦测试一下，您 那边是不是可以运行，还是我的操作问题，谢谢您。