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

sql server 15023 error [SQL SERVER問題: 使用者、組或角色 '*****' 在當前資料庫中已存在]