如何利用EXCEL函数提取整行与整列中的非空数据

吧123456789

ZhouFfett 发表于 2018-3-7 14:17
公式的正确用法，也就是公式的高端技术，就是把公式当编程语言来使用，详见附件

周哥依然很牛

ZhouFfett

Simon廉 发表于 2018-3-7 21:38
确实是最高境界。
VBA也不能这么简单解决

我这些只不过是编程技术，编程技术是通用的，可以用在任何编程语言。

VBA功能比公式更强大，VBA中如果能够运用好编程技术，编出来的软件会更加出色。

不要把VBA简单的用来只是调用对象，这样就把对象变成函数了。

ZhouFfett

lscsd 发表于 2018-3-7 20:28
谢谢，我好好研究一下。

你可参考一下这个示例 示例_辅助技术之上行加1&下行加1.zip (7.2 KB, 下载次数: 8)

2018-3-8 11:43 上传

点击文件名下载附件

辅助表、下行加一技术，我已用得很普遍了。INDEX、ROW、IF是最常用的函数

Simon廉

ZhouFfett 发表于 2018-3-8 11:41
我这些只不过是编程技术，编程技术是通用的，可以用在任何编程语言。

VBA功能比公式更强大，VBA中如果 ...

任重道远呐。
我的VBA还停留在调用阶段。
膜拜下大神

吧123456789

Simon廉 发表于 2018-3-8 15:32
任重道远呐。
我的VBA还停留在调用阶段。
膜拜下大神

Sub ssk()
Sheets(1).Range("a1:p1000").Clear
        ar = Sheets(2).Range("a1:n30")
        Dim br(1 To 100000, 1 To 20)
    For k = 1 To UBound(ar)
        If Application.WorksheetFunction.CountA(Application.Index(ar, k, 0)) > 3 Then
          For i = 1 To UBound(ar, 2)
            If ar(1, i) <> "" Then
                r = r + 1
                br(k, r) = ar(k, i)
            End If
          Next
        End If
       r = 0
     Next
Sheets(1).Range("a1").Resize(1000, 20) = br
End Sub
我上传不了

吧123456789

Sub ssk()
Sheets(1).Range("a1:p1000").Clear
        ar = Sheets(2).Range("a1:n30")
        Dim br(1 To 100000, 1 To 20)
    For k = 1 To UBound(ar)
        If Application.WorksheetFunction.CountA(Application.Index(ar, k, 0)) > 3 Then
          For i = 1 To UBound(ar, 2)
            If ar(1, i) <> "" Then
                r = r + 1
                br(k, r) = ar(k, i)
            End If
          Next
        End If
       r = 0
     Next
Sheets(1).Range("a1").Resize(1000, 20) = br
End Sub

mmlzh

分解成3条公式
数组公式 A1

1. =INDEX(原数据!A:A,SMALL(IF(COUNTIF(OFFSET(原数据!$D$1:$N$1,ROW($1:$30)-1,),"<>"),ROW($1:$30)),ROW(1:1)))

复制代码

右拉到C列，下拉
D1

1. =INDEX(原数据!$D$1:$P$1,SMALL(IF(原数据!$D$1:$P$1<>"",COLUMN(原数据!$A$1:$K$1)),COLUMN(A:A)))
   

复制代码

右拉
普通公式D2

1. =IFERROR(1/OFFSET(原数据!$A$1,MATCH(目标数据!$A2,原数据!$A:$A,)-1,MATCH(目标数据!D$1,原数据!$1:$1,)-1)^-1,"")

复制代码

右拉，下拉

mmlzh

或者数组公式A1

1. =OFFSET(原数据!$A$1,SMALL(IF(COUNTIF(OFFSET(原数据!$D$1:$N$1,ROW($1:$30)-1,),"<>"),ROW($1:$30)-1,99),ROW(1:1)),SMALL(IF(原数据!$A$1:$N$1<>"",COLUMN(原数据!$A:$N)-1,99),COLUMN(A:A)))

复制代码

右拉，下拉
如果想结果不显示零，可以在选项里设不显示零或者套用=IF(公式=0,"",公式)，这样公式就长了。

mmlzh

lscsd 发表于 2018-3-6 18:38
用这个公式空列删除不了。如果能删除空列就OK了。

用INDEX,OFFSET这些套路原理都一样，行能处理列也能处理，只需要点取数方法/技巧。