Microsoft Office Excel 2007
Excel VBA
首先打开上例文件，如下图。
然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
然后插入了一个模块1，在代码框中复制如下代码：Sub 选数据单个标示() '2020-5-3 22:29:54 Dim r As Long, c As Long, mr1 As Range, mr2 As Range, i As Long, j As Long Set mr1 = Selection r = mr1.Rows.Count c = mr1.Columns.Count Set mr2 = Application.InputBox(prompt:='选择查找数据单元格', Type:=8) For i = 1 To r For j = 1 To c If mr1.Cells(i, j).Value = mr2.Cells(i).Value Then mr1.Cells(i, j).Interior.Color = 255 End If Next j Next iEnd Sub
以上操作动态过程如下：
回到工作表窗口，首先选原数据表，然后运行【选数据单个标示】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名），提示“选择查找数据单元格”那是Q列，选好后输出结果，运行过程如下图。
选表“Sheet2”如下图
然后按下快捷键ALT+F11打开VBA（宏）编辑界面，在模块1代码框中，复制下面代码：Sub 选数据连续标示() '2020-5-3 22:29:54 Dim r As Long, c As Long, mr1 As Range, mr2 As Range, n As Long, i As Long, j As Long, i1 As Long, k1 As Long, k2 As Long Set mr1 = Selection r = mr1.Rows.Count c = mr1.Columns.Count Set mr2 = Application.InputBox(prompt:='选择查找数据单元格', Type:=8) n = mr2.Count For i = 1 To r - n + 1 k1 = 0 For i1 = 1 To n k2 = 0 For j = 1 To c If mr1.Cells(i + i1 - 1, j).Value = mr2.Cells(i1).Value Then k2 = k2 + 1 End If Next j If k2 > 0 Then k1 = k1 + 1 Next i1 If k1 = n Then For i1 = 1 To n If mr1.Cells(1).Offset(i + i1 - 2, c).Value = '' Then mr1.Cells(1).Offset(i + i1 - 2, c).Value = mr2.Cells(i1).Value mr1.Cells(1).Offset(i + i1 - 2, c).Interior.Color = 255 Else mr1.Cells(1).Offset(i + i1 - 2, c).Value = mr1.Cells(1).Offset(i + i1 - 2, c).Value & '、' & mr2.Cells(i1).Value mr1.Cells(1).Offset(i + i1 - 2, c).Interior.Color = 255 End If Next i1 End If Next iEnd Sub
回到工作表窗口，首先选原数据表，然后运行【选数据连续标示】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名），提示“选择查找数据单元格”那是H列，选好后输出结果，运行过程如下图。
如果觉得这篇经验帮到了您，请点击下方的 “投票点赞' 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！
动态图片要双击成单独大图才能播放全过程。