将行合并为一个单元格
寻星者
我想知道是否有一种简单的方法可以将每个Hl7消息的所有行组合到一个单元格中，我有大量的HL7消息列表，并且每个消息都以尖括号“>”结尾。可以使用公式或VBA代码来完成此操作吗？
这是我想要达到的目标
豪猪911
这是一个替代解决方案。它不是很优雅，但是格式与您在上图中所显示的完全一样，每行的末尾都有一个回车符，删除了“>”，并且在消息之间有一个空单元格。我将结果放在B列中，以便可以查看它是否正常运行。您当然可以根据需要进行定制。
Sub DoMessages()
Dim HL7Message As String
Dim newHL7Message As String
Dim i As Integer: i = 2
Dim j As Integer: j = 1
Dim lastRow As Integer
lastRow = Sheets(1).Cells(1000, "A").End(xlUp).Row 'I used "1000" for the sake of this test code. Change as required.
HL7Message = Cells(1, 1).Value
For i = 1 To lastRow
newHL7Message = Cells(i, 1).Value
If Not newHL7Message = ">" Then
If HL7Message = "" Then 'This 'If-Then-Else' keeps from there being an extra CR at the beginning of each cell
HL7Message = newHL7Message
Else
HL7Message = HL7Message & vbCrLf & newHL7Message
End If
Else
Sheets(1).Cells(j, 2) = HL7Message
HL7Message = ""
j = j + 2
End If
Next
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
自动将多个单元格的公式合并为一个单元格
- 2
将匹配数据的单元格合并为一个单元格
- 3
是否可以将多个单元格合并为一个，同时也可以省略空单元格？
- 4
将3个单元格数据合并为一个并写入另一个csv
- 5
使用VBA将Excel中两个单元格中的文本合并为一个
- 6
如何将两个单元格值的文本合并为一个| EXCEL | VBA |
- 7
Excel 2007-无法将这三个公式合并为一个单元格
- 8
将多个单元格的值与一个单元格相同的值合并为Google表格中的平均值
- 9
将多个电子邮件地址（在单独的单元格中）合并为一个单元格（以逗号分隔）Google表格或Excel
- 10
将一个文本文件文件夹与一个单元格中的每个内容合并为一个CSV文件
- 11
将多个“动态”行合并到一个单元格中
- 12
将多个“动态”行合并到一个单元格中
- 13
在Matlab中将所有单元格数组合并为一个crossval
- 14
在Matlab中将所有单元格阵列合并为一个crossval
- 15
两列合并为一个单元格SQL查询
- 16
SQL中如何将多个单元格合并为一行？
- 17
在Excel中使用合并功能将两个单元格合并为一个
- 18
将两个单元格合并为一个新单元格，将所有空格替换为破折号和小写字母
- 19
如何将一个单元格的值与一整列合并？
- 20
在最后一行之后的行中放置一个单元格，并为相邻的单元格设置公式以使其等于
- 21
将两列合并为一列行但不相同的单元格并对它们进行分类
- 22
将多行合并到一个数据框的单个单元格
- 23
Google表格-将多个IF函数合并到一个单元格中
- 24
查找用于创建合并单元格的最后一个单元格的位置
- 25
Excel如何合并多个单元格创建一个单元格
- 26
Excel将三列合并为一，而空白单元格留空
- 27
将多个火花行合并为一个
- 28
将许多独特的行合并为一个
- 29
将单元格条目粘贴到一个单元格中并删除空单元格
我来说两句