一个最基本的VBA程序 Sub test() //宏开始 Dim ge As Range //定义变量 For Each ge In Range("a1:a10") //从a1到a10遍历 ge = 1//对每个单元格进行赋值 Next//循环结束标志 End Sub//宏结束标志 基本语法:(对VBA来说,没有大小写之分,一律认为是小写,保留字等会在写完之后自动改变大小写) 1.判断: if (判断条件,例:i = 1)Then (判断成立后执行) ElseIf (判断条件,例i=3
PART1: 三.查找 1.从某一行向上/下找到第一个不为空的行 intRowPntEnd = ActiveSheet.Cells(intRowPntStart, intColPnt).End(xlDown).Row m = Range("e65536").End(xlUp).Row 四.定位 2.在某个区域查找标记名称 For Each std In ActiveSheet.UsedRange 五.行列的range变量 ActiveSheet.Range("F3"
用excel处理数据的时候,无论是使用VBA还是函数,查找和引用都是两大主要的工作,VBA中的find系列的方法(find.findnext.Range.FindPrevious)返回range对象,可以同时实现查找和引用,因此非常有用,下面列举一些常见的find的用法: Sub Find1() '在某列查找 Dim k k = Range("A:A").Find("A").Row MsgBox k End Sub =========================