Rajan erajanraja24

## Remove duplicates in single column in Excel VBA

Sub check()

Set Rng = ThisWorkbook.Sheets(1).Range("B1:B20")

Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes

End Sub

## VBA to remove duplicates in a given Range
Sub check()

Set Rng = ThisWorkbook.Sheets(1).Range("A1:C12")

Rng.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

End Sub

## VBA to remove duplicates in a given range for specified columns
Sub check()

Set Rng = ThisWorkbook.Sheets(1).Range("A1:D13")

Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

End Sub

## VBA to remove duplicates in an unknown range for specified columns
Sub check()

Set Rng = ThisWorkbook.Sheets(1).UsedRange

Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

End Sub

## VBA to remove duplicates in an unknown range and unknown columns
Sub check()

'Determing the last column
LastCol = ThisWorkbook.Sheets(1).UsedRange.Columns.Count

'Determining the last row
LastRow = ThisWorkbook.Sheets(1).UsedRange.Rows.Count

'Determining the Range

## Example 1
Sub Procedure_Scope_1()
Dim i As Integer
i = 5
Debug.Print "Variable i value in Procedurecheck1 is " & i
End Sub

Sub Procedure_Scope_2()
Debug.Print "Variable i value in Procedurecheck2 is " & i
End Sub

## Example 2
Dim var1 As Integer

Sub Module_Scope_1()
var1 = 20
Debug.Print "Value of var1 in Module_Scope_1: "; var1
var1 = var1 + 15
End Sub

Sub Module_Scope_2()

## Example 3
'In Module 1

Option Private Module

Public var1 As Integer

Sub Public_Scope_1()
var1 = 20
Debug.Print "Value of var1 in Public_Scope_1: "; var1
var1 = var1 + 15

## How to get the search results from google for the given keywords
Sub iepart2()

Dim ie As Object
'
Set ie = CreateObject("internetexplorer.application")

With ie
    .Visible = True
    .navigate "https://www.google.co.in"

## Automatic web form filling
Sub automaticformfilling()

Dim ie As Object

Set ie = CreateObject("internetexplorer.application")

With ie
    .Visible = True
    .navigate "http://newtours.demoaut.com/mercuryregister.php"
    'Wait for loading
	Sub Procedure_Scope_1()
	Dim i As Integer
	i = 5
	Debug.Print "Variable i value in Procedurecheck1 is " & i
	End Sub

	Sub Procedure_Scope_2()
	Debug.Print "Variable i value in Procedurecheck2 is " & i
	End Sub
	Dim var1 As Integer

	Sub Module_Scope_1()
	var1 = 20
	Debug.Print "Value of var1 in Module_Scope_1: "; var1
	var1 = var1 + 15
	End Sub

	Sub Module_Scope_2()
	'In Module 1

	Option Private Module

	Public var1 As Integer

	Sub Public_Scope_1()
	var1 = 20
	Debug.Print "Value of var1 in Public_Scope_1: "; var1
	var1 = var1 + 15
	Sub iepart2()

	Dim ie As Object
	'
	Set ie = CreateObject("internetexplorer.application")

	With ie
	.Visible = True
	.navigate "https://www.google.co.in"
	Sub automaticformfilling()

	Dim ie As Object

	Set ie = CreateObject("internetexplorer.application")

	With ie
	.Visible = True
	.navigate "http://newtours.demoaut.com/mercuryregister.php"
	'Wait for loading