發表文章

目前顯示的是 11月, 2018的文章

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