excel吧 关注：280,255贴子：1,536,386
- 11回复贴，共1页
请教一下，有没有办法，将第一行这样ABCD这样的数值，分成红框这样.1行4个单元格，变成4行4个单元格，百度找的方法是单个的。我现在数据有点大，怎么能多个单元格分行呢？用的是excel 2019。谢谢
菠萝蜜
Option Explicit
Sub abc()
Dim a, i, j, k, m, n, t
a = [a1].CurrentRegion.Value
ReDim b(1 To 10 & UBound(a), 1 To UBound(a, 2))
For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
t = Split(a(i, j), vbLf)
For k = 0 To UBound(t)
b(m + k + 1, j) = t(k)
Next
If n < UBound(t) Then n = UBound(t)
Next
m = m + n + 1: n = 0
Next
[a1].Offset(, UBound(a, 2) + 1).Resize(m, UBound(b, 2)) = b
End Sub
