如果需要处理大量的行数,可以使用宏来解决。以下是示例代码:Sub transfer()Dim x As Long, i As Long, arr() As String, j As LongSet arr = Split(Range("a1", Range("a1").End(xlUp).Row), "+")For i = 1 To xFor j = 0 To UBound(arr)m = m + 1Range("b" & m) = arr(j)Next jNext iEnd Sub你可以先测试一下这个宏,然后再使用它来处理你的数据。这个宏会将范围内的所有内容按照指定格式进行转移。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号