1 Sub 分期付款最后月自己寫(xiě)()
 2 num = Application.CountA(Columns(1))
 3 '上一句等效于這句：
 4 'i = Cells(Rows.Count, 1).End(xlUp).Row '找到A列的最后一行的行號(hào)(先在A列最后一個(gè)單元格向上跳轉(zhuǎn))
 5 Range("n2", Cells(num, "n")).Clear
 6 'Range("n2", Cells(i, "n")) = "" '將最后付款月下的區(qū)域清空，同上語(yǔ)句，但是沒(méi)有清空單元格邊框
 7 For i = 2 To num
 8     a = Cells(i, 1).End(xlToRight).Column
 9     Cells(i, "n") = Cells(1, a).Value
10     Next
11 End Sub

1 Sub 最后的單元格()
2 a = Cells(Rows.Count, 1).End(xlUp).Row 'end屬性
3 b = Columns(1).Find("*", , , , , xlPrevious).Row 'find方法
4 c = Cells.SpecialCells(xlCellTypeLastCell).Row 'specialcells方法
5 d = Sheet1.UsedRange.Rows.Count 'usedrange屬性
6 e = [a1].CurrentRegion.Rows.Count 'currentregion屬性
7 f = WorksheetFunction.CountA([a:a]) '工作表函數(shù)counta
8 g = Application.CountIf([a:a], "<>") '工作表函數(shù)countif
9 End Sub