EXCEL VBA 按姓名查找匹配的内容，并添加批注 excel的批注可以自动匹配添加吗？
Sub tst()
Dim cel1 As Range, cel2 As Range, cel3 As Range
Dim i%
Sheet1.Activate
For Each cel1 In Sheet2.Range("a3:a16")
For Each cel2 In Sheet1.Range("b2:b17")
If cel1.Value = cel2.Value Then
cel2.Offset(0, 7).Value = cel1.Offset(0, 1)
cel2.Offset(0, 7).AddComment.Text Text:=cel1.Offset(0, 2).Value
End If
Next
Next
End Sub
用字典不？表一的姓名全不全？
EXCEL VBA找出对应内容并填充入序号~
Sub s() Set d = CreateObject("scripting.dictionary") t = [j2].Text tl = Val(Left(t, 1)) tr = Val(Right(t, 1)) For i = 10 To 28 For j = 18 To 28 n = Cells(j, i).Text If n "" Then If (tl + Left(n, 1) + 1) Mod 10 = (tr + Right(n, 1)) Mod 10 Then d(n) = d(n) + 1 End If End If Next Next i = 28 Do While Cells(1, i) "" Cells(1, i) = Cells(1, i) + 1 i = i - 2 If i < 10 Then Exit Sub Loop Cells(1, i) = 0 For j = 7 To 16 n = Cells(j, i).Text If d.exists(n) Then Cells(j, i).Interior.Color = vbYellow Cells(j, i + 1) = d(n) End If NextEnd Sub
给你个附件
把要添加批注的单元格复制到A列
要添加的批注复制到B列
点击按钮
再把添加完批注的单元格复制，选择性粘贴批注到原工作表
