1. 程式人生 > >5 VBA實現自動在所用資料列後邊新增新資料

5 VBA實現自動在所用資料列後邊新增新資料

操作環境;VB編輯器,在N1所在列後邊新增資料

 ### 特別注意r是物件
 sub demo()
 dim r as range
  
 If Cells(i, 58) = 0 Then
    
            
        Set r = Sheets("改動表").Range("N1", Sheets("改動表").Range("N1").End(xlDown))
                  
        Sheets("改動表").Cells((r.Row + r.Rows.Count), 14) = Cells(i, 14)

          
    End If

end sub