怎样用EXCEL做四象限

Question

如题所述

Answer 1

首先，为了讲解的需要，特制作如图所示的表格。

按“Alt+F11”进入VBA编程环境，右击“Microsoft Excel对象”，选择“插入”->“模块”项。

接着输入如图所示的代码：

Sub 显示某列非空行的行号()

Dim i, j As Integer

i = Sheets(1).[A65535].End(xlUp).Row

j = Sheets(1).[B65535].End(xlUp).Row

MsgBox "A列中非空行行号为" & i & Chr(10) & "B列中非空行行号为" & j, vbOKOnly, "提示"

End Sub

然后点击“运行子过程”按钮，在弹出的窗口中点击“运行”按钮。

就可以看到运行结果啦。