
excel
VBASub Worksheet_Change(ByVal Target As Range)Dim i As IntegerFor Each cell In TargetIf cell "" ThenFor i = 1 To cells.CountIf cells(i, 1) = cell ThenExit ForEnd IfNext iIf i > 0 ThenActiveCell.SelectEnd IfNextEnd Sub该代码会检测工作表中C1列中的数据是否变化,并且当发生变化时,自动将与该列数据相匹配的所有行显示出来。另外,在VBA编辑器中,我们可以将代码拷贝到想要实现功能的工作表上。只需打开该工作表的VBA编辑器,在其中找到并插入上述代码即可。这样,在C1列发生变化时,你就可以轻松地查看该列与A列之间匹配的哪一行数据。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号