Блог

Приложение, которое я использую, экспортирует строки данных в массив в одной ячейке, вот так:

 "data1"= value1; "data2"= value2; "data3"= value3; "data4"= value4; "data5"= value5;
  

Я хотел бы уравнение или макрос или что-то, что могло бы разделить его следующим образом:

 ----------------------------------------------------------------
|   |  data0  |  data1  |  data2 |  data3  |  data4  |  data5  |
----------------------------------------------------------------
| 1 |  ARRAY  |  value1 | value2 |  value3 |  value4 |  value5 |
----------------------------------------------------------------
| 2 |  ARRAY  |  value1 | value2 |  value3 |  value4 |  value5 |
----------------------------------------------------------------
| 3 |  ARRAY  |  value1 | value2 |  value3 |  value4 |  value5 |
----------------------------------------------------------------
. . . . and so on.
  

Возможно ли это?

Вот строка из документа:

 "search-terms1" = Chinese jade; "search-terms2" = Chinese archers; "search-terms3" = Antique jade; "search-terms4" = Asian jade; "search-terms5" = China history;
  

Это всегда будут поисковые термины1 — поисковые термины5, но «значения» будут разными для каждой строки.

Excel 2003 в Windows XP

Это начнется с A2 и продолжится для того, сколько строк содержат данные. Значения распределяются по столбцам справа.

 Sub SplitSearch()

    Dim vaTerms As Variant
    Dim vaSearch As Variant
    Dim rCell As Range
    Dim vaOutput As Variant
    Dim i As Long

    For Each rCell In Sheet1.Range("A2", Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp)).Cells
        vaSearch = Split(rCell.Value, ";")
        ReDim vaOutput(1 To 1, 1 To UBound(vaSearch))
        For i = LBound(vaSearch) To UBound(vaSearch)
            vaTerms = Split(vaSearch(i), "=")
            If UBound(vaTerms) > -1 Then
                vaOutput(1, i   1) = Trim(vaTerms(UBound(vaTerms)))
            End If
        Next i
        rCell.Offset(0, 1).Resize(1, UBound(vaOutput, 2)).Value = vaOutput
    Next rCell
End Sub
  

Вам, вероятно, следует выполнить поиск и замену во всей строке массива, заменив точки с запятой переводом строки, n или vbCrLf ПЕРЕД переносом строки массива в Excel, поскольку ограничения на размер строки ячейки могут привести к усечению вашего содержимого, если вы извлекаете много данных из строки. (Материал может быть отрезан, и вы не узнаете)

Что-либо меньшее может неправильно импортировать все результаты, с которыми вы имеете дело.

После замены точек с запятой переводами строк импортируйте текст или откройте файл с ‘=’ в качестве разделителя

Сначала разделите строку на «;», а затем на «=». Приведенный ниже код поможет вам начать:

 Dim s As String
Dim parts As Variant
s = """data1""= value1; ""data2""= value2;"
parts = Split(s, ";")

For i = 0 To UBound(parts)
    Debug.Print parts(i)
    ' TODO: Split part along "=" and insert into cell
Next i