【求助】数据批量处理，看上去很简单，但是就是不会做啊

juliaying66

各位大神好！    求助各位大神，想时间关键词的对应 应该如何处理，

     题目比较多，如何可以实现批处理

3190496160

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:a" & r)
    rs = .Cells(Rows.Count, 5).End(xlUp).Row
    .Range("b2:d" & rs) = Empty
    br = .Range("b1:e" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = ""
        End If
    Next i
    For i = 2 To UBound(br)
        sl = 0
        For Each k In d.keys
            If InStr(br(i, 4), k) > 0 Then
                sl = sl + 1
                If sl = 1 Then
                   br(i, 2) = k
                ElseIf sl > 1 Then
                    If br(i, 3) = "" Then
                        br(i, 3) = k
                    Else
                        br(i, 3) = br(i, 3) & "," & k
                    End If
                End If
            End If
        Next k
        br(i, 1) = sl
    Next i
    .[b1].Resize(UBound(ar), 3) = br
End With
MsgBox "ok!"
End Sub

3190496160

juliaying66

3190496160 发表于 2021-4-5 12:05

谢谢大神的指导，但是还有一个小问题，就是在运行程序的过程中发现，备选词和真题不能完全对应，就是真题比较多的情况下，关键词的填写只到备选词的最后一项。想问下这个怎么解决呢

juliaying66

就是现在的情况

juliaying66

3190496160 发表于 2021-4-5 12:05

已经解决了

juliaying66

3190496160 发表于 2021-4-5 12:04
Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

大神好，我还想请教一下，就是如果在表格中统计备选词填入到关键词列和多关键词列的次数 怎么修订这个程序呢。我的目的就是想知道，有哪些备选词没有用上，或者用了太多，都有问题。我好去做调整。

3190496160

juliaying66 发表于 2021-4-6 22:20
大神好，我还想请教一下，就是如果在表格中统计备选词填入到关键词列和多关键词列的次数 怎么修订这个程 ...

不明白z你在说什么，次数目前的代码不是已经统计了吗

juliaying66

目前统计的是该道题目涉及到关键词的次数，我还想要备选词的使用次数。

juliaying66

3190496160 发表于 2021-4-6 22:56
不明白z你在说什么，次数目前的代码不是已经统计了吗

大神就是上面图面显示的这个意思