行列相关操作"/>
Excel 宏录制与VBA编程 —— 10、Range行列相关操作
代码1 - 单元格引用祥光,及效果
' 单元格合并、恢复
Sub Test()' 取消合并单元格时出现的弹窗Application.DisplayAlerts = False' 合并单元格Range("A1:A10").Merge' 取消合并单元格Range("A1:A10").UnMergeDim Txt As String ' 存储区域内容Dim Num As Integer ' 单元格遍历值For Num = 1 To 10 ' 循环遍历单元格Txt = Txt & Cells(Num, 1)If Num <> 10 Then ![请添加图片描述](.gif)
' 当为最后值时不添加","Txt = Txt & ","End IfNext Num' 赋值 合并单元格Range("A1") = TxtRange("A1:A10").Merge' 恢复合并单元格时出现的弹窗Application.DisplayAlerts = True
End Sub
代码2 - 单元格引用祥光,及效果
' 增加、删除单行列
Sub Test2()' 区域单元格赋值Range("A1:E10").Value = 100' 增加一行Range("3:3").InsertRange("A6").EntireRow.Insert' 增加一列Range("B:B").InsertRange("D1").EntireColumn.Insert' 删除一行Range("3:3").DeleteRange("A5").EntireRow.Delete' 删除一列Range("B:B").DeleteRange("C1").EntireColumn.DeleteEnd Sub
代码3 - 单元格引用祥光,及效果
' 增加、删除多行列
Sub Test3()' 插入多行Range("8:12").InsertRange("A3:A5").EntireRow.Insert' 插入多列Range("D1:E1").EntireColumn.InsertRange("B:C").Insert' 删除多行Range("11:15").DeleteRange("A3:A5").EntireRow.Delete' 删除多列Range("F:G").DeleteRange("B1:C1").EntireColumn.DeleteEnd Sub
代码4 - 设置行高、列宽
Sub Test()' 设置单行行高'Range("A1").EntireColumn.ColumnWidth = 10'Range("A:A").ColumnWidth = 5' 设置多行行高'Range("3:5").RowHeight = 30'Range("A7:A9").EntireRow.RowHeight = 50' 设置单列列宽'Range("B:B").ColumnWidth = 20'Range("B1").EntireColumn.ColumnWidth = 10' 设置多列列宽'Range("B:C").ColumnWidth = 8'Range("C1:E1").EntireColumn.ColumnWidth = 10End Sub
关注
笔者 - jxd
更多推荐
Excel 宏录制与VBA编程 —— 10、Range行列相关操作
发布评论