1、VBA入门的基础语句选择一个工作表： q/M+vZActiveCell.Offset(varFreightRowsCount, 0).Select选择整个工作表：*S*R#t7+z5SCells.Select选择当前单元格所在的区域（遇到空行/空列即止）：:E(A*w!h7c%L2x!I$I URange(“A1“).CurrentRegion.Select | 国内领先的通信技术论坛 1w“q+t? j-D;O-3/G或者：mscbsc 移动通信论坛拥有 30万通信专业人员，超过 50万份 GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生活的社区。$N8K“?)w+P.2U:D
2、0eActiveCell.EntireRow.SelectActiveCell.EntireColumn.Select选择相邻的多行/多列：Columns(“A:C“).S:P/z0o/v5:B%O2tRows(“1:5“).S(y7C;t“L,R73s#V%x选择不相邻的多行/多列：注意：和选择相邻的多行/多列不同，使用“Range“而不是“Columns/Rows“：Range(“A:A, C:C, E:F“).SelectRange(“1:1,5:6,9:9“).Selectmscbsc 移动通信论坛拥有 30万通信专业人员，超过 50万份 GSM/3G等通信技术资料，是国内领先专注于通
3、信技术和通信人生活的社区。-B0t+s0v#2m/T$y,B;%b“P选择当前活动单元格向下至最后一个非空单元格：Range(“A1“, Range(“A1“).End(xlDown).S!Q4C*M._,P:y4pRange(ActiveCell, ActiveCell.End(xlDown).Select | 国内领先的通信技术论坛 4D-n6K*S57D5选择当前活动单元格向上至第一个非空单元格： | 国内领先的通信技术论坛e3O(“r(N;I1M2X“nRange(“A32“, Range(“A32“).End(xlUp).SelectRange(ActiveCell, ActiveC
4、ell.End(xlUp).Select“Z+mX选择当前活动单元格向左至第 10个单元格。Range(“A20“, Range(“A20“).Offset(0, -10).Selectmscbsc 移动通信论坛拥有 30万通信专业人员，超过 50万份 GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生活的社区。c3e“GK(2M4z+W+eRange(ActiveCell, ActiveCell.Offset(0, -10).Select | 国内领先的通信技术论坛)3?2a2K2H?+vf:x(r:p$_#-FEnd If mscbsc 移动通信论坛拥有 30万通信专业人员，超
5、过 50万份 GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生活的社区。9pO3j6k关于 IfThen.Else.EndIf当只有一个条件和两个动作时，你可以用下面的语句：If Selection.Value 10 ThenC.m$?6P9,r7B,L)y6BaEnd If 关于 IfThenElseIf.EndIf,s+dA#Y6%E+x4V7M2GSelection.Offset(1, 0) = 40ElseIf Selection.Value = 5 Thenmscbsc 移动通信论坛拥有 30万通信专业人员，超过 50万份 GSM/3G等通信技术资料，是国内领先专注于通
6、信技术和通信人生活的社区。(1I6? q%Z.%wSelection.Offset(1, 0) = 50End If 关于 Select Case(4o;x4D$Y7Bt)ELCase | 国内领先的通信技术论坛#x P X2“H-w当对输入的字符做判断时，我们无法知道用户输入的字符是大写还是小写，用LCase函数可以将其转化为小写：If LCase(Selection.value)= “toto“ then.移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单!V(R1L5l/t:h8o:orSelect Case LCase(Selection.value)$F3nW0oG7E-d9K$e)E当对输入的字符做判断时，我们无法知道用户输入的字符是大写还是小写，用UCase函数可以将其转化为大写：MSCBSC 移动通信论坛+U“a,“e-f,F3RIf UCase(Selection.value)= “TOTO“ then.or | 国内领先的通信技术论坛 8.(;ZbSelect Case UCase(Selection.value)0f-a,W-k xor%Mg9b*n03DO WHILE UCase(Selection.value)“TOTO“
