1、实例【查找最后付款月份?】
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!
3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
5、在代码编辑窗口输入以下代码:Sub end应用最后付款月份0()Dim j As 诔罨租磊Integer, k%, m%j = Cells(Rows.Cou荏鱿胫协nt, "a").End(xlUp).RowRange([n2], Cells(j, "n")) = ""Do Until k + 1 = jk = k + 1m = Cells(k + 1, "n").End(xlToLeft).ColumnCells(1, m).copy Cells(k + 1, "n")LoopEnd Sub
6、在工作表界面,【开发工具】菜单下,点击【插入】按钮,填加一表单,与编辑代码相关联,敛财醣沁并命名为【查找最后付款月份】!
7、点击按钮,最后付款月份被迅速找出!