Question

请高手帮忙写个EXCEL表格的宏

只把A列的数据这样分列就可以了，效果如图，请高手帮忙啊！！！

Answer 1

鼠标右键 Sheet1，选择【查看代码】，打开VBE，在代码窗口粘贴下面的代码：
Sub ouyangff()
j = 1: k = 4
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) = Cells(i + 1, 1) Then
Cells(j, k) = Cells(i, 1)
j = j + 1
Else
Cells(j, k) = Cells(i, 1)
j = 1: k = k + 1
End If
Next
End Sub

光标停在代码初按F5，运行程序！按Alt + F11，回到Excel里去看看结果吧！！！