作者：乔山办公网日期：
返回目录：excel表格制作
在模块里面输入下列代zhidao码：
Function js(r)
js = ""
rg = Range("A1:H1").Value '第一行数据所在区域回
For i = 1 To UBound(rg, 2)
If Cells(r, i) <> "" Then js = js & rg(1, i) & ","
Next
js = Left(js, Len(js) - 1)
End Function
使用：在需要显示结果的地答方输入 =js(ROW()) ，可下拉填充
为啥要转VBA？
B7
=IF($P7="","",VLOOKUP($P7,材料代码!$B:$H,COLUMN(D1),))
右拉、下拉
即可
Alt+F11 打开 VBE 编辑器，度然后 F2 打开对象浏览器，
常见的 Excel 函数在 WorksheetFunction 这个类模块下：问
如果要查看更答具体的帮助回，可以选中某个函答数，然后 F1 打开帮助文档。