AB两列数据，当A对应B不为空时，AB显示在蓝色区域

AkatsukiHK · 发表于 2024-1-28 16:09

当A列对应B不为空时，显示在蓝色区域，请帮忙看看怎么用公示实现

风雨声点滴 · 发表于 2024-1-28 16:24

=FILTER(A2:B7,B2:B7<>"")

AkatsukiHK · 发表于 2024-1-28 16:29

风雨声点滴发表于 2024-1-28 16:24
=FILTER(A2:B7,B2:B7"")

版本比较低 2016 的，用不了

quqiyuan · 发表于 2024-1-28 16:32

=IFERROR(INDEX(A:A,SMALL(IF($B$2:$B$7<>"",ROW($B$2:$B$7)),ROW(A1))),"")

安若浅笑 · 发表于 2024-1-28 17:02

=FILTER(A2:B7,B2:B7<>"")

静听溪流 · 发表于 2024-1-28 20:29

=IFERROR(INDEX(A:A,SMALL(IF($B$2:$B$7<>"",ROW($2:$7)),ROW(A1))),"")

AkatsukiHK · 发表于 2024-1-28 20:56

静听溪流发表于 2024-1-28 20:29
=IFERROR(INDEX(A:A,SMALL(IF($B$2:$B$7"",ROW($2:$7)),ROW(A1))),"")

谢谢，低版本可以解决了

橒♂蝣 · 发表于 2024-1-28 21:52

=FILTER(A2:B7,B2:B7<>"")

zhangcheng6688 · 发表于 2024-1-29 07:19

学习一下，打扰了
Sub test()
arr = [a2].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 2 To UBound(arr)
If arr(i, 2) <> "" Then
   m = m + 1
   brr(m, 1) = arr(i, 1)
   brr(m, 2) = arr(i, 2)
End If
Next
[e2].Resize(m, 2) = brr
End Sub

AkatsukiHK · 发表于 2024-1-29 07:53

zhangcheng6688 发表于 2024-1-29 07:19
学习一下，打扰了
Sub test()
arr = [a2].CurrentRegion

厉害，这个比较高级

		自动登录	找回密码
密码			免费注册

[已解决] AB两列数据，当A对应B不为空时，AB显示在蓝色区域

评分