EXCEL VBA 清除整列資料

 
    '先取得有資料的列數
     TR = Worksheets("sheet1").UsedRange.Rows.Count
    '標記要清除的範圍
    if TR<3 then TR=3 '判斷是否小於標題列
    dds = "3:" & TR
    Worksheets("sheet1").Rows(dds).Select
    '清除資料
    Selection.Delete Shift:=xlUp

留言

這個網誌中的熱門文章

java BigDecimal 加減乘除,四捨五入,四則運算及比較

MS sqlServer資料庫移轉至MySQL-->利用MySQL WorkBench

java 數字轉字串 字串轉數字