Macro Texto en Columna en EXCEL
Que tal Expertos, tengo el siguiente problema.
Sobre una celda debo insertar un texto que extremadamente largo para luego con Texto en Columna, poner en cada dato de ese texto largo en cada celda. Necesito hacerlo en una macro, pero el tema es que cuando grabo una macro me salta un error de "Demasiadas continuaciones de lineas".
La macro qeu grabe es la siguiente:
Sub Macro3()
'
' Macro3 Macro
'
'
Selection.TextToColumns Destination := Range("D3"), DataType := xlDelimited, _
TextQualifier := xlDoubleQuote, ConsecutiveDelimiter := FALSE, Tab := FALSE, _
Semicolon := FALSE, Comma := TRUE, Space := FALSE, Other := TRUE, OtherChar := _
"[", FieldInfo := Array(Array(1,1),Array(2,1),Array(3,1),Array(4,1),Array(5,1), _
Array(6,1),Array(7,1),Array(8,1),Array(9,1),Array(10,1),Array(11,1),Array(12,1) _
,Array(13,1),Array(14,1),Array(15,1),Array(16,1),Array(17,1),Array(18,1),Array( _
19,1),Array(20,1),Array(21,1),Array(22,1),Array(23,1),Array(24,1),Array(25,1), _
Array(26,1),Array(27,1),Array(28,1),Array(29,1),Array(30,1),Array(31,1),Array( _
32,1),Array(33,1),Array(34,1),Array(35,1),Array(36,1),Array(37,1),Array(38,1), _
Array(39,1),Array(40,1),Array(41,1),Array(42,1),Array(43,1),Array(44,1),Array( _
45,1),Array(46,1),Array(47,1),Array(48,1),Array(49,1),Array(50,1),Array(51,1), _
Array(52,1),Array(53,1),Array(54,1),Array(55,1),Array(56,1),Array(57,1),Array( _
58,1),Array(59,1),Array(60,1),Array(61,1),Array(62,1),Array(63,1),Array(64,1), _
Array(65,1),Array(66,1),Array(67,1),Array(68,1),Array(69,1),Array(70,1),Array( _
71,1),Array(72,1),Array(73,1),Array(74,1),Array(75,1),Array(76,1),Array(77,1), _
Array(78,1),Array(79,1),Array(80,1),Array(81,1),Array(82,1),Array(83,1),Array( _
84,1),Array(85,1),Array(86,1),Array(87,1),Array(88,1),Array(89,1),Array(90,1), _
Array(91,1),Array(92,1),Array(93,1),Array(94,1),Array(95,1),Array(96,1),Array( _
97,1),Array(98,1),Array(99,1),Array(100,1),Array(101,1),Array(102,1),Array(103, _
1),Array(104,1),Array(105,1),Array(106,1),Array(107,1),Array(108,1),Array(109,1 _
),Array(110,1),Array(111,1),Array(112,1),Array(113,1),Array(114,1),Array(115,1) _
,Array(116,1),Array(117,1),Array(118,1),Array(119,1),Array(120,1),Array(121,1), _
Array(122,1),Array(123,1),Array(124,1),Array(125,1),Array(126,1),Array(127,1), _
Array(128,1),Array(129,1),Array(130,1),Array(131,1),Array(132,1),Array(133,1), _
End Sub
Como notaran es muuuuuy larga, mi pregunta es la siguiente... Existe algo forma de hacerlo?...
Desde ya muchas gracias!!!
1 respuesta
Si es solamente para una celda, usa esta macro
Sub separar()
'Por.DAM
Set celda = Range("B3")
cadena = Split(celda, ",")
For i = LBound(cadena) To UBound(cadena)
Cells(celda.Row, celda.Column + i + 1) = cadena(i)
Next
Set celda = Nothing
End SubCambia B3 por la celda que tiene el texto largo, la macro va a separar el texto a partir de la siguiente celda de la derecha.
Si quieres que sea para toda una columna utiliza esta
Sub separar_celdas()
'Por.DAM
col = "B"
fil = 3
For j = fil To Range(col & Rows.Count).End(xlUp).Row
Set celda = Range(col & j)
cadena = Split(celda, ",")
For i = LBound(cadena) To UBound(cadena)
Cells(celda.Row, celda.Column + i + 1) = cadena(i)
Next
Set celda = Nothing
Next
End SubCambia "B" por la columna donde tienes tus datos
Cambia el 3 por la fila en donde empiezan tus datos.
Saludos. DAM
Si es lo que necesitas.
simplemente MA-RA-VI-LLO-SO!!!!... muchisimas gracias DAM!!!... o me exprese bien o me entendiste a la perfeccion, o ambas cosas al mismo tiempo!!!!.. mil gracias EXPERTO!
