动态数组与公式编程：Excel VBA的进阶技巧

语文乌托邦

于 2025-03-18 12:15:18 发布

阅读量297

点赞数 7

文章标签：动态数组公式编程 ReDim关键字数组转置 VBA引用样式

本文链接：https://blog.csdn.net/weixin_31163455/article/details/146372077

版权

动态数组与公式编程：Excel VBA的进阶技巧

背景简介

在Excel VBA编程中，数组的使用是基础且重要的。数组可以根据其维度来存储数据，常见的有二维数组和三维数组。通过声明和操作数组，可以高效地处理大量数据。本文将结合章节内容，探讨动态数组的使用，以及如何在VBA中插入和管理Excel公式。

三维数组与二维数组的应用

在处理来自多个工作表的数据时，三维数组提供了便利。例如， Dim myArray(9, 2, 2) As Integer 声明了一个三维数组，能够存储更多的信息。相对地，二维数组适用于跟踪单个工作表中的行和列。

Public Sub Transpose()
    ' Transposes first 10 rows and first 3 columns of worksheet
    ' to first 3 rows and first 10 columns.
    Dim I As Integer, J As Integer
    Dim transArray(9, 2) As Integer
    For I = 1 To 3
        For J = 1 To 10
            transArray(J - 1, I - 1) = Cells(J, I).Value
        Next J
    Next I
    Range("A1:C10").ClearContents
    ' ... 其他代码 ...
End Sub

动态数组的使用

固定长度的数组在运行时无法改变大小，而动态数组则提供了灵活性。使用 ReDim 关键字可以根据需要调整数组的大小。

Public Sub DynamicTranspose()
    Dim I As Integer, J As Integer
    Dim transArray() As Integer
    Dim numRows As Integer, numColumns As Integer
    ' ... 计算numRows和numColumns ...
    ReDim transArray(numRows - 1, numColumns - 1)
    ' ... 赋值给数组 ...
End Sub

编程公式到工作表单元格

在Excel VBA中编程公式到单元格时，A1样式和R1C1样式是两种常用的引用方法。A1样式更直观，而R1C1样式在处理列引用时更为方便。

Sub InsertFormula()
    Dim formulaString As String
    formulaString = "=SUM($A$2:$A$10)"
    Cells(11, "A").Formula = formulaString
    ' 或使用AutoFill方法
    Cells(2, "B").AutoFill Destination:=Range("B2:B10")
End Sub