求大神，很简单的填充问题

算法个

就是知道某一列的数据，对应行的数据只填其中一个，怎么把其他空白处也自动填充，  给个示范例表，   我的数据大概也就这样，  就是有上万行。

loirol

对应哪一行是随机的？这问题也没有这么简单。。。

算法个

loirol 发表于 2021-8-19 09:53
对应哪一行是随机的？这问题也没有这么简单。。。

对， 就是就是随机的， 要是对应的是第一行，就简单了。

loirol

算法个 发表于 2021-8-19 09:55
对， 就是就是随机的， 要是对应的是第一行，就简单了。

所以说也没这么简单
VBA解，供参考

鄂龙蒙

1. Sub 同序号填充()
   
2.     Dim d, ar, i, n
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ar = Range("A1").CurrentRegion
   
5.     For i = 2 To UBound(ar)
   
6.         If Len(ar(i, 2)) Then d(ar(i, 1)) = i
   
7.     Next
   
8.     ar = Range("G1").CurrentRegion
   
9.     For i = 2 To UBound(ar)
   
10.         If d.exists(ar(i, 1)) Then
    
11.             n = d(ar(i, 1))
    
12.             Range("b" & n).Resize(1, 3).Copy Range("H" & i)
    
13.         End If
    
14.     Next
    
15.    Set d = Nothing
    
16. End Sub

复制代码

算法个

loirol 发表于 2021-8-19 10:08
所以说也没这么简单
VBA解，供参考

这个是自定义函数还是宏 呀？

算法个

loirol 发表于 2021-8-19 10:08
所以说也没这么简单
VBA解，供参考

这个是自定义函数还是宏？

loirol

算法个 发表于 2021-8-19 10:32
这个是自定义函数还是宏 呀？

宏，打开附件按按钮

鄂龙蒙

同序号填充.rar (16.71 KB, 下载次数: 12)

2021-8-19 10:35 上传

点击文件名下载附件

算法个

loirol 发表于 2021-8-19 10:33
宏，打开附件按按钮

  点击了 显示
无法运行宏可能是不可用或禁用