ExcelVBA End属性查找”最后”的单元格

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

======今天学习到此======