筛选后的公式批量转换为值

jinshalom

筛选后复制粘贴，Excel会提示“不能对多重选定区域使用此命令”。网上搜到下段代码是把筛选后所有列公式都转为值。
可我只想要选中的列转为值，不要所有列，有大神帮修改下么？

1. Sub ConvAfterFilter()
   
2. 
   
3. On Error Resume Next
   
4. 
   
5. Application.ScreenUpdating = False
   
6. 
   
7. Dim Rng As Range
   
8. 
   
9. For Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
   
10. 
    
11. If Rng.HasFormula Then
    
12. 
    
13. Rng.Copy
    
14. 
    
15. Rng.PasteSpecial xlValues
    
16. 
    
17. End If
    
18. 
    
19. Next
    
20. 
    
21. Application.CutCopyMode = False
    
22. 
    
23. Application.ScreenUpdating = True
    
24. 
    
25. End Sub

复制代码

rardge2015

1. If Rng.HasFormula Then

复制代码

既然可以遍历所有筛选出来的单元格，判断内容是否是公式，那也可以再嵌套一个 IF，判断单元格的列号是否符合你的要求。