1 Sub 查找最后一个单元格() 2 Set endrng = Cells.Find("*", , xlFormulas, , , xlPrevious) ' *表示查找的内容不确定,只要找到就行,逗号表示跳过该参数 3 'xlFormulas表示查找内容为公式,xlPrevious表示从下往上查找 4 Range([a1], endrng).Select 5 End Sub
1 Sub 查找最后一个单元格() 2 Set endrng = Cells.Find("*", , xlFormulas, , , xlPrevious) ' *表示查找的内容不确定,只要找到就行,逗号表示跳过该参数 3 'xlFormulas表示查找内容为公式,xlPrevious表示从下往上查找 4 Range([a1], endrng).Select 5 End Sub
转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7422114.html