如果你有很多需要标记的行,可以通过编写一个 VBA 宏来自动化这个过程。以下是 VBA 宏的示例代码:
- 按
Alt + F11
打开 VBA 编辑器。 - 在左侧的“VBAProject”窗口中,右键点击你的工作簿,选择“插入” > “模块”。
- 在打开的模块窗口中,粘贴以下代码:
Sub AddMarkInFirstColumn()
Dim ws As Worksheet
Dim searchRange As Range
Dim cell As Range
Dim searchValue As String' 设置工作表和搜索值
Set ws = ActiveSheet
searchValue = "IEEE TRANSACTIONS ON VEHICULAR TECHNOLOGY" ' 你可以直接指定搜索值' 搜索范围,可以根据需要调整范围
Set searchRange = ws.UsedRange' 遍历所有单元格,查找并标记
For Each cell In searchRange
If cell.Value = searchValue Then
' 如果找到匹配的值,在该行的第一列添加标记
cell.EntireRow.Cells(1, 1).Value = 1
End If
Next cellMsgBox "操作完成!"
End Sub - 关闭 VBA 编辑器,回到 Excel。
- 按
Alt + F8
打开宏窗口,选择AddMarkInFirstColumn
,然后点击“运行”。