插入欄，H是新欄
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
刪除欄
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
選取直column
Range("A2").Select ' 選取A2儲存格
Range(Selection, Selection.End(xlDown)).Select ' 選取下方所有儲存格範圍
ActiveCell.Offset(1, 0).Select ' 移至下一個儲存格位置
ActiveCell.Offset(0, 1).Value = XXX ' 設定內容至目前儲存格的下一欄位置
選取全範圍Range("A2").Select
'為選定儲存格A2。
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select '此行指令用於自動偵測選取儲存格內有資料的範圍 (即快速組合鍵Ctrl + Shift + End)
Sheet 新增
WorkAheets.add '新增一個工作表
WorkSheets.Add()="New Sheet"
WorkSheet,Add after:=WorkSheets(1) '新增在第一個工作表之後的一個工作表
WorkSheets.Add before:=WorkSheets(2) '新增在第二個工作表之前的一個工作表
得知選取範圍右下角
Range("A1").Select '設定選取位置的起點,快速鍵 Ctrl + Home data_end = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Address ' 取得資料最右下角的儲存格位置,例如:J250
選取全部空白儲存格,然後刪除
Range("A1").Select ' 選取A1儲存格,快速鍵 Ctrl + Home
Selection.SpecialCells(xlCellTypeBlanks).Select ' 選取空白儲存格
Selection.EntireRow.Delete ' 刪除空白列
加入清單Sub unitmenu '單位清單
Columns("F:F").Select ' 選取F欄
With Selection.Validation ' 自訂清單內容
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Lesson1,Lesson2,Lesson3,Lennon4" ' 清單內容
End With
End Sub
Chart export to image filechart.Chart.Export Filename:=ActiveWorkbook.Path & "\bar.jpg", filtername:="jpg" ' 匯出成圖片
