判断VBA代码 Sub 判断() Dim i Worksheets(2).Activate '激活表2 For i = 4 To 8 '在4行到8行循环 If Range('A' & i) = '有' And Range('B' & i) >= 20 Then Range('c' & i) = '...

技巧 [mark_a] 1、表格代码名：通常在代码中指定表格时使用代码名，代码名可以修改，但不建议修改 2、立即窗口对象前加问号运行可显示单元格值。 [/mark_a] 动图演示 代码区 Sub FindLike() Dim...

[mark_d] 作用：返回一个数据列表或数据库的分类汇总。 语法：=Subtotal(功能代码，数值区域)。 功能代码对应函数 1 、1 AVERAGE（算术平均值） 2、 2 COUNT（数值个数） 3、 3 COUNTA（非空单...

技巧 1、如果代码比较多，最好使用强制声明，因为这样可以有效的防止变量名的错误出现。少的话不强求使用强制声明。强制声明的实现方法 代码区 Sub 替换宏() cells.Replace What:='小', Replace...