发布网友
共3个回答
热心网友
Function RN(rng As Range, k As Integer)
Dim rg As Range, str As String
For Each rg In rng
If IsNumeric(rg) Then str = str & rg.Offset(-k, 0)
Next
RN = str
End Function
追问没有直接用数组公式实现的方法吗?
我试了下面的公式,但是不可以。。。
{=CONCATENATE(IF(ISNUMBER(AF9:AP9),$AF$7:$AP$7,""))}
请问哪里出问题了?
热心网友
=IF(ISTEXT(A2),"",$A$1)&IF(ISTEXT(B2),"",$B$1)&IF(ISTEXT(C2),"",$C$1)&IF(ISTEXT(D2),"",$D$1)&IF(ISTEXT(E2),"",$E$1)&IF(ISTEXT(F2),"",$F$1)&IF(ISTEXT(G2),"",$G$1)&IF(ISTEXT(H2),"",$H$1)&IF(ISTEXT(I2),"",$I$1)&IF(ISTEXT(J2),"",$J$1)&IF(ISTEXT(K2),"",$K$1)
热心网友
=CONCATENATE(IF(ISNUMBER(A2),$A$1,""),IF(ISNUMBER(B2),$B$1,""),IF(ISNUMBER(C2),$C$1,""),IF(ISNUMBER(D2),$D$1,""),IF(ISNUMBER(E2),$E$1,""),IF(ISNUMBER(F2),$F$1,""),IF(ISNUMBER(G2),$G$1,""),IF(ISNUMBER(H2),$H$1,""),IF(ISNUMBER(I2),$I$1,""),IF(ISNUMBER(J2),$J$1,""),IF(ISNUMBER(K2),$K$1,""))