要求：补齐数据

wp231957 · 发表于 2024-10-16 10:47

本帖最后由 wp231957 于 2024-10-16 11:51 编辑

shaowu459 · 发表于 2024-10-16 10:50

=MAP(C2:E15,LAMBDA(x,IF(x>0,x,TAKE(TOCOL(C2:x,1,1),-1))))
图片.png

无关岁月 · 发表于 2024-10-16 10:52

=TRANSPOSE(SCAN(,TRANSPOSE(C2:E15),LAMBDA(_a,_b,IF(_b=0,_a,_b))))

复制代码

pjiang · 发表于 2024-10-16 10:54

增加辅助列，编号同理

wp231957 · 发表于 2024-10-16 10:57

pjiang 发表于 2024-10-16 10:54
增加辅助列，编号同理

这个不行，辅助列尽量不予考虑

混沌音符 · 发表于 2024-10-16 11:00

H7=IF(C3="",H6,C3)

wp231957 · 发表于 2024-10-16 11:04

混沌音符发表于 2024-10-16 11:00
H7=IF(C3="",H6,C3)

这个三列得弄三个公式？？？能变成数组公式吗

混沌音符 · 发表于 2024-10-16 11:14

wp231957 发表于 2024-10-16 11:04
这个三列得弄三个公式？？？能变成数组公式吗

不用弄3个公式，横拉过去就行

zhangcheng6688 · 发表于 2024-10-16 12:14

学习一下数组
Sub test()
arr = [c2].CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) = "" Then
arr(i, 1) = arr(i - 1, 1)
arr(i, 2) = arr(i - 1, 2)
End If
Next
[h6].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

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

[已解决] 要求：补齐数据

评分

评分

评分

浏览过的版块