求高手解决excel 取值相连问题

1983leon

想用函数取值，样式详见附件，麻烦高手指导！ 数据.zip (8.96 KB, 下载次数: 6)

2014-6-12 11:42 上传

点击文件名下载附件

xinjiana

这个没啥技巧的，就用&慢慢连吧，函数

1983leon

想用函数取值，样式详见附件，麻烦高手指导！

1983leon

数据.zip (8.96 KB, 下载次数: 6)

2014-6-12 13:41 上传

点击文件名下载附件

ykqrs

到BVA版块求助

1983leon

xinjiana 发表于 2014-6-12 11:49
这个没啥技巧的，就用&慢慢连吧，函数

关键 我那个生产工艺 组合很多，能否有函数直接取值组合？

shuyee

Function myCon(tarR As Range) As String
myCon = "#N/A"
If tarR.Columns.Count <> 20 Or tarR.Rows.Count > 1 Then Exit Function
Dim gyArr As Variant, valArr As Variant
gyArr = Array("裁纸(x)-", "瓦纸(x)-", "印刷(x)-", "丝印(x)-", "胶检(x)-", "修切(x)-", "过油(x)-", "吸塑油(x)-", "过油磨光(x)-", "复膜(x)-", "压纹(x)-", "UV(x)-", "局部UV(x)-", "烫金(x)-", "烫银(x)-", "瓦裱(x)-", "凹凸(x)-", "轧盒(x)-", "糊盒(x)-", "成品挑标(x)-")
valArr = tarR.Value
myCon = ""
For i = 1 To 20
    myCon = myCon & IIf(valArr(1, i), Replace(gyArr(i - 1), "x", valArr(1, i)), "")
Next
If Right(myCon, 1) = "-" Then myCon = Left(myCon, Len(myCon) - 1)
End Function

shuyee

函数参数，是20列1行的单元格。否则出错。