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

Question

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

我想做的是有一个清晰的内容＆＃39;功能和＆＃39;排序＆＃39;此数组的函数（m2：tx）。

我正在努力制作数组DYNAMIC。如果有人可以帮忙。

我相信这将是这样的：

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

这是一种方式：

zzbfm

Answer 2

我真的不明白你设定范围的逻辑。

如果您希望以M2开头的范围中的最后一行与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)

要对范围进行排序，请确定您希望如何排序，然后记录宏。