我有412个单元格（A1：A412）。每个单元格都有我OCR并将其导出到Excel的数据字符串。这是名称和地址的列表。
我需要VBA代码，该代码将遍历每个单元格，查看前5个或6个字符，并确定文本字符串是名称，地址还是城市（州和邮政编码），然后将该数据转置出去。
我有一些代码，每隔n行就会转置数据，但是不会以这种方式导出数据。例如：这个名称可能会占用两个不同的单元格，但我想在此过程中合并这两个单元格。
例如：州政府提供的公共信息
CURRENT LIST (Sheet 1):
Cell A1: A. E. Ewell Investment Co.
Cell A2: P.O. Box 27
Cell A3: Ardmore, OK 73402
Cell A4: Aimie A. Akers, Trustee of the Howard A.
Cell A5: and Aimie A. Akers Revocable Joint Trust
Cell A6: Agreement dated 5/03/1996
Cell A7: 11 Nichols Road
Cell A8: Luray, VA 22835
Cell A9: Alison Evans Taylor
Cell A10: And James Andrew Taylor
Cell A11: 1523 Glenwood Avenue
Cell A12: Oklahoma City, OK 73116
Result: (Sheet 2):
Cell A1: A. E. Ewell Investment Co. Cell B1: P.O. Box 27 Cell C1: Ardmore, OK 73402
Cell A2: Aimie A. Akers, Trustee of the Howard A. and Aimie A. Akers Revocable Joint Trust Agreement dated 5/03/1996 Cell B2: 11 Nichols Road Cell C2:Luray, VA 22835
Cell A3: Alison Evans Taylor and James Andrew Taylor Cell B3: 1523 Glenwood Avenue Cell C3: Oklahoma City, OK 73116
我知道这是非常具体的，并且需要制定规则，但是我只需要基本代码，我将实现这些规则。