获取Excel单元格区域内所有单个单元格地址的最快方法

核心问题分析 #

你之前尝试的循环遍历、并行处理、LINQ方案速度慢的根本原因：每次访问单个Cell.Address属性都会触发一次跨进程的COM交互，40万次交互的开销会导致性能急剧下降。要实现极致速度，必须完全绕开逐个访问单元格的操作，通过计算区域的行列范围直接生成地址。

C# 高效实现方案 #

通过获取区域的起始/结束行列号，将列号转换为Excel列名后拼接行号，全程无COM对象逐个访问，性能可达毫秒级：

using Excel = Microsoft.Office.Interop.Excel;

public List<string> GetCellAddressesFast(Excel.Range targetRange)
{
    var addressList = new List<string>();
    // 获取区域的行列范围
    int startRow = targetRange.Row;
    int endRow = targetRange.Row + targetRange.Rows.Count - 1;
    int startCol = targetRange.Column;
    int endCol = targetRange.Column + targetRange.Columns.Count - 1;

    // 遍历列和行，生成地址
    for (int col = startCol; col <= endCol; col++)
    {
        string columnName = ConvertColumnNumberToName(col);
        for (int row = startRow; row <= endRow; row++)
        {
            addressList.Add($"{columnName}{row}");
        }
    }
    return addressList;
}

// 辅助方法：将列号转换为Excel列名（如1→A，27→AA，28→AB）
private string ConvertColumnNumberToName(int columnNumber)
{
    string columnName = string.Empty;
    while (columnNumber > 0)
    {
        int remainder = (columnNumber - 1) % 26;
        columnName = Convert.ToChar('A' + remainder) + columnName;
        columnNumber = (columnNumber - 1) / 26;
    }
    return columnName;
}

VBA 高效实现方案 #

同样基于行列范围计算，利用Excel内置的地址转换快速获取列名，避免逐个单元格访问：

Function GetCellAddressesFast(ByVal targetRange As Range) As Variant
    Dim addressColl As Collection
    Set addressColl = New Collection
    
    ' 获取区域的行列范围
    Dim startRow As Long, endRow As Long
    Dim startCol As Long, endCol As Long
    startRow = targetRange.Row
    endRow = targetRange.Row + targetRange.Rows.Count - 1
    startCol = targetRange.Column
    endCol = targetRange.Column + targetRange.Columns.Count - 1
    
    Dim col As Long, row As Long
    Dim colName As String
    For col = startCol To endCol
        ' 通过Cells(1,col)的地址快速提取列名
        colName = Split(Cells(1, col).Address, "$")(1)
        For row = startRow To endRow
            addressColl.Add colName & row
        Next row
    Next col
    
    ' 将集合转换为数组返回
    Dim resultArr() As String
    ReDim resultArr(1 To addressColl.Count)
    For i = 1 To addressColl.Count
        resultArr(i) = addressColl(i)
    Next i
    GetCellAddressesFast = resultArr
End Function

性能说明 #

上述两种方案均完全在本地内存中完成地址生成，无任何跨进程COM交互，处理40万个单元格地址的时间可控制在几十毫秒内，相比之前的遍历方案性能提升数百倍。

内容的提问来源于stack exchange，提问作者MyExcelDeveloper.com