1、打开新文档依次点击菜单“开始”——“程序”——“Microsoft Office”——“Microsoft Office E旌忭檀挢xcel 2007”打开一个新建的excel文档或同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。
2、打开VB编辑器在打开的excle窗口，依次点击工具栏“开发工具”——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。
3、打开代码编辑窗双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。
4、开始编写代码在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。
5、在过程中写入以下代码： If (Target.Columns.Count = Sheet1.Columns.潮贾篡绐Count) And (Target.Row <= Range("b4").Row) And (Target.Row + Target.Rows.Count > Range("b4").Row) Then MsgBox "yes" Else MsgBox "no" End If其中，Target.Columns.Count表示选区的列数，Sheet1.Columns.Count表示sheet1表列的最大数，如果两都相等，则表示整行选择；Target.Row 表示选区的开始行号，Target.Row + Target.Rows.Count-1表示选区的结束行号 。
6、运行测试效果我们再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。当然，你也可以修改msgbox语句成你需要的代码，进行更多操作处理。B4单元格也可以定义成可变值，如果有需要可以给小编留言。
