乘积练习-vab Sub 乘积练习() Dim i% For i = 1 To UsedRange.Rows.CountActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 1) * ActiveSheet.Cells
合并单元格实例操作 帮我熟悉：获取行数的公式：usedrange.rows.countoffset/risize/merge等函数的使用。Sub 合并单元格() Application.DisplayAlerts = False Dim i%, k% i =
查找最后一个单元格的两种方法 找行和列的方法 Sub 最后一个单元格()Dim a%, b% a = ActiveSheet.UsedRange.Rows.Count b = ActiveSheet.UsedRange.Columns.Count MsgBox Cell
查询系统-vba Sub 查询系统() Range("h2:k999").ClearDim a%, m% m = 2 'a = Columns(1).Find("*", , , , , , , xlPrevious).Row For i = 1 To 10I
查找一个表格中所有的相同元素并给予标色-vba学习 Sub find函数练习2()Dim rng As Range, address1, address2 Set rng = ActiveSheet.UsedRange.Find(what:="b") address1 = rng.Addre
