VBA笔记与代码存档（我的）

(Last Updated On: 2021-05-13)

待学习整理的内容

• ListObject 对象 (Excel) | Microsoft Docs
• EXCEL VBA 常见字典用法集锦及代码详解(全) – 百度文库 (baidu.com)

---

设置单元格中部分字符的格式

Sub TEST()
    With ActiveCell.Characters(Start:=4, Length:=2).Font '设置单元格中第4~6个字符的字体
        .Name = "等线"
        .FontStyle = "加粗"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub

将Range存入数组，以及将数组存入Range

Sub TEST()
Dim AR '测试发现，声明为动态数组和静态数组都报错
Dim Ra As Range, I As Long, J As Long
    With Sheet1
        Set Ra = .Cells(1, 1).CurrentRegion
        AR = Ra '将Range存入数组
        '以下代码将数组的值打印到立即窗口
        For I = 1 To Ra.Rows.Count
            For J = 1 To Ra.Columns.Count
                Debug.Print AR(I, J),
            Next J
            Debug.Print ""
        Next I
        '以下代码将数组的值输出到Sheet1工作表的左上角为(200,1)的Range
        .Range(.Cells(200, 1), .Cells(200 + Ra.Rows.Count - 1, 1 + Ra.Columns.Count - 1)) = AR
    End With
End Sub