时间戳

首页 > 解决方案 > 从特定单元格中选择一个范围，然后使用 VBA 特殊粘贴该范围

vba - 从特定单元格中选择一个范围，然后使用 VBA 特殊粘贴该范围

问题描述

我有一个 excel 文件，其中我有按月计算的数据，所以我想从活动单元格中选择 F、G 和 H 列，直到该列的最后一个数据，然后特别粘贴它。我正在使用此代码来选择该范围，但无法做到这一点。它正在从 F1 中选择数据。

Sub selecting_range()
Dim rng As Range
Dim LastRow As Long
currentcell = ActiveCell
LastRow = Cells(Rows.Count, "F" & currentcell).End(xlUp).Row
Set rng = Range("F1:H" & LastRow)
rng.Select
End Sub

这是我的excel片段，我想从'F11527'中选择范围

标签： vbaexcel

解决方案

考虑到“F”和“H”是硬编码的，那么你可以建立这样的东西：

Sub SelectingRange()

    Dim rng             As Range
    Dim lastRow         As Long

    lastRow = Cells(Rows.Count, "F").End(xlUp).Row
    Set rng = Range(Cells(ActiveCell.Row, "F"), Cells(lastRow, "H"))

    rng.Select

End Sub

或者你可以把它写成 1 行，只是为了迷惑某人：

Sub SelectingRange()
 Range(Cells(ActiveCell.Row, "F"), Cells(Cells(Rows.Count, "F").End(xlUp).Row, "H")).Select
End Sub

推荐阅读