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

一把小刀闯天下

qihang15 发表于 2018-4-23 14:12
也不是收费，是我自愿给的，您就留个您方便的QQ啥的，要不您就帮我看看下面的代码，哪里需要优化或有更好 ...

刚才有事，可以用纯数组处理。公式对于我来说就是天书，如果问题还没有解决可以把这个公式用文字解释一下，如果我能看懂就给你重写，当然还是免费。因为这种问题真的很简单，何况我来这论坛也是来学VBA的。

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中说的清楚一些，辛苦您了，就您不忙的时候帮忙看看，别耽误您宝贵的时间。

qihang15

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

Sub 一()

您好， For Each rng In Selection是当前工作表中选中的区域
该句怎样改成是整个工作簿中选中的区域？谢谢！

qihang15

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

Sub 一()

非常感谢您，非常有用谢谢。