Excel VBA - 簡易な纏めと(Application.Caller).TopLefのバグ

●番号がわかればRange

Range("B3")　セルB3
Range("A2:A10").Select ＝Range("A2", "A10").Select

Range("B:" & i)　セルB列i行目

Range("A:C 1:5") ＝Range("A1","C5")

Range("1:3")　行1～3
Range("3:3")　行3
Range("A:C")　列A～C

Range("B:B")　列B
Range("名前定義の名前")

　最終行縦

Worksheets("list").Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row).Count

Range("A2", Cells(Rows.Count, 1).End(xlUp)).Select

Range(Range("A2"), Cells(Rows.Count, "E").End(xlUp)).Select

Cells(1, 1).End(xlDown).Row

　最終列横

Range("A1").End(xlToRight).Column

m = Cells(5, Columns.Count).End(xlToLeft).Column

 

●行番号 - 列番号 指定はCells

Cells(3, 2)　セル3行2列目
Cells(3, "B")　セル3行B列目

Cells(i, j)　セルi行j列目
Cells(i,1)
Cells　worksheetの全セル

 

●列・行　変数指定

　複数行全体削除

Rows(i & ":" & j).EntireRow.Delete

 

●セル範囲指定に変数を使う場合はRangeとCellsを組み合わせます。

Range(Cells(1,1),Cells(i,j))

Range("G:G,H4:H8").Select

 

●コピペ

Worksheets("Set2").Select

Range("A4:D13").Select

Worksheets("Set2").Shapes.SelectAll

Selection.Copy

Sheets("Set2").Select

Worksheets("Set2").Range("H5").Select

Worksheets("Set2").Paste

 

●存在確認、座標取得

Worksheets(employee).Range("1:1").Find(what:=g, LookIn:=xlValues, LookAt:=xlWhole).Column

WorksheetFunction.CountIf(Worksheets(personE).Range("2:2"), yearD) = 0

 

Dim i As Range

  Set i = Worksheets("杉並").Range("120:120").Find(what:="2018", LookIn:=xlValues, LookAt:=xlWhole)

  i.Select

 

If WorksheetFunction.CountIfs(Range("E:E"), Range("Q" & i).Value, Range("D:D"), Range("P" & i).Value) = 0 Then

●データの入力規則のドロップダウンボタンが消える
http://bardiel-of-may.blogspot.co.id/2012/10/excel-2010.html
　(Application.Caller).TopLef は安定して使えない場合あり。