[已解决]根据输入的关键词字数在A列找相同的内容

shchint · 发表于 2015-8-14 13:13

根据输入的关键词字数在A列找含相同的内容，输入5就找含有5个完全相同的内容（这里如输入6就找不到相同内容了，B列为空），以此类推。对符合条件的内容变色，并依次统计在B列中。能否实现？

心正意诚身修 · 发表于 2015-8-14 13:56

我不懂VBA,不過我想,就算是VBA也不容易去實現.

shchint · 发表于 2015-8-14 13:58

心正意诚身修发表于 2015-8-14 13:56
我不懂VBA,不過我想,就算是VBA也不容易去實現.

这个我也觉得有难度，可是，不能因此否定武功盖世的大侠们啊

suye1010 · 发表于 2015-8-14 15:26

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
Dim i As Integer, j As Integer, m As Integer, d, arr, KWL, temp, CM, arro(1 To 1000)
Set d = CreateObject("Scripting.Dictionary")
Columns("A:A").Font.ColorIndex = xlAutomatic
KWL = Range("C2")
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
For i = 1 To UBound(arr)
For j = 1 To Len(arr(i, 1)) - KWL + 1
temp = Mid(arr(i, 1), j, KWL)
If d.Exists(temp) Then
d(temp) = d(temp) & ",A" & i
Else
d.Add temp, "A" & i
End If
Next j
Next i
For Each CM In d.keys
If UBound(Split(d(CM), ",")) > 0 Then
m = m + 1
arro(m) = CM & d(CM)
Range(d(CM)).Font.Color = -16776961
End If
Next
Range("B1:B1000") = Application.Transpose(arro)
End If
End Sub

复制代码

suye1010 · 发表于 2015-8-14 15:28

		自动登录	找回密码
密码			注册