使用Excel VBA将数据对齐到行中

我需要使用VBA将这些数据与Excel中的行对齐。我有一个这种格式的巨大数据。我需要把它排成几行

SUBSCRIBER DETAILS
IMSI             MSISDN           STATE
405845001382775  919085919027     IDLE

DATE             TIME             CELLID
130103           122725           404-29-12906-15353

IMEI
356395024630200

SUBSCRIBER DETAILS
IMSI             MSISDN           STATE
405845002463183  919085325090     IDET

DATE             TIME             CELLID
130103           103447           404-29-12107-23993

IMEI
354917031429730

所需输出：-

IMSI        MSISDN           STATE  DATE             TIME             CELLID            DATE             TIME             CELLID            IMEI
405845001382775  919085919027     IDLE              130103           122725           404-29-12906-15353            356395024630200
IMSI             MSISDN           STATE DATE             TIME             CELLID            DATE             TIME             CELLID            IMEI
405845002463183  919085325090     IDET              130103           103447           404-29-12107-23993            354917031429730

---

这是您正在寻找的细分市场。选择范围后，根据需要使用。每种对齐方式都与“with语句”结合使用

---

aline

是要使用的新函数、属性吗？它是

对齐

；）请您记录一个宏以对齐数据，然后在出现错误或卡住时发布代码，好吗？我是否理解正确，您的数据是在多行上的块中，您希望将它们放在一行中？假设数据粘贴在单元格A1的sheet1中。我的要求是1。如果它找到字符串“IMSI”（假设IMSI字符串在单元格A2中），我需要B3单元格中的A3数据。2.在找到字符串“DATE”的地方（假设DATE字符串在单元格A5中），我需要C5单元格中的A3数据。2.当它找到字符串“IMEI”（假设IMEI字符串位于单元格A9中）时，我需要D9单元格中的A3数据。类似地，它应该对所有数据进行循环，并使其成为行。是的，Juri，我的数据是在多行上的块中，我希望将它们放在一行中。就像我在“所需输出：-”一节中提到的那样。如果可以在excel中使用vba，请帮助我。请帮助假设数据粘贴在单元格A1的表1中。我的要求是1。如果它找到字符串“IMSI”（假设IMSI字符串在单元格A2中），我需要B3单元格中的A3数据。2.在找到字符串“DATE”的地方（假设DATE字符串在单元格A5中），我需要C5单元格中的A3数据。2.当它找到字符串“IMEI”（假设IMEI字符串位于单元格A9中）时，我需要D9单元格中的A3数据。类似地，它应该对所有数据进行循环，并使其成为行。

With Selection
    .HorizontalAlignment = xlLeft
    .HorizontalAlignment = xlCenter
    .HorizontalAlignment = xlRight
    .VerticalAlignment = xlTop
    .VerticalAlignment = xlCenter
    .VerticalAlignment = xlBottom
End With