用于排序和清除内容的动态数组

Question

我为M2：Tx制作了一个数组-在此之前，x会改变相关代码。

我想做的是对此数组（m2：tx）具有“清除内容”功能和“排序”功能。

我只是在努力使数组动态。 如果有人可以帮助。

我相信这将遵循以下原则：

k = sh.Range("A3").End(xlDown).Row 'This will give me the length. 

Dim TaskDates As Range
Dim StartCell  As Range 'First part of Array
Dim EndCell As Range 'End of Array
Set EndCell = Range("T" & 2 + k) 'maybe 2 or 3
Set StartCell = Range("M2")
Set TaskDates = Range(StartCell, EndCell) 'Dynamic Range 

我相信这会起作用，但是有没有更简洁的方法。

Answer 1

这是一种方法：

Sub MakeRange()
    Dim x As Long, MyDynamicRange As Range
    x = 123
    Set MyDynamicRange = Range("M2:T" & x)
    MsgBox MyDynamicRange.Address(0, 0)
End Sub

Answer 2

我不太了解您设定范围的逻辑。

如果希望以M2开头的范围中的最后一行与Column A中的最后一个占用行相同，那么。 一般来说

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

因此，设置您的范围M2:Tx其中x = LastRow

Set TaskDates = Range("M2", "T" & Cells(Rows.Count, "A").End(xlUp).Row)

要对范围进行排序，请决定要如何对其进行排序，然后记录一个宏。