VBA 配对赛道及做对应输出 ( 有难度 )

On_fire

VBA 配对赛道及做对应输出 ( 有难度 )

*

Sheet2.(“Lanes”)是源资料, 暂时删掉不参加处理的数据

[C100: P100]是关键词, 同列上一行是赛道

[C147: P147]是关键词, 同列上一行是赛道

关键词一样, 但对应赛道可能不同, 赛道是变量

*

代码逻辑如下,

1.      取[Q184:Q197]及[B182: O182]的关键词配对, 及找出赛道

2.      同时, 统计每一个赛道的关键词数量,  用( ? )表示, ? = 变量

3.      输出对应的数据到指定的区域, [V184: W197]及[B180: O181]

*

部分模拟结果在Lanes(2)

*

恳请大神, 老师出手帮忙…谢谢!

liulang0808

楼主是拿出表格部分数据来提问吗？
每次表格数据的布局真的很有特点。

On_fire

liulang0808 发表于 2023-2-23 10:25
楼主是拿出表格部分数据来提问吗？
每次表格数据的布局真的很有特点。

版主好,
文件是朋友的,
因能力有限, 如帮不了, 就发上来….

ykcbf1100

On_fire 发表于 2023-2-23 10:32
版主好,
文件是朋友的,
因能力有限, 如帮不了, 就发上来….

你发的求助帖子，内容比较难懂。建议你还是摸拟原数据结构上传解决为宜。

On_fire

ykcbf1100 发表于 2023-2-23 10:45
你发的求助帖子，内容比较难懂。建议你还是摸拟原数据结构上传解决为宜。

老师,
这是原文件, 只需要处理的部分, 都在…
1.        关键词及赛道是一对一( 一个关键词只有一个赛道 )
2.        赛道对关键词是可以一对多 ( 一个赛道可以有多个关键词 )
这个逻辑太难搞…

On_fire

ykcbf1100 发表于 2023-2-23 10:45
你发的求助帖子，内容比较难懂。建议你还是摸拟原数据结构上传解决为宜。

老师好,

比如, 截图中的关键词7 ( 绿底 ),

在第1项的比赛, 赛道是8 ( 蓝底, 只有自己, 共1个 ),

在第2项的比赛, 赛道是6 ( 橙底, 有1个对手, 共2个 )

蓝桥玄霜

判断的例子：

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    Set dd = CreateObject("scripting.dictionary")
    arr = [c99:n100]
    For j = 1 To UBound(arr, 2)
        If Len(arr(1, j)) = 0 Then arr(1, j) = arr(1, j - 1)
        d(arr(1, j)) = d(arr(1, j)) + 1
        dd(arr(2, j)) = arr(1, j)
    Next j
    arr = [q184:q195]
    For j = 1 To UBound(arr)
        If dd.exists(arr(j, 1)) Then
            arr(j, 1) = dd(arr(j, 1)) & "(" & d(dd(arr(j, 1))) & ")"
        Else
            arr = ""
        End If
    Next j
    [s184].Resize(UBound(arr)) = arr
End Sub

liulang0808

完成一个，供参考

On_fire

蓝桥玄霜 发表于 2023-2-23 11:38
判断的例子：

感谢蓝版,
厉害! 完美!