Excel 宏录制与VBA编程 —— 10、Range行列相关操作

代码1 - 单元格引用祥光，及效果

 

 

' 单元格合并、恢复
Sub Test()
    ' 取消合并单元格时出现的弹窗
    Application.DisplayAlerts = False

    ' 合并单元格
    Range("A1:A10").Merge
    
    ' 取消合并单元格
    Range("A1:A10").UnMerge
    
    Dim Txt As String                       ' 存储区域内容
    Dim Num As Integer                  	' 单元格遍历值
    For Num = 1 To 10                    	' 循环遍历单元格
        Txt = Txt & Cells(Num, 1)
        If Num <> 10 Then               	![请添加图片描述](https://img-blog.csdnimg.cn/1f6907b41d8e4e37a53423c9bc2d98e0.gif)
' 当为最后值时不添加","
            Txt = Txt & ","
        End If
        Next Num
        
    ' 赋值 合并单元格
    Range("A1") = Txt
    Range("A1:A10").Merge

    ' 恢复合并单元格时出现的弹窗
    Application.DisplayAlerts = True
End Sub

 

代码2 - 单元格引用祥光，及效果

 

' 增加、删除单行列
Sub Test2()

    ' 区域单元格赋值
    Range("A1:E10").Value = 100
    
    ' 增加一行
    Range("3:3").Insert
    Range("A6").EntireRow.Insert
    
    ' 增加一列
    Range("B:B").Insert
    Range("D1").EntireColumn.Insert
    
    ' 删除一行
    Range("3:3").Delete
    Range("A5").EntireRow.Delete
    
    ' 删除一列
    Range("B:B").Delete
    Range("C1").EntireColumn.Delete

End Sub

 

代码3 - 单元格引用祥光，及效果

 

' 增加、删除多行列
Sub Test3()

    ' 插入多行
    Range("8:12").Insert
    Range("A3:A5").EntireRow.Insert
    
    ' 插入多列
    Range("D1:E1").EntireColumn.Insert
    Range("B:C").Insert

    ' 删除多行
    Range("11:15").Delete
    Range("A3:A5").EntireRow.Delete
    
    ' 删除多列
    Range("F:G").Delete
    Range("B1:C1").EntireColumn.Delete
    
End 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 = 10

End Sub

 
 

代码5 – 隐藏行或列

Function SetRangeTest(HideFlag As Boolean)

    ' 隐藏行
    Range("A3:A5").EntireRow.Hidden = HideFlag
    
    ' 隐藏列
    Range("E:G").EntireColumn.Hidden = HideFlag

End Function

Sub SetHideTrue()
    SetRangeTest (True)
End Sub

Sub SetHideFalse()
    SetRangeTest (False)
End Sub

 
 

代码6 - 清除单元格格式及内容

' 创建表格内容及格式
Sub CreatorTableFormatContext()

    ' 创建文字
    Range("A1:J10").Value = 9527
    
    ' 创建文字格式
    With Range("A1:J10").Font
        .Color = vbRed
        .Name = "Courier New"
        .Bold = True
    End With
    
End Sub


' 清除表格内容
Sub ClearTableContext()
    Range("A1:J10").ClearContents
End Sub

' 清除表格格式
Sub ClearTableFormat()
    Range("A1:J10").ClearFormats
End Sub

' 清除表格内容格式
Sub ClearTableContextFormat()
    Range("A1:J10").Clear
End Sub

 
 

代码7 - 替换单元格内字符串

 

关注

笔者 - jxd