紧急加班中,有没有好办法

mmlzh

数组公式G2=IFERROR(OFFSET($A$1,SMALL(IF(LOOKUP(ROW($1:$99),IF($A$1:$A$99<>"",ROW($1:$99)))=MATCH($F2,$A:$A,),ROW($1:$99)),INT(COLUMN(B:B)/2))-1,3^MOD(COLUMN(B:B),2)),"")

准提部林

Sub TEST()
Dim Arr, Brr, i&, N&, C%
Arr = Intersect(ActiveSheet.UsedRange, [A:D])
ReDim Brr(1 To UBound(Arr), 1 To 20)
For i = 3 To UBound(Arr)
    If Arr(i, 1) <> "" Then N = N + 1: C = 0: Brr(N, 1) = Arr(i, 1)
    C = C + 2: Brr(N, C) = Arr(i, 2): Brr(N, C + 1) = Arr(i, 4)
Next
[F2].Resize(N, 20) = Brr
End Sub

zsonline

我也有个类似的表格也处理，同一个位置的灭火器判断它有没有过期，过期的则统计到右侧的表格中。思路大概就是用11楼大大的公式修改一下，加个判断J列是不是空，空则跳过，不是空则判断为过期，把相应单元格信息合并记录到右侧一个单元格内。
可是对循环公式不熟悉，改了好久也做不出来。只好求助各位大大。

牧童者

准提部林 发表于 2019-1-13 14:44
Sub TEST()
Dim Arr, Brr, i&, N&, C%
Arr = Intersect(ActiveSheet.UsedRange, [A:D])

感谢，感谢，各位了！

micch

1. =IFERROR(IF(COLUMN(A1)>MATCH(1,COUNTIF(OFFSET($A$1,MATCH($F2,$A:$A,)-1,,ROW($1:$9)),"<>"))*2,"",OFFSET($D$1,MATCH($F2,$A:$A,)+COLUMN(B1)/2-2,-MOD(COLUMN(),2)*2)),"")

复制代码

取科目和成绩不麻烦，麻烦的是计数，如果源数据多一个序号列，或者不是合并单元格就省事多了

vvw123

公式强大凶猛，学习了