团一团的个人资料 - RAT

团一团

关注数: 0 粉丝数: 0 发帖数: 155 关注贴吧数: 4

vba工作簿名称含有空格工作簿名称含有空格，vba循环打开工作簿时失败，有什么办法解决吗

清除武将牌上的标记技能:清除武将上的标记如何写代码

朱建平技能代码 (相面)如何更改朱建平的相面代码如何改成可以对角色重复发动，(对于正存在标记的角色，不能选择发动)

内嵌图片转浮动图片，vba 这种WPS特有的内嵌图片，如何用vba循环转为浮动图片呢

vba数组 bom层级如何实现：1- 208固定数量下一级做备注 2- 202的半成品物料下一级去除

统计实际日期个数如何直接用函数统计在开始与结束之间的实际日期的个数

如何实现左边补充上级内容？？？谢谢

数组或者字典如何用数组或字典对级别编号为1的及1下面非1的填充数据呢？

如何用数组字典分类求和呢

如何通过字典的方式，按人名列分别拆分2个工作表。(人名表人名负数表)谢谢

VBA代码如何把多列转换为(以文本形式存储的数字)格式

字典求和并把其他列数据也移过去，谢谢

VBA DIR 只有前面型号部分如何复制文件到另一个文件夹呢，谢谢

如何实现同个物料，价格与上一个单元格比较，比较结果放在右边

正则表达式如何写把第三个 - 之后的部分包含-去掉呢？？？谢谢

正则表达式，如何写最后一个是字母或-字母

当连接的字符超过，transpose会报错，如何改写代码呢 Sub 合并同类项() Dim d Set d = CreateObject("Scripting.Dictionary") Dim arr, I Range("D:E").Clear arr = Range("A1:B" & [A66536].End(3).Row) For I = 1 To UBound(arr) If Not d.exists(arr(I, 1)) Then d(arr(I, 1)) = arr(I, 2) Else If InStr(d(arr(I, 1)), arr(I, 2)) = 0 Then d(arr(I, 1)) = d(arr(I, 1)) & "," & arr(I, 2) End If End If Next I Range("D1").Resize(d.Count) = Application.Transpose(d.keys) Range("E1").Resize(d.Count) = Application.Transpose(d.items) End Sub

跨工作表匹配数据，满足相同条件的不同单元格合并到同一单元？可否实现

求如何从上得到下面

1 下一页