Страницы: 1
RSS
разбиение строк на столбцы, если искомые величины отделены НЕчитаемым символом - смог отделить только первую величину - please help
 
Здравствуйте, во вложенном файле в столбцах D и Е - по три "искомые" секции данных, которые отделены непечатаемым символом перехода на новую строку; через инструмент "Разделение текста по столбцам" смог извлечь только первые секции в каждом из столбцов.
Можете, пожалуйста, подсказать, где именно кривые руки? Если у кого-то под рукой, как эти три секции извлечь с помощью формул - вообще огонь!  :idea:
(Каждая искомая "секция" в столбцах D и E начинается с новой строки.)
 
Для столбца D
Код
Sub Razdel_Analitica()
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
Dim arr
 iLastRow = Cells(Rows.Count, "D").End(xlUp).Row
    Range("P7:R" & iLastRow).ClearContents
   For i = 7 To iLastRow
     If InStr(1, Cells(i, "D"), Chr(10)) <> 0 Then
       arr = Split(Cells(i, "D"), Chr(10))
       For n = 0 To UBound(arr)
         If arr(n) <> "" Then
           Cells(i, 16 + n) = arr(n)
         End If
       Next
     End If
   Next
End Sub
Изменено: Kuzmich - 11.06.2024 20:50:00
 
Цитата
написал:
КодSub Razdel_Analitica()
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
Dim arr
iLastRow = Cells(Rows.Count, "D").End(xlUp).Row
   Range("P7:Q" & iLastRow).ClearContents
  For i = 7 To iLastRow
    If InStr(1, Cells(i, "D"), Chr(10)) <> 0 Then
      arr = Split(Cells(i, "D"), Chr(10))
      For n = 0 To UBound(arr)
        If arr(n) <> "" Then
          Cells(i, 16 + n) = arr(n)
        End If
      Next
    End If
  Next
End Sub
Это наверняка работает, но что делать, если я Excel Looser?  Я даже не знаю, куда это вставлять :(
Вы формулами или мастером то же самое, случайно, не умеете??
 
https://www.planetaexcel.ru/techniques/7/7615/
 
Цитата
написал:
https://www.planetaexcel.ru/techniques/7/7615/
Уважаемый(-ая) nilske, я Вам очень благодарен!! Я тут новенький, а оказывается, что уже все написано)) Спасибо!
Изменено: Igor.Utkin - 11.06.2024 20:59:08
Страницы: 1
Наверх