[已解决]代码求助

642070295

请各位大师看一下附件（有数据和要求说明），帮忙写个代码。

谢谢！ 工作簿17.rar (10.12 KB, 下载次数: 8)

2013-9-16 22:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-17 10:19

642070295 发表于 2013-9-17 10:17
大师，我运行了不对呀？你先测试好了再发过来吧，谢谢！

==  wo 在看看  你好 没仔细想想 不好意思 我吧Q列放到数组中这个还是重一开始的 你要是389开始的话下面的单元格赋值就是要加388  因为循环从一开始的

跳转到最佳答案楼层

w2001pf

表中没有要求和说明啊？

lyf7276

Sub è¡0()
m = Columns("q:q").Cells.Find("*", , , , , xlPrevious).Row
  For i = 2 To m
   If Range("q" & i) = 0 Then
    n = Rows(i).Cells.Find("*", , , , , xlPrevious).Column
   Range("b" & i).Resize(1, n-1) = 0
  End If
Next
End Sub

642070295

要求说明在附件中sheet1表数据下面。麻烦帮写个代码，谢谢大师！

我心飞翔410

642070295 发表于 2013-9-16 22:33
要求说明在附件中sheet1表数据下面。麻烦帮写个代码，谢谢大师！

是不是这样其中一个是只是填入0  还有一个是填充0 并进行了 单元格设置看你需要了

642070295

我心飞翔410 发表于 2013-9-16 22:39
是不是这样其中一个是只是填入0  还有一个是填充0 并进行了 单元格设置看你需要了

大师，你的代码不错，等会给你最佳！但我的代码不行呀（新附件 新附件.rar (96.22 KB, 下载次数: 4)

2013-9-17 00:16 上传

点击文件名下载附件 ），大师帮测试修正一下！非常感谢！

我心飞翔410

642070295 发表于 2013-9-17 00:17
大师，你的代码不错，等会给你最佳！但我的代码不行呀（新附件），大师帮测试修正一下！非常感谢！

你这个附件没说明要求啊

642070295

我心飞翔410 发表于 2013-9-17 07:18
你这个附件没说明要求啊

我心飞翔410大师，本次的要求说明和上次的是一样的，只是Q列中的数据从Q389开始罢了，即从$Q$389开始到Q列最后一行数据(动态的）区域中查找0值的单元格，并把该单元格所在行（日期除外）的单元格的值赋0.
谢谢大师！

我心飞翔410

642070295 发表于 2013-9-17 09:14
我心飞翔410大师，本次的要求说明和上次的是一样的，只是Q列中的数据从Q389开始罢了，即从$Q$389开始到Q列 ...

随便改下就可以了

642070295

我心飞翔410 发表于 2013-9-17 09:29
随便改下就可以了

大师，我运行了不对呀？你先测试好了再发过来吧，谢谢！