|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 整理()
Dim ar As Variant
Dim br()
ar = Sheets("ABC").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
n = n + 1
br(n, 1) = ar(i, 1)
rr = Split(ar(i, 2), ")")
br(n, 2) = Replace(rr(0), "(", "")
br(n, 3) = rr(1)
br(n, 4) = ar(i, 3)
br(n, 5) = ar(i, 4) + ar(i, 5)
End If
Next i
With Sheets("ABC_1")
.[a1].CurrentRegion.Offset(1) = Empty
.[a2].Resize(n, 5) = br
End With
MsgBox "ok!"
End Sub
|
|