VBA 是好东西，对于身在职场的人员，或者是积极打拼的创业者，是数据分析的首选，他可以实现量身定做，解决一些规律性强的问题。或者代替人处理一些可以描述出有逻辑关系的数据分析。多掌握一些VBA语句，让自己书写代码更加流利，更加顺畅。

301 ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _

Range("A2")).Delete

在A列中找出与单元格A2内容不同的单元格并删除

302 ActiveSheet.Range("A6").ClearNotes删除单元格A6中的批注，包括声音批注和文字批注

303 ActiveSheet.Range("B8").ClearComments 删除单元格B8中的批注文字

304 ActiveSheet.Range("A1:D10").ClearFormats 清除单元格区域A1至D10中的格式

305 ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5, _

Weight:=xlMedium, LineStyle:=xlDouble

将单元格B2至D2区域设置为蓝色双线

306 Range("A1:B2").Item(2, 3) 引用单元格C2的数据

307 Range("A1:B2")(2, 3) 引用单元格C2的数据

308 Range("A1:B2")(3) 引用单元格A2

309 ActiveSheet.Cells(1, 1).Font.Bold = True 设置字体加粗

310 ActiveSheet.Cells(1, 1).Font.Size = 24 设置字体大小为24磅

311 ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 设置字体颜色为红色

312 ActiveSheet.Cells(1, 1).Font.Italic = True 设置字体为斜体

313 ActiveSheet.Cells(1, 1).Font.Name = "Times New Roman" 设置字体类型

314 ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 将单元格的背景色设置为红色

315 ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3 将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式

316 Cells.SpecialCells (xlCellTypeLastCell) 选中当前工作表中的最后一个单元格

317 ActiveCell.CurrentArray.Select 选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中

318 ActiveCell.NumberFormatLocal = "0.000; [红色] 0.000" 将当前单元格数字格式设置为带3位小数,若为负数则显示为红色

319 IsEmpty (ActiveCell.Value) 判断活动单元格中是否有值

320 ActiveCell.Value = LTrim(ActiveCell.Value) 删除字符串前面的空白字符

321 Len(ActiveCell.Value) 获取活动单元格中字符串的个数

322 ActiveCell.Value = UCase(ActiveCell.Value) 将当前单元格中的字符转换成大写

323 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) 将活动单元格中的字符串转换成小写

324 ActiveSheet.Range("C1").AddComment 在当前工作表的单元格C1中添加批注

325 Weekday (Date) 获取今天的星期,以数值表示,1-7分别对应星期日至星期六

326 ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1)) 将单元格A1的数值填充到单元格A1至A10区域中

327 DatePart("y", Date) 获取今天在全年中的天数

328 ActiveCell.Value = DateAdd("yyyy", 2, Date) 获取两年后的今天的日期

329 MsgBox WeekdayName(Weekday(Date)) 获取今天的星期数

330 ActiveCell.Value = Year(Date) 在当前单元格中输入今年的年份数