- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]统计重复值的数量显示在合并单元格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184284)
-- 发布时间：2022/11/30 22:57:00
-- [求助]统计重复值的数量显示在合并单元格
求助1，第一列相邻一样的值的总数量（最大值）自动录入到第二列后
再合并模式
With Tables("表A")
.MergeMode = MergeModeEnum.Free
.MergeCols.Clear()
.MergeCols.Add("第一列")
.MergeCols.Add("第二列")
.MergeSort = "第一列,第二列"
.AllowMerge = True
End With
此主题相关图片如下：求助第二列自动汇总第一列相邻一样值的数量.png
[此贴子已经被作者于2022/11/30 23:32:49编辑过]
-- 发布时间：2022/12/1 8:54:00
--
请上传实例测试
-- 发布时间：2022/12/1 9:05:00
-- 回复：（有点蓝）请上传实例测试
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:狐表版本22年1月版本不能升级了.foxdb |
蓝总，狐表不能升级了，辛苦代码贴出来
-- 发布时间：2022/12/1 9:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:狐表版本22年1月版本不能升级了.zip |
-- 发布时间：2022/12/1 9:58:00
-- 回复：（有点蓝）[upload=zip,狐表版本22年1月版本不能...
蓝总，我的版本低打不开上楼项目，辛苦把代码贴出来了
-- 发布时间：2022/12/1 10:20:00
--
付费升级
-- 发布时间：2022/12/1 10:43:00
-- 回复：（有点蓝）付费升级
蓝总，理解一下，行情不好，明年再升级了，我的是高级开发版本，升级太贵了
-- 发布时间：2022/12/1 10:52:00
--
Dim t As Table = Tables("窗口1_Table1")
Dim s As String = t.Rows(0)("第一列")
Dim a As Integer = 0
Dim c As Integer = 1
For i As Integer = 1 To t.Rows.Count - 1
If t.Rows(i)("第一列") <> s Then
For j As Integer = a To i - 1
t.Rows(j)("第二列") = c
Next
s = t.Rows(i)("第一列")
a = i
c = 1
Else
c += 1
End If
Next