
在看一本書(shū)的時(shí)候沒(méi)搞明白例子上寫(xiě)的一句話(huà),如上。
經(jīng)調試才搞明白。分享給大家。
NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
這句話(huà)的意思是 取活動(dòng)單元表的第一列最后一個(gè)有值的行的下一行行號。
Rows.Count是指當前活動(dòng)工作表的行數,為數字 1048576,很熟悉的一個(gè)數字,為Excel工作表的最大行數
Cells(Rows.Count, 1),則是定位到第一列的最后一行cell,即單元格“A1048576”
主要是End(xlUp)比較難理解。
Range.End屬性是返回一個(gè) Range 對象,該對象代表包含源 區域的區域尾端的單元格。
End(xlUp)等同于End mode下+UP鍵,或Ctrl+Up,
若活動(dòng)單元格為空,其上一個(gè)單元格也為空,將會(huì )向上尋找該列第一次出現的非空單元格;
若活動(dòng)單元格非空, 其上一個(gè)單元格也非空, 將會(huì )選中活動(dòng)單元格所在列的最后一個(gè)非空單元格;
其上一個(gè)單元格為空,將繼續向上尋找該列第一次出現的非空單元格,直到第一個(gè)單元格為止,如A1。
另外三個(gè) XlDirection常量為 xlDown, x lToRight, xlToLeft 功能分別為 End+DOWN, END+ RIGHT , END+ LEFT.
這樣 Cells(Rows.Count, 1).End(xlUp)就是沿著(zhù)單元格“ A 1048576 ”向上尋找第一列第一次出現的非空單元格。
連起來(lái) Cells(Rows.Count, 1).End(xlUp).Row,就是取第一列第一次出現的非空單元格的行號
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1,自然就是取該非空單元格的下面的空單元格,以便進(jìn)行輸入等操作。
比如下面事例,將把數據插入到工作表中的系一個(gè)空白行,這里A7為下一個(gè)空白行。
Sub KK()
Range("C1") = Range("a65536").End(xlUp) '從單元格A65536向上查找第一個(gè)有內容的單元格的內容
Range("C2") = Range("a65536").End(xlUp) 'Row '從單元格A65536向上查找第一個(gè)有內容的單元格的行號
End Sub
呢 稱(chēng): | |
表 情: | |
內 容: |
評論內容:不能超過(guò) 1000 字,需審核,請自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規。 |
驗證碼: | |
您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會(huì )、集體和公民的合法權益;
二、不得發(fā)布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發(fā)布內容擁有處置權。