User array concept,,,
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook =
objExcel.Workbooks.Open("\\solon.prd\branches\P\Global\Users\C44682\Userdata\Desktop\FACPAutomation\DataFiles\MainDriverSheet
- Copy.xls") ''/provide path
RowCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Rows.count
x=1
For i = 1 To RowCount
c = objExcel.Cells(i, 1).Value
temp = temp&","&c
Next
temp1=split(right(temp,len(temp)-1),",")
For j = 0 To ubound(temp1)-1
For m = x To ubound(temp1)
If temp1(j)=temp1(m) Then
msgbox "Value Repetative--"&temp1(m)
End If
Next
x=x+1
Next
Set objExcel=nothing
On Tuesday, April 4, 2017 at 6:34:57 PM UTC+2, Priya Gupta wrote:
>
> I like to find duplicate value(integers only) in a specified column
> using vbscript.
>
>
> Like my excel sheet is
> -----------------------------------
> A
>
> 101
> 102
> 101
> 104
> 105
> 106
> 106
>
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
