属性查找最后的单元格

　　本文转载自公众号：哆哆数学，作者：fs哆哆老师。本文著作权归原创作者所有，本人收藏此文仅作为学习之用，不作其他目的，如有侵权请联系我删除。
　　ExcelVBA End属性查找＂最后＂的单元格
　　.
　　乾隆,爱新觉罗·弘历
　　乾隆初年，大金川日益强盛，该土司头目莎罗奔兴兵攻打小金川，劫持了土司泽旺及其印信。不久，又出兵攻掠革布什札、明正两土司。为了惩治大金川对邻部的侵犯，乾隆十二年（1747年），乾隆帝调动三万大军，分两路进攻大金川。[40-43] 然而，由于当地山势险峻、气候恶劣等许多原因，直到乾隆十三年（1748年）夏秋，清军仍然没有取得什么进展。乾隆帝势同骑虎，又增兵增饷， [44] 特派大学士傅恒前往该地指挥作战。[45] 傅恒至军后，采取了岳钟琪选锐深入的作战方略。[46-47] 乾隆十四年（1749年）二月，清军进逼莎罗奔老巢勒乌围，莎罗奔被迫乞降。[48-49]
　　yhd-ExcelVBA End属性查找＂最后＂的单元格
　　＂Range.End 属性
　　＂返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。
　　＂等同于按键 (End 向上键、End 向下键、End 向左键、End 向右键)，或者CTRL 上下左右
　　＂语法
　　＂表达式.End (Direction)
　　＂表达式 一个代表 Range 对象的变量。
　　＂ Direction写法 值
　　＂向上 xlUp ＂向下 xlDown ＂向左 xlToLeft ＂向右 xlToRight
　　===测试代码1===
　　Sub test1()
　　Range(＂D7＂).End(xlDown).Select
　　Range(＂D7＂).End(xlUp).Select
　　Range(＂D7＂).End(xlToRight).Select
　　Range(＂D7＂).End(xlToLeft).Select
　　End Sub
　　可以看到分别是一个区域的上下左右＂最边＂的单元格
　　===测试代码2===
　　===取得最后一个单元格===
　　Sub 最后的单元格()
　　With Sheets(＂test3＂)
　　a = Cells(Rows.Count, 1).End(xlUp).Row ＂end属性
　　b = Columns(1).Find(＂*＂, , , , , xlPrevious).Row ＂find方法
　　c = Cells.SpecialCells(xlCellTypeLastCell).Row ＂specialcells方法
　　d = Sheet1.UsedRange.Rows.Count ＂usedrange属性
　　e = [a1].CurrentRegion.Rows.Count ＂currentregion属性
　　f = WorksheetFunction.CountA([a:a]) ＂工作表函数counta
　　g = Application.CountIf([a:a], ＂<>＂) ＂工作表函数countif
　　End With
　　End Sub
　　===测试代码3===
　　＂如果数据是连续性的不间断的就用这个
　　Sub test3()
　　With Sheets(＂test3＂)
　　en = Cells(Rows.Count, 1).End(xlUp).Row
　　For i = 3 To en
　　col = Cells(i, 1).End(xlToRight).Column
　　Cells(i, ＂V＂) = Cells(2, col).Value
　　Next i
　　End With
　　End Sub
　　＂如果数据有间断不连续的就用以下
　　Sub test32()
　　With Sheets(＂test3＂)
　　en = Cells(Rows.Count, 1).End(xlUp).Row
　　For i = 3 To en
　　col = Cells(i, Columns.Count).End(xlToLeft).Column
　　Cells(i, ＂V＂) = Cells(2, col).Value
　　Next i
　　End With
　　End Sub
　　======今天学习到此======