Excel:VBA
App
- 表示 / 非表示
ブック
- 開いているブック - YUKIBEのBLOG
- OPEN / CLOSE
- 表示 / 非表示
シート
- 開いているシート
- 表示 / 非表示
セル(Range)
行
- 指定 単一 / 範囲 / 離れた行
- 表示 / 非表示
Sub Row__Sample() '行番号で選択 Rows(2).Select 'セル名で選択 Range("B5").EntireRow.Select '行の範囲を選択 ' 2 ~ 3 行目を選択 Range("2:3").Select Range("2:2", "3:3").Select Range(Rows(2), Rows(3)).Select 'セルの範囲の行を選択 Dim r As Range Set r = Range("A2:A3").EntireRow ' A2 ~ A3 の行 r.Select '離れた行を選択 Range("1:1, 3:4").Select '1,3,6行 Set r = Union(Range("1:1"), Range("3:4")) Set r = Union(r, Range("6:6")) ' 1 行目と 3 ~ 4 行目 と 6 行目 r.Select Set r = Union(Range("A2"), Range("B5")) Set r = Union(r, Range("B8")) r.EntireRow.Select 'Rowsは、文字・数値どちらでも可 Set r = Union(Rows("1"), Rows(3)) Set r = Union(r, Rows("7")) r.EntireRow.Select End Sub
列
- 指定 単一 / 範囲 / 離れた列
- 表示 / 非表示
Sub Col__Sample() '列番号か列名で選択 Columns(1).Select ' A 列 Columns("A").Select ' A 列 Columns(3).Select ' C 列 'セル名で選択 Range("A2").EntireColumn.Select '行の範囲を選択 ' B ~ C 列目を選択 Range("B:C").Select Range("B:B", "C:C").Select Range(Columns(2), Columns(3)).Select 'セルの範囲の列を選択 Dim r As Range Set r = Range("B1:C1").EntireColumn ' B1 ~ C1 の列 r.Select '離れた列を選択 Range("A:A, C:D").Select Range("A:A, C:C, E:F").Select '1,3,6行 ' Dim r As Range Set r = Union(Range("A:A"), Range("C:D")) ' A 列と C ~ D 列 Set r = Union(r, Range("F:F")) ' A 列と C ~ D 列と F 列 r.Select Set r = Union(Range("A2"), Range("B5")) Set r = Union(r, Range("B8")) r.EntireColumn.Select 'Columnsは、数値のみ Set r = Union(Columns(1), Columns(3)) Set r = Union(r, Columns("F")) r.EntireColumn.Select End Sub
セル(Range)
Excel:VBA:セル(Range) - YUKIBEのBLOG
ListObject
Excel:VBA:ListObject - YUKIBEのBLOG
オートフィルタ
VBE
Excel VBA Excel VBAショートカットキー一覧
プロシージャリスト
VBAコードの全プロシージャー・プロパティ一覧を取得|VBAサンプル集
プロシージャ一覧を作成するマクロ :エクセルマクロ・Excel VBAの使い方/マクロのサンプル
【ExcelVBA】VBAコードの情報や概要をシートに一覧出力する - Qiita
その他
高速化
マクロVBAの高速化・速度対策の具体的手順と検証|VBA技術解説
その他
Excel:VBA:その他 - YUKIBEのBLOG
・PERSONAL.XLSB
"C:\Users\xxxx\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"
重複
削除(指定列の重複行の削除(HDRあり))
Worksheets("sample").Range("A1").CurrentRegion.RemoveDuplicates Columns:=2, Header:=xlYes