Cita:
Iniciado por vbx3m Para trasladar
Dim a As String
MSFlexGrid1.Row = 1
MSFlexGrid2.Row = 1
For i = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
a = MSFlexGrid1.Text
MSFlexGrid2.Col = i
MSFlexGrid2.Text = a
Next
Para borrar
For i = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.Text = ""
Next
que buen ejemplo simple y rapido