阿Q吧 > 在Excel 表格里查找到某人名字并填充底纹后，如何在同行的另一列里自动生成备注，如ABCD？

在Excel 表格里查找到某人名字并填充底纹后，如何在同行的另一列里自动生成备注，如ABCD？

2025-04-14 11:41:22

推荐回答（6个）

回答1：

用vlookup函数查找，再用条件格式公式就可以解决了，具体办法可以Q我578883675

回答2：

你好：
给个在线联系方式，文件传过来，详细说一下，再帮你做。

回答3：

使用VBA编程：
Sub ouyang()
a = [s2]: b = [s3]: c = [s4]: d = [s5]
For Each e In Worksheets
For i = 2 To 367
e.Cells(i, 18) = ""
e.Cells(i, 12).Interior.ColorIndex = 0
e.Cells(i, 13).Interior.ColorIndex = 0
e.Cells(i, 14).Interior.ColorIndex = 0
e.Cells(i, 15).Interior.ColorIndex = 0
Next i
Next e
For Each e In Worksheets
For i = 2 To 367
s = 1
For j = 12 To 15
If e.Cells(i, j) = a Then e.Cells(i, j).Interior.ColorIndex = 3: s = s + 1
If e.Cells(i, j) = b Then e.Cells(i, j).Interior.ColorIndex = 4: s = s + 1
If e.Cells(i, j) = c Then e.Cells(i, j).Interior.ColorIndex = 5: s = s + 1
If e.Cells(i, j) = d Then e.Cells(i, j).Interior.ColorIndex = 6: s = s + 1
e.Cells(i, 18) = Left(" ABCD", s)
Next j
Next i
Next
End Sub

文件已经发到您的QQ上了！！！
还有什么问题可以在QQ上留言！祝工作顺利！！！

回答4：

传过来文件吧,1009358063@QQ.COM

回答5：

请发文件到levi_wzh@163.com 火速解决

回答6：

我不会