Sub InsertOne() Dim endRow As Long Dim colorD As Range Dim Cell As Range endRow = Sheets(1).Cells(Sheets(1).Rows.Count, "C").End(xlUp).
確定! 回上一頁