[已解决]如何将公式变数值（非矩形选择区域）

iheisama

如何将公式变数值（非矩形选择区域）
附件黄色标出来的部分，因为数据量较多，需要按ctrl同时选择后一下子将公式变数值（白色部分还是保持公式）
有没有办法啊？

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-2-22 11:53

iheisama 发表于 2017-2-22 11:38
谢谢。但是执行了以后，没有选择的区域也变成数值了

哦，不好意思漏掉了步长

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Cells(2, 4).CurrentRegion
   
4.     For i = 1 To rng.Columns.Count Step 2
   
5.         rng.Columns(i) = rng.Columns(i).Value
   
6.     Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

全选工作表，复制，选择性粘贴为值

iheisama

望帝春心 发表于 2017-2-22 10:50
全选工作表，复制，选择性粘贴为值

非黄色的部分不要变成值，还是希望保持公式

望帝春心

iheisama 发表于 2017-2-22 11:03
非黄色的部分不要变成值，还是希望保持公式

那就用VBA吧

iheisama

望帝春心 发表于 2017-2-22 11:06
那就用VBA吧

有没有编写好的VBA啊？谢谢

望帝春心

iheisama 发表于 2017-2-22 11:08
有没有编写好的VBA啊？谢谢

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Cells(2, 4).CurrentRegion
   
4.     For i = 1 To rng.Columns.Count
   
5.         rng.Columns(i) = rng.Columns(i).Value
   
6.     Next
   
7. End Sub

复制代码

执行一下这段代码就可以了

iheisama

望帝春心 发表于 2017-2-22 11:14
执行一下这段代码就可以了

谢谢。但是执行了以后，没有选择的区域也变成数值了

望帝春心

iheisama 发表于 2017-2-22 11:38
谢谢。但是执行了以后，没有选择的区域也变成数值了

你是要先选择区域，再转换选择区域为数值吗？

望帝春心

iheisama 发表于 2017-2-22 11:38
谢谢。但是执行了以后，没有选择的区域也变成数值了

哦，不好意思漏掉了步长

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Cells(2, 4).CurrentRegion
   
4.     For i = 1 To rng.Columns.Count Step 2
   
5.         rng.Columns(i) = rng.Columns(i).Value
   
6.     Next
   
7. End Sub

复制代码

iheisama

望帝春心 发表于 2017-2-22 11:53
哦，不好意思漏掉了步长

可以了，多谢大神啊！！！