Combinar celdas en Excel

Reviza este ejemplo

'Agrega una referencia COM a "Microsoft Excel xx.x Object
Library"

Dim miExcel As Excel.Application
Dim miLibro As Excel.Workbook
Dim miHoja As Excel.Worksheet

Me.Cursor = Cursors.WaitCursor

miExcel = CreateObject("Excel.Application")
miExcel.Workbooks.Open("Archivo.xls", , False)
miExcel.ScreenUpdating = False
miExcel.Visible = True
Dim indice As Integer

miHoja = miExcel.Worksheets("Hoja1")

CantFilas = 100

Do While Cont <= CantFilas
sMail = miHoja.Range(Chr(CInt(65 + indice)) & Cont).Value
If sMail <> "" Then
If xObj.EsEmail(sMail) = "NO" Then
miHoja.Range("A1").Value = miHoja.Range("A2").Value
End If
End If
Cont = Cont + 1
Loop
miExcel.ScreenUpdating = True
miExcel.Workbooks.Close()
miExcel.Quit()
Me.Cursor = Cursors.Default

Saludos
-
Freddy Cáceres
Santiago - Chile

Hola grupo,

buscando por internet no he encontrado nada de este

tema. Quiero hacer

un programa Winforms que abra una hoja excel y por ejemplo

me combine la

celda A1 y la A2.

Gracias por vuestra ayuda

Asier



.