求助公式：返回数据所在列的数字

三票

求助公式：返回数据所在列的数字

mountain119

1. =FILTER($D$2:$K$2,D6:K6<>"")

复制代码

袁勇

1. =AGGREGATE(15,6,$D$2:$K$2/($D3:$K3<>""),COLUMN(A1))

复制代码

cnmanljl

=SMALL(IF($D3:$K3<>"",COLUMN($D3:$K3)-3,""),COLUMN(A1))

无关岁月

1. =SMALL(IF($D3:$K3<>"",$D$2:$K$2),COLUMN(A1))

复制代码

jivy1212

1. =SMALL(MODE.MULT(($D3:$K3="")*{1;2}%+$D$2:$K$2),COLUMN(A1))

复制代码

右拉下拉

zhangcheng6688

学习一下数组，打扰了
Sub test()
lastr = Cells(Rows.Count, "k").End(xlUp).Row
arr = Range("d3:k" & lastr)
ReDim brr(1 To UBound(arr), 1 To 8)
For i = 1 To UBound(arr)
   For j = 1 To UBound(arr, 2)
      If arr(i, j) <> "" Then
         c = c + 1
         brr(i, c) = j
      End If
   Next
   If maxcol < c Then
      maxcol = c
   End If
   c = 0
Next
[m3].Resize(i - 1, maxcol) = brr
End Sub