vba核心对象range的40段基础代码

1. 选择特定单元格 

Range('A1').Select

2. 读取单元格值

MsgBox Range('A1').Value

3. 设置单元格值

Range('A1').Value = 100

4. 合并单元格

Range('A1:B2').Merge

5. 取消合并单元格

Range('A1').UnMerge

6. 设置单元格背景色

Range('A1').Interior.Color = RGB(255, 0, 0)

7. 设置字体颜色

Range('A1').Font.Color = RGB(0, 0, 255)

8. 设置字体大小

Range('A1').Font.Size = 12

9. 设置加粗

Range('A1').Font.Bold = True

10. 设置斜体

Range('A1').Font.Italic = True

11. 设置下划线

Range('A1').Font.Underline = True

12. 设置边框样式

Range('A1').Borders.LineStyle = xlContinuous

13. 设置水平对齐

Range('A1').HorizontalAlignment = xlCenter

14. 设置垂直对齐

Range('A1').VerticalAlignment = xlTop

15. 插入行

Rows(1).Insert

16. 删除行

Rows(1).Delete

17. 隐藏行

Rows(1).Hidden = True

18. 显示行

Rows(1).Hidden = False

19. 复制单元格

Range('A1').Copy Destination:=Range('B1')

20. 清除内容

Range('A1').ClearContents

21. 自动筛选

Range('A1').CurrentRegion.AutoFilter Field:=1, Criteria1:='>100'

22. 排序数据

Range('A1').CurrentRegion.Sort Key1:=Range('B1'), Order1:=xlAscending

23. 查找特定值的单元格

Set foundCell = Range('A1:A10').Find(What:=25, LookIn:=xlValues)

24. 应用条件格式

Range('A1:A10').FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:='100'

25. 创建数据验证

With Range('A1').Validation

26. 设置打印区域

ActiveSheet.PageSetup.PrintArea = Range('A1:D10').Address

27. 插入单元格

Range('A1').Offset(1, 0).Resize(RowSize:=2).Insert Shift:=xlDown

28. 删除单元格

Range('A2:A3').Delete Shift:=xlUp

29. 调整行高

Range('A1').RowHeight = 50

30. 调整列宽

Range('A1').ColumnWidth = 15

31. 复制格式

Range('A1').Copy Destination:=Range('B1')

32. 粘贴特殊格式

Range('B1').PasteSpecial Paste:=xlPasteFormats

33. 添加超链接

Range('A1').Hyperlinks.Add Anchor:=Range('A1'), Address:='http://www.', TextToDisplay:='点击访问'

34. 批量清除公式保留值

Range('A1:B10').Value = Range('A1:B10').Value

35. 保护/解锁工作表中的单元格

ActiveSheet.Protect Password:='password'

36. 遍历形状并操作

For Each shp In ActiveSheet.Shapes ... Next shp

37. 批量替换公式中的文本

Range('A1:B10').Replace What:='old_text', Replacement:='new_text', LookAt:=xlPart, SearchOrder:=xlByRows

38. 批量转换数值格式

Range('A1:A10').NumberFormat = '0.00%'

39. 批量应用文本格式

Range('A1:A10').Font.Name = 'Arial'

40. 批量设置条件格式规则

Range('A1:A10').FormatConditions.Add Type:=xlExpression, Formula1:='=MOD(A1,2)=0'

工作很忙，想短时间学会vba？

跟我学，10天学会（只教vba小白和略懂一点vba但知识点太零散不成系统的朋友）。

扫描二维码加我微信，学费活动价。