小编Ben*_*Ben的帖子

在对VBA列执行文本后,我的数据如下所示:

1995 (1)
(23:00)

Math 0630 
0830 Break 0930 
1000 English 1200 
1200 Lunch 1300 
1330 Free

运行其余代码后,我的数据如下所示:

1995 (1) (23:00) 0630 Math 0830 0930 Math Break 1000 1200 Break English 1200 1300 English Lunch 1300 1330 Lunch Free

为了更容易理解"0630 MATH 0830"在一个单元格中,依此类推.

我的问题是现在我需要数据看起来像这样:

1995 (1) (23:00) Math 0630 0830 Break 0930 1000 English 1200 1200 Lunch 1300 1330 Free

因此,如果有意义的话,基本上需要移动类的时间.我的代码如下.任何类型的帮助将不胜感激.

Sub Macro4() ' ' Macro4 Macro '

'
    Sheets("Sheet2").Select
    Cells.Select
    Range("D29").Activate
    Selection.ClearContents
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Sheets("Sheet1").Select


'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, …