求助 VBA 根据判断值来修改数据个数

aqzswxdec · 发表于 2012-12-10 23:19

本帖最后由 aqzswxdec 于 2012-12-13 19:58 编辑

求助我想编一个VBA主要是第一步判断不同的CI，然后根据第二列对应的值修改第三列的值。
第一列“CI”有很多的值，相同的值都是连续的单元格可以看做一组。
第二列 “添加SD个数”。第三列主要根据第二列的值来判断修改几个单元格，并将单元格的值由0修改为3.
若将相同的CI值看做一组的话，第三列从该组第一行开始修改。修改的个数按照该组第二列给出的数值（该组第二列的数值相同）。然后进行下一组的CI第三列的修改。
因CI值较多因此想通过VBA来解决这个问题，有附件望大虾们能够帮助我。谢谢。

王小博vba · 发表于 2012-12-12 13:07

一般没人回复，不是大家不懂VBA，不想帮你，是因为大家都不知道你在说什么。或者你说的让大家很都看不明白。“如第一列“CI”65412，对应的第二列“添加SD个数”值为2 ，对应第三列就需要修改2个值。有0改为3.”，修改哪2个值？同一行的和下一行的C列的值，0改成3？

aqzswxdec · 发表于 2012-12-12 21:33

本帖最后由 aqzswxdec 于 2012-12-12 22:00 编辑

王小博vba 发表于 2012-12-12 13:07
一般没人回复，不是大家不懂VBA，不想帮你，是因为大家都不知道你在说什么。或者你说的让大家很都看不明白。 ...

是的，如果第二列的值是2，那么就将同行和下行的0改为3，如果第二列的值是3的话就将同行和下两行的0改为3，对于VBA我还是菜鸟，表达的确实不是很好呵呵。
还有就是若将相同的CI值看做一组的话，第三列从该组第一行开始修改。修改的个数按照该组第二列给出的数值（该组第二列的数值相同）。然后进行下一组的CI第三列的修改。不知道这样表达会不会还有歧义。望老师帮忙啊。

王小博vba · 发表于 2012-12-13 09:23

aqzswxdec 发表于 2012-12-12 21:33
是的，如果第二列的值是2，那么就将同行和下行的0改为3，如果第二列的值是3的话就将同行和下两行的0改为 ...

If (Range("B2") = 2) Then
Range("C2").Value = 3
Range("C2").Offset(1, 0) = 3
End If

复制代码

这是单步骤的代码，你加入循环就行了。

aqzswxdec · 发表于 2012-12-13 19:59

王小博vba 发表于 2012-12-13 09:23
这是单步骤的代码，你加入循环就行了。

谢谢了，我回去试试

hpy123 · 发表于 2012-12-14 13:41

呵呵很不错的哦

		自动登录	找回密码
密码			免费注册