1、首先我们打开一个工作样表作为例子，例子中我们进行筛选的是大于1400这个数值的数据。
2、按alt+f11进入vba编辑器，并在工程窗口中创建一个新的模块。
3、在模块中我们键入以下代码，接下来我来详细解释代码的作用。Sub 显示大于1400的墙绅褡孛数值() Di罪焐芡拂m i As Integer For i = 6 To 13 If Sheets(1).Cells(i, 4).Value > 1400 Then Sheets(1).Cells(i, 4).Select Selection.Font.FontStyle = "倾斜" Selection.Font.ColorIndex = 3 End If NextEnd Sub
4、首先是定义模块荏半吨蛸名称，这里为了记忆方便，我们选择了中文名称。然后定义一个变量为双字节变量，可以提高vba的处理速度。不过这里可以提醒一点，因为计算机性能的发展，这里定义变量的内存范围已经补是很重要了。
5、接下来我们定义的是工作薄1也就是sheet1中数据所存在的单元格范围，使用for函数循环赋值行，并确定列值为4.然后使用cells函数将数据返回进原工作薄。这一段使用if函数对语句进行判断，取值大于1400的值则进行select，并将其倾斜并填充为红色字体。
6、最后我们可以在表格中实际运用一下，可以看到D列对应范围内大于1400的值变成了红色并倾斜。大家可以以此方法修改，扩充整个表格的数据判断。
