Open Office Spreadsheet ( Calc) - объединение текстовых ячеек с разделителями
Я использую электронную таблицу Open Office и пытаюсь объединить несколько текстовых ячеек вместе с разделителями. Например, предположим, что у меня есть ячейки ниже:
+--------+
| cell 1 |
+--------+
| cell 2 |
+--------+
| cell 3 |
+--------+
| cell 4 |
+--------+
| cell 5 |
+--------+
Я хотел бы объединить их с разделителями, чтобы результат был в одной ячейке, такой как эта:
+----------------------------------------------+
| (cell 1),(cell 2),(cell 3),(cell 4),(cell 5) |
+----------------------------------------------+
моей первой мыслью было попытаться сделать макрос или что-то еще, но я не думаю, что open office поддерживает их. Есть идеи?
3 ответов
большое спасибо Маркусу за поиск решения этой проблемы.
вот несколько более подробных инструкций для новичков OpenOffice Basic, таких как я. Это относится к версии 3.1:
Инструменты - > Макросы - > Организовать Макросы - > OpenOffice.org Основной...
Теперь выберите из дерева проводника, где вы хотите, чтобы ваши функции, например, это может быть в вашей собственной библиотеке макросов (мои макросы / стандарт) или сохраненный сразу в течении электронная таблица.
теперь введите новое имя макроса и нажмите кнопку Создать, чтобы открыть OO.org базовая IDE. Вы увидите REM заявление и некоторые определения заглушки. Удалить все это и заменить это:
Function STRJOIN(range, Optional delimiter As String, Optional before As String, Optional after As String)
Dim row, col As Integer
Dim result, cell As String
result = ""
If IsMissing(delimiter) Then
delimiter = ","
End If
If IsMissing(before) Then
before = ""
End If
If IsMissing(after) Then
after = ""
End If
If NOT IsMissing(range) Then
If NOT IsArray(range) Then
result = before & range & after
Else
For row = LBound(range, 1) To UBound(range, 1)
For col = LBound(range, 2) To UBound(range, 2)
cell = range(row, col)
If cell <> 0 AND Len(Trim(cell)) <> 0 Then
If result <> "" Then
result = result & delimiter
End If
result = result & before & range(row, col) & after
End If
Next
Next
End If
End If
STRJOIN = result
End Function
приведенный выше код имеет некоторые незначительные улучшения от оригинала Маркуса:
не начинается с разделителя, когда первая ячейка в диапазоне пуста.
позволяет необязательный выбор разделителя (по умолчанию","), и этот строки, которые идут до и после каждой незаполненной записи в диапазоне (по умолчанию "").
я переименовал его STRJOIN, так как" join " является типичным именем этого функция на нескольких популярных языках, таких как Perl, Python и Ruby.
переменные в нижнем регистре
теперь сохраните макрос, перейдите в ячейку, где вы хотите, чтобы соединение появилось, и типа:
=STRJOIN(C3:C50)
замена C3:C50 на диапазон строк ты хочешь присоединиться.
чтобы настроить разделитель, вместо этого используйте что-то вроде:
=STRJOIN(C3:C50; " / ")
если вы хотите присоединиться к куче адресов электронной почты, вы можете использовать:
=STRJOIN(C3:C50; ", "; "<"; ">")
и результатом будет что-то вроде
<foo@bar.com>, <baz@qux.org>, <another@email.address>, <and@so.on>
Ну, после гораздо большего поиска и экспериментов я обнаружил, что вы можете создавать свои собственные функции в calc. Это функция, которую я сделал, которая делает то, что я хочу:
Function STRCONCAT(range)
Dim Row, Col As Integer
Dim Result As String
Dim Temp As String
Result = ""
Temp = ""
If NOT IsMissing(range) Then
If NOT IsArray(range) Then
Result = "(" & range & ")"
Else
For Row = LBound(range, 1) To UBound(range, 1)
For Col = LBound(range, 2) To UBound(range, 2)
Temp = range(Row, Col)
Temp = Trim(Temp)
If range(Row, Col) <> 0 AND Len(Temp) <> 0 Then
If(NOT (Row = 1 AND Col = 1)) Then Result = Result & ", "
Result = Result & "(" & range(Row, Col) & ") "
End If
Next
Next
End If
End If
STRCONCAT = Result
End Function
очень часто я бы наслаждался простотой и быстротой замены и вариантов расчета, а также в целом быстрой обработки и изменения параметров, когда снова сидит перед дампом файлов списков или что-то еще.
Я никогда не понимал, почему они не включали такую важную функцию с самого начала.
Он основан на сценарии Адама, но с расширением для замены CONCAT от горизонтального к вертикальному, пока все еще держащ разделители внутри порядок.
Function CONCAT2D(Optional range, Optional delx As String, Optional dely As String, _
Optional xcell As String, Optional cellx As String, _
Optional swop As Integer)
Dim xy(1), xyi(1), s(1) As Integer
Dim out, cell, del, dxy(1) As String
'ReDim range(2, 1) 'Gen.RandomMatrix 4 Debugging
'For i = LBound(range, 1) To UBound(range, 1)
' For j = LBound(range, 2) To UBound(range, 2)
' Randomize
' range(i,j) = Int((100 * Rnd) )
' Next
'Next
out = ""
If IsMissing(delx) Then : delx = "," : End If
If IsMissing(dely) Then : dely = delx() : End If
If IsMissing(xcell) Then : xcell = "" : End If
If IsMissing(cellx) Then : cellx = xcell() : End If
If IsMissing(swop) Then : swop = 0 : End If
dxy(0) = delx() : dxy(1) = dely()
xyi(0) = 1 : xyi(1) = 2
If swop = 0 Then : s(0) = 0 : s(1) = 1
Else s(0) = 1 : s(1) = 0 : End If
If NOT IsMissing(range) Then
If NOT IsArray(range) _
Then : out = xcell & range & cellx
Else del = delx
For xy(s(0)) = LBound(range, xyi(s(0))) To UBound(range, xyi(s(0))
For xy(s(1)) = LBound(range, xyi(s(1))) To UBound(range, xyi(s(1))
cell = range(xy(0), xy(1))
If cell <> 0 AND Len(Trim(cell)) <> 0 _
Then : If out <> "" Then : out = out & del : End If
out = out & xcell & cell & cellx
del = dxy(s(0))
End If
Next : del = dxy(s(1))
Next
End If
Else out = "ERR"
End If
CONCAT2D = out
End Function