[Excel]Study

 

插入欄，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 file
chart.Chart.Export Filename:=ActiveWorkbook.Path & "\bar.jpg", filtername:="jpg"  ' 匯出成圖片