ExcelVBA End属性查找”最后”的单元格
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
======今天学习到此======
