[已解决]函数公式无法解决，请各位老师有VBA解决!!

lfdzgf · 发表于 2016-1-8 11:37

本帖最后由 lfdzgf 于 2016-1-8 14:47 编辑

各位老师和高手们，我遇一问题，自己不会，特请老师高手们用VBA来解决，谢谢！请见附件：

函数公式无法解决，请用VBA解决！！.rar (11.8 KB, 下载次数: 10)

lfdzgf · 发表于 2016-1-8 11:37

真诚的请各位老师和高手们给予解决，谢谢！！！！！！！！！！！！！！！！

心正意诚身修 · 发表于 2016-1-8 11:44

SA5跟a6:f6 对比?

lfdzgf · 发表于 2016-1-8 11:55

心正意诚身修发表于 2016-1-8 11:44
SA5跟a6:f6 对比?

是的。
sa4、sb4、sc4、sd4、se4、sf4都要与A5:F5对比。
SG4与G5对比。
以此类推，下面一样。

lfdzgf · 发表于 2016-1-8 11:57

心正意诚身修发表于 2016-1-8 11:44
SA5跟a6:f6 对比?

sa4、sb4、sc4、sd4、se4、sf4都要与A5:F5对比。
SG4与G5对比。
sa5、sb5、sc5、sd5、se5、sf5都要与A6:F6对比。
SG5与G6对比。
以此类推，下面一样。

心正意诚身修 · 发表于 2016-1-8 12:57

Sub test()
Dim a, b, d, e, arr, l, lt
Range("sa4:sg9999").Font.ColorIndex = 1
l = Cells(Rows.Count, "sa").End(3).Row
For a = 495 To 500
For b = 4 To l
For d = 1 To 6
arr = Split(Cells(b, a), "、")
For e = 0 To UBound(arr)
lt = lt + Len(arr(e)) + 1
If Cells(b + 1, d) = Val(arr(e)) Then
Cells(b, a).Characters(Start:=lt - Len(arr(e)), Length:=Len(arr(e))).Font.ColorIndex = 3
End If
Next: lt = 0
Next
Next
Next
For b = 4 To l
arr = Split(Cells(b, "sg"), "、")
For e = 0 To UBound(arr)
lt = lt + Len(arr(e)) + 1
If Cells(b + 1, "g") = Val(arr(e)) Then
Cells(b, "sg").Characters(Start:=lt - Len(arr(e)), Length:=Len(arr(e))).Font.ColorIndex = 5
End If
Next: lt = 0
Next
MsgBox "完毕"
End Sub

复制代码

心正意诚身修 · 发表于 2016-1-8 12:59

第18行 for b = 4 to l 上面在加一句 lt=0

excel助手 · 发表于 2016-1-8 13:18

本帖最后由 excel助手于 2016-1-8 13:21 编辑

Public Sub yanse()
Dim r, c, i, j, l
For r = 4 To 9
For c = 495 To 500
j = 1
For i = 2 To Len(Cells(r, c)) + 1
      If Mid(Cells(r, c) & "、", i, 1) = "、" Then
         l = i - j
         If Application.WorksheetFunction.CountIf(Range(Cells(r + 1, 1), Cells(r + 1, 6)), Val(Mid(Cells(r, c), j, l))) > 0 Then
         Cells(r, c).Characters(Start:=j, Length:=l).Font.Color = -16776961
         End If
         j = i + 1
      End If
Next i
Next c
Next r
For r = 4 To 9
j = 1
For i = 2 To Len(Cells(r, 501)) + 1
      If Mid(Cells(r, 501) & "、", i, 1) = "、" Then
         l = i - j
         If Cells(r + 1, 7) = Val(Mid(Cells(r, 501), j, l)) Then
         Cells(r, 501).Characters(Start:=j, Length:=l).Font.Color = -1003520
         End If
         j = i + 1
      End If
Next i
Next r
End Sub

函数公式无法解决，请用VBA解决！！.zip (22.33 KB, 下载次数: 3)

lfdzgf · 发表于 2016-1-8 14:36

心正意诚身修发表于 2016-1-8 12:59
第18行 for b = 4 to l 上面在加一句 lt=0

是在18行上面重新插入一行写 lt=0，还是在17行的Next后面加上 lt=0

lfdzgf · 发表于 2016-1-8 14:40

心正意诚身修发表于 2016-1-8 12:57

SG4与G5对比。
SG5与G6对比。
好象没写进去？

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

[已解决]函数公式无法解决，请各位老师有VBA解决!!

评分

点评