数据对齐程序1.2

如上一篇，把字母用数组变量代替，优化了下,略有bug，待调试

Sub ts1()
a = Time
aar1 = Array("L", "I", "F", "B")
aar2 = Array("M", "L", "I", "F")
n = Cells(Rows.Count, 2).End(xlUp).Row

For m = 1 To 4: For i = 2 To n

If Range(arr1(m) & i) <> "" Then:
j = Range(arr2(m) & i - 1).End(xlDown).Row

If j - i < 3 Then
Range(arr2(m) & j).Resize(1, 3).Cut Range(arr2(m) & i).Resize(1, 3)

End If: End If: Debug.Print m & "------" & i

Next i: Next m

b = Time - a: MsgBox b, n