曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速开头

EH探寻
EH技术汇-专业的职场本事充电站 妙哉!函数段子手有趣讲函数 足球供职器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造主题竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码试验指南
稽查: 73 | 回复: 0
打印 上一主题 下一主题

[求助] 协助修改下代码,关于数值均匀分配组数

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
宣布于 2020-10-17 05:34 | 只看该作者 回帖赞美 | 倒序阅读 | 阅读形式
协助修改下,件数与线路不巩固,组别设置成巩固单元格的数值,这个代码是找到他人的 。


Sub t()
Dim i, j, d
Set d = CreateObject("Scripting.Dictionary"),足球社区互动。
For i = 1 To 3
d(rge([b2:b13], 2 * i - 1)) = i
d(rge([b2:b13], 2 * i)) = i
d(rge([b2:b13], -2 * i + 13)) = i,足球社区互动。
d(rge([b2:b13], -2 * i + 14)) = i,足球社区互动。
Next i
For i = 2 To [a].End(3).Row
Range("c" & i) = d(Range("b" & i).Value)
Next i
End Sub






工作.rar

9.86 KB, 下载次数: 1

您需要登录后才不妨回帖 登录 | 收费注册

本版积分规则

体贴官方微信,每天学会一个新本事

手机版|关于我们|干系我们|曼城足球论坛

GMT+8, 2020-10-18 11:25, Processed in 0.0 second(s),足球社区。 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属宣布者小我意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表