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