[已解决]求助 多条件查找 老师们帮帮我谢谢了

huaichuan1

grf1973 发表于 2017-11-6 10:38
没看懂那个42.5是怎么出来的。
另外我的附件里输入列数是用数字的。如果按你示例输字母的话，把里面的val ...

您说的列数 为数字显示 ，这个没问题，我直接输入明文ABC列 也能用

huaichuan1

grf1973 发表于 2017-11-6 10:38
没看懂那个42.5是怎么出来的。
另外我的附件里输入列数是用数字的。如果按你示例输字母的话，把里面的val ...

如果一个 判断不好弄 就算了，主要是第二个 除以g列的问题

grf1973

你要的结果，附件里已经实现了。

huaichuan1

grf1973 发表于 2017-11-6 13:26
你要的结果，附件里已经实现了。

除的结果是我手动实现的  想在窗体内输入g 代码就会自动除以g列对应的100、1、空白不除

grf1973

你看附件吧，我结果输出的时候已经考虑了，如果除数列里面有数字，会把"/G2"这样的给加上。

huaichuan1

grf1973 发表于 2017-11-6 13:34
你看附件吧，我结果输出的时候已经考虑了，如果除数列里面有数字，会把"/G2"这样的给加上。

报错了 运行错误1004
For i = 1 To .Cells(Rows.Count, CC).End(3).Row  '目标起始列号“a”
这句话 被标注黄色了

huaichuan1

grf1973 发表于 2017-11-6 13:34
你看附件吧，我结果输出的时候已经考虑了，如果除数列里面有数字，会把"/G2"这样的给加上。

我知道了 不能输入明文列号了 需要输入123列 我把val 删除了 y = "/" & Cells(i, GG).Address(0, 0)报错 这句话类型不符合

我式了一下 被除列必须要有列号不然就 报错了

huaichuan1

grf1973 发表于 2017-11-6 13:34
你看附件吧，我结果输出的时候已经考虑了，如果除数列里面有数字，会把"/G2"这样的给加上。

谢谢老师我 我修改好了  If GG <> "" Then y = "/" & Cells(i, GG).Address(0, 0)

  判断不等于空白就行了  >0就会报错

huaichuan1

grf1973 发表于 2017-11-6 10:38
没看懂那个42.5是怎么出来的。
另外我的附件里输入列数是用数字的。如果按你示例输字母的话，把里面的val ...

老师还有个小问题，您定义的是最大行号，运算起来有点慢，能不能 我输入一个行号让他循环，比如2000行

grf1973

速度快慢跟是不是最大行没关系。最大行很可能小于2000的。
应该是全用单元格计算，没转化成数组的原因。