[已解决]如何用vba方法求解此题

markang · 发表于 2015-11-11 11:37

本帖最后由 markang 于 2015-11-16 20:23 编辑

各位老师同学,

有这么一张表格,有3列数据(列与列间可能不连续),序号列,物品列都是存在数据的,但是属性列可能是空的.
能否让程序判断:
遇到空的属性内容的时候,通过序号填写对应的属性,比如说本列j11单元格要天上"强壮",j13单元格要填上身高或者起飞,这个没有要求.

寻求vba的求解方法.rar (6.41 KB, 下载次数: 6)

这儿有肥猫 · 发表于 2015-11-11 11:44

懒得写，录了个宏，稍微改了改

Sub Macro1()
Dim i&
For i = Cells(Rows.Count, 6).End(3).Row To 7 Step -1
If Cells(i, 10) = "" Then
Cells(i, 10).FormulaR1C1 = "=VLOOKUP(RC[-4],C[-4]:C,5,0)"
End If
Next
End Sub

复制代码

青城山苦丁茶 · 发表于 2015-11-11 11:49

填函数不太好，改用find吧

markang · 发表于 2015-11-11 17:02

先感谢两位.
能否给个find的案例,我比较下,感激!

markang · 发表于 2015-11-15 21:24

Cells(i, 10).FormulaR1C1 = "=VLOOKUP(RC[-4],C[-4]:C,5,0)"
有哪位老师可以帮忙解释下
1.FormulaR1C1的意思
2.(RC[-4],C[-4]:C,5,0)参数的意思

markang · 发表于 2015-11-15 22:39

百度过了懂了，还是自己研究印象深

markang · 发表于 2015-11-16 20:24

但发现这种解法在,下面这里不管用,当第一行的数据为空时,就无法实现查找,返回值为"0"

寻求vba的求解方法-2.rar (11.94 KB, 下载次数: 3)

markang · 发表于 2015-11-16 21:35

这个比较着急,我想应该也不难,请大人们指点阿

markang · 发表于 2015-11-17 14:59

求朋友们帮忙啊

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