ok Fine Any option to remove blank space in drop down.
Please refer snapshot
My code is like below.
MyBase.WorkBook.Worksheets(0).Cells(irow, gdpicol).Value = groupDefine("Name").ToString()
AsposeCellHelper.Helper.FormatCell(MyBase.WorkBook.Worksheets(0).Cells(irow, gdpicol), AsposeCellHelper.Helper.FormatType.Label_H1, True)
Dim valFactor As Aspose.Cells.Validation = WorkSheet.Validations(WorkSheet.Validations.Add())
valFactor.Type = Aspose.Cells.ValidationType.List
valFactor.Operator = Aspose.Cells.OperatorType.None
valFactor.InCellDropDown = True
valFactor.AreaList.Remove("")
valFactor.ShowError = True
valFactor.AlertStyle = Aspose.Cells.ValidationAlertType.Stop
valFactor.ErrorTitle = "Error"
valFactor.ErrorMessage = "Please select a Group name from the list"
Dim firstCell As Aspose.Cells.Cell
Dim lastCell As Aspose.Cells.Cell
For Each dr As DataRow In columndetail.Rows
If groupDefine("GroupDefinePk") = dr("GroupDefpk") Then
'firstCell = MyBase.WorkBook.Worksheets(0).Cells.Rows(dr("intfirstrow")).GetCellOrNull(dr("intfirstcol"))
firstCell = MyBase.WorkBook.Worksheets(0).Cells(dr("intfirstrow"), dr("intfirstcol"))
' lastCell = MyBase.WorkBook.Worksheets(0).Cells.Rows(dr("intlastrow")).GetCellOrNull(dr("intlastcol"))
lastCell = MyBase.WorkBook.Worksheets(0).Cells(dr("intlastrow"), dr("intlastcol"))
Exit For
End If
Next
valFactor.Formula1 = String.Format("={0}:{1}", firstCell, lastCell)
Dim area As New Aspose.Cells.CellArea
area.StartColumn = gdpicol
area.EndColumn = gdpicol
area.StartRow = irow
area.EndRow = ExcelImport.Helper.MaxRowIndex
valFactor.AreaList.Add(area)