根據單元格值選擇特定的列

Question

我正在嘗試選擇右側的“ H1”至“ x”（x = 5或x = 7）列，但是我想根據特定單元格“ L2”中的數字來更改選擇。

Answer 1

從您的帖子中很難理解，根據您所附的屏幕截圖，我猜測可能是以下代碼：

Option Explicit

Sub DynamicSelect()

Dim LastRow As Long, NumofColumns As Long
Dim Rng As Range

LastRow = Cells(Rows.Count, "H").End(xlUp).Row
NumofColumns = Range("L2").Value

' set the range object
Set Rng = Range("H1", Range("H1").Offset(LastRow - 1, NumofColumns))

' if you must Select (not recommended)
Rng.Select

End Sub

Answer 2

你可以這樣

Sub rangeselect()
n = Cells(2, 12)
Dim rng As Range
Dim Str As String
Str = "H1:H" & n
Set rng = Range(Str)
rng.Select
End Sub