お試し☆VBA-セル操作関係 | sketto-スケット-

【お試しVBA-セル操作関係】


				
					検索:

セルへ入力

'Hello VBA!をセルへ入力
Worksheets("シート名").Cells(1,1).Value = "Hello VBA!"

特定のセルを含む行を削除

'A3セルの含まれる行を削除
Range("A3").EntireRow.Delete

列選択

Worksheets("シート名").Range("A:A").select

最終行番号取得

Dim lastRow As Long
lastRow = Worksheets("シート名").Cells(Rows.Count,1).End(xlUp).Row'最終行番号取得

セル範囲指定

With Worksheets("シート名")
    Dim myRng As Range
    Set myRng = .Range(.Cells(1, 1), .Cells(Rows.Count, 5).End(xlUp))
End With

重複チェック（複数列）

'行内の複数セルのすべてが重複している場合に削除　※Excel2007以降でしか使用できない関数 
Range(Cells(5, 3), Cells(Rows.Count, 3).End(xlUp).Offset(, 9)).RemoveDuplicates Columns:=Array(1,2,3,4,5,6,7,8,9,10), Header:=xlNo'arrayはそれぞれの列を指定

【VBA他テンプレート】

本番環境ではこちらに他VBAカテゴリー一覧が表示され、クリックで移動できるようになります。