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 數字轉字串 字串轉數字

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

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