[VBA教學3.26]End屬性實際應用(查找最後月份)

本節課是VBA教學的第三章第26節課：End屬性實際應用(查找最後月份)。根據每個人付款時間，提取出分期付款的最後一個月。如下圖：

實例操作—自動提取月份

代碼詳解：

Sub 分期付款最後月()

i = Cells(Rows.Count, 1).End(xlUp).Row "找到A列的最後一行的行號

Range("n2", Cells(i, "n")) = "" "將最後付款月下的區域清空

For j = 2 To i

k = Cells(j, "n").End(xlToLeft).Column "找到最後付款月所在的列號

Cells(j, "n") = Cells(1, k) "將對應的月份填入對應的單元格

Next j

End Sub

主要思路通過查找出最後一條付款記錄所在的列數，然後返回當前列數所在的月份。

喜歡的話掃描關注一下唄~

推薦閱讀：