如何获取每列的最后5个值- excel VBA

在Excel VBA中，可以使用以下代码获取每列的最后5个值：

Sub GetLastFiveValues()
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    Dim j As Long
    
    ' 获取最后一行和最后一列的索引
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 遍历每一列
    For j = 1 To lastCol
        ' 输出列标题
        Debug.Print Cells(1, j).Value
        
        ' 输出最后5个值
        For i = lastRow To lastRow - 4 Step -1
            Debug.Print Cells(i, j).Value
        Next i
        
        ' 输出空行
        Debug.Print
    Next j
End Sub

这段代码首先获取最后一行和最后一列的索引，然后使用嵌套的循环遍历每一列。在内层循环中，从最后一行开始递减，输出每个单元格的值，直到输出最后5个值。最后，输出一个空行以分隔不同列的结果。

这个方法可以用于获取任意范围内每列的最后5个值。你可以将其应用于整个工作表，或者指定一个特定的范围。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
• 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
• 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
• 腾讯云人工智能：https://cloud.tencent.com/product/ai
• 腾讯云物联网平台：https://cloud.tencent.com/product/iotexplorer
• 腾讯云移动开发：https://cloud.tencent.com/product/mobdev
• 腾讯云区块链服务：https://cloud.tencent.com/product/tbaas
• 腾讯云元宇宙：https://cloud.tencent.com/product/tencent-metaverse