Question

EXCEL里把A1字母和A2数字列和B1字母和B2数字列和C1字母和C2数字列合并到D2单元格内.得到结果如截图D2-D6

Answer 1

用VBA写个自定义函数吧。

ALT+F11，在VBA窗口中点插入----模块，然后粘贴以下代码，即可使用

代码如下：

Function ms(ByVal 标题 As Range, rg As Range) As String
aryA = 标题
aryb = rg
For i = 1 To UBound(aryb, 2)
    If Len(aryb(1, i)) > 0 Then
        s = s & aryA(1, i) & "(" & aryb(1, i) & ")-"
    End If
Next i
ms = Left(s, Len(s) - 1)
End Function

样本文件及使用方法见附件！

追问

VBA自定义函数，不知道怎么使用，新手望赐教

追答

详见附件使用方法或者

扣

一五九六三九七零

Answer 2

D2输入：

=IF(A2="","",$A$1&"("&A2&")")&IF(B2="","","-"&$B$1&"("&B2&")")&IF(C2="","","-"&$C$1&"("&C2&")")，下拉

Answer 3

请在D2输入公式：
=IF(ISNUMBER(A2),$A$1 & CHAR(40) & A2,"")&IF(ISNUMBER(B2),CHAR(41) & "-" &$B$1 & CHAR(40) & B2,"")&IF(ISNUMBER(C2),CHAR(41) & "-"&$C$1&CHAR(40) & C2 & CHAR(41),CHAR(41))
下拉。

追问

=IF(ISNUMBER(A2),$A$1 & CHAR(40) & A2,"")&IF(ISNUMBER(B2),CHAR(41)
里面的CHAR(40)和CHAR(41)怎么来的，新手望赐教,

追答

CHAR(40)和CHAR(41)是左、右括号，在有的公式中不能直接用左、右括号，故用ASCII码代替。

在这里可直接用左、右括号，上式可化简为：
=IF(ISNUMBER(A2),$A$1&"("&A2&")","")&IF(ISNUMBER(B2),"-"&$B$1&"("&B2&")","")&IF(ISNUMBER(C2),"-"&$C$1&"("&C2&")",")")

Answer 4

D2单元格公式如下：
=IF(A2="","",$A$1&"("&A2&")")&IF(B2="","","-"&$B$1&"("&B2&")")&IF(C2="","","-"&$C$1&"("&C2&")")
下拉

Answer 5

d2=a$1&"("&a2&")-"&b$1&"("&b2&")-"&c$1&"("&c2&")"
下拉