怎样用VBA实现选中区域的0值删掉变成空值，不删单元格，未选中区域的0不删，谢谢？

qihang15

求助两个问题有红包答谢，一个10，谢谢。
1怎样用VBA实现选中区域（不连续区域）的0值删掉变成空值，不删单元格，未选中区域的0不删，谢谢？2 对选中区域（不连续区域）中含有公式的单元格去掉公式，保留结果，未选中的区域的公式不去掉，谢谢？

qihang15

一把小刀闯天下 发表于 2018-4-23 15:26
刚才有事，可以用纯数组处理。公式对于我来说就是天书，如果问题还没有解决可以把这个公式用文字解释一下 ...

=INDEX(源数据!$B$4:$AA$200,ROW()-6,MATCH($B$3,源数据!$B$4:$AA$4,0)+COLUMN()-2)
每个分表sheet1、sheet2、sheet3中B3是对应的店名，这个店名与总表数据源中的店名查找匹配，数据源表中对应位置的值填充分表。只填充分表中空单元格。谢谢您！附件Excel中sheet1中说的清楚一些，辛苦您了，就您不忙的时候帮忙看看，别耽误您宝贵的时间。

ftgli

我不是给你写出来了吗?怎么又发一个

一把小刀闯天下

Option Explicit

Sub 一()
  Dim rng
  For Each rng In Selection
    If rng = 0 Then Cells(rng.Row, rng.Column) = vbNullString
  Next
End Sub

Sub 二()
  Dim rng
  For Each rng In Selection
    Cells(rng.Row, rng.Column) = rng.Value
  Next
End Sub

qihang15

ftgli 发表于 2018-4-22 22:58
我不是给你写出来了吗?怎么又发一个

不好意思，我没看到，显示      抱歉，指定的主题不存在或已被删除或正在被审核，您能在这个帖子发一下吗，辛苦您了，导师给您发个红包，谢谢。

qihang15

ftgli 发表于 2018-4-22 22:58
我不是给你写出来了吗?怎么又发一个

那个帖子看不到，应该是在审核，在这发一次吧，谢谢好心人。

qihang15

一把小刀闯天下 发表于 2018-4-23 06:53
Option Explicit

Sub 一()

完美解决我的两个问题，谢谢好心人，热心人，技术高人能力达人，非常非常感谢，怎样联系您？好表示感谢。

一把小刀闯天下

qihang15 发表于 2018-4-23 11:19
完美解决我的两个问题，谢谢好心人，热心人，技术高人能力达人，非常非常感谢，怎样联系您？好表示感谢。

免费，这么简单的问题那好意思收费的呀，哈哈哈。

qihang15

一把小刀闯天下 发表于 2018-4-23 12:01
免费，这么简单的问题那好意思收费的呀，哈哈哈。

对于您是小问题，对于我来说解决了大问题，还是给您2个红包吧，确实非常感谢。

qihang15

一把小刀闯天下 发表于 2018-4-23 12:01
免费，这么简单的问题那好意思收费的呀，哈哈哈。

也不是收费，是我自愿给的，您就留个您方便的QQ啥的，要不您就帮我看看下面的代码，哪里需要优化或有更好的方法，代码运行速度和效率更高，前面是我录制的宏代码，后面是您的代码，您有时间给指导指导，然后您收红包总可以了吧。
Sub 宏1()
Dim rng
    Sheets("Sheet1").Select '选中sheet1
        Range("B10:D30").Select '选中KB10:D30区域
     Selection.SpecialCells(xlCellTypeBlanks).Select '选中所选区域中的空单元格
     '对所选单元格填充公式
Selection.FormulaR1C1 = _
        "=INDEX(源数据!R4C2:R200C27,ROW()-6,MATCH(R3C2,源数据!R4C2:R4C27,0)+COLUMN()-2)"

  For Each rng In Selection
  Cells(rng.Row, rng.Column) = rng.Value
    If rng = 0 Then Cells(rng.Row, rng.Column) = vbNullString
  Next
'然后同样的方法，对sheet2填充，只把上面代码中的sheet1改成sheet2，其它都不变
Sheets("Sheet2").Select '选中sheet2
其它代码都和上面一样了，
同样方法填充sheet3、sheet5……

qihang15

qihang15 发表于 2018-4-23 13:58
对于您是小问题，对于我来说解决了大问题，还是给您2个红包吧，确实非常感谢。

我加您QQ了。