Question

急~~急~~excel函数~急~~求解函数问题~~excel公式问题

如图，所示，请各路神仙将公式写出，万分感谢

Answer 1

用我自定义的增强文本处理功能的XCONCT写数组公式，就可以解决，方法如下：

复制以下公式到H1单元格，并按F2键，再按Ctrl + Shift + Enter组合键

=XCONCT(IF(MOD(A1:G1,3)=0,A1:G1,""),",")

如图所示：

下面为自定义函数的代码：

Public Function XCONCT(ByVal arrayText As Variant, Optional ByVal Delimiter As String = "")
    If IsArray(arrayText) Then
        For Each tempStr In arrayText
            If Len(tempStr) Then XCONCT = XCONCT & Delimiter & tempStr
        Next
        XCONCT = Mid(XCONCT, Len(Delimiter) + 1)
    Else
        XCONCT = arrayText
    End If
End Function

 可以查看以下附件：

 

Answer 2

I1=INDEX($A$1:$G$1,SMALL(IF(MOD($A$1:$G$1,3)=0,COLUMN($A$1:$G$1),8),ROW(A1)))&""
同时按CTRL SHIFT 回车键
剩下的就简单了

追问

显示不出数据啊可不可以上传一个文件呢

追答

I1=INDEX($A$1:$G$1,SMALL(IF(MOD($A$1:$G$1,3)=0,COLUMN($A$1:$G$1),8),ROW(A1)))&""

同时按CTRL  SHIFT  回车键

再下拉公式