我有动态的html内容,我使用[innerHTML]注入了内容,但问题是在其中也
警告:清理不安全的URL值
如何混合使用这些功能Sub Adrift()
Dim NA As Long, NC As Long, I As Long
Dim Finder As Range, FAdd As String, Count As Integer
NA = Cells(Rows.Count, "A").End(xlUp).Row
NC = Cells(Rows.Count, "C").End(xlUp).Row
For I = 2 To NA
Count = 0: Cells(I, "B").Value = ""
Set Finder = Range("C1:C" & NC).Find(Cells(I, "A").Value, LookAt:=xlPart)
If Not Finder Is Nothing Then
FAdd = Finder.Address
Do
Cells(I, "B").Value = Cells(I, "B").Value & "," & Finder.Value
Count = Count + 1
Set Finder = Range("C1:C" & NC).FindNext(Finder)
Loop While Finder.Address <> FAdd And Count < 3
Cells(I, "B").Value = Mid(Cells(I, "B").Value, 2)
End If
Next I
End Sub
和this.sanitizer.bypassSecurityTrustHtml