别人写的程序能用，为什么套入我的数据就不行了啊？

孙旭白

我主要是想实现自动换行的单个单元格自动分一行一行的
里面有代码，用原来的数据可以，套入我的数据就不行了，提示运行时错误13，类型错误什么的。

maditate

很显然，尺寸不对。

孙旭白

能帮忙修改学习吗？

孙旭白

maditate 发表于 2019-9-5 16:14
很显然，尺寸不对。

能帮忙修改学习吗？

鄂龙蒙

1. Sub test()
   
2.     Dim rng As Range
   
3.     brr = Range("a1")
   
4.     arr = Split(brr, Chr(10))
   
5.     [c1].Resize(UBound(arr) + 1) = Application.Transpose(arr)
   
6. End Sub

复制代码

孙旭白

鄂龙蒙 发表于 2019-9-5 16:59

整个A列的话怎么写啊

opel-wong

孙旭白 发表于 2019-9-5 16:24
能帮忙修改学习吗？

那就换一种方式吧，数组循环处理，速度也很快，

opel-wong

上传代码：

1. Sub Test()
   
2.     Dim mRow As Long, arr, brr, ZR(), i As Long, j As Long, m As Long
   
3.     ReDim ZR(1 To 4 ^ 8, 1 To 1)
   
4.     With Sheet1
   
5.         mRow = .Range("A65536").End(3).Row
   
6.         arr = .Range("A1:A" & mRow).Value
   
7.         For i = 1 To UBound(arr)
   
8.             If arr(i, 1) <> "" Then
   
9.                 brr = VBA.Split(arr(i, 1), Chr(10))
   
10.                 For j = 0 To UBound(brr)
    
11.                     m = m + 1
    
12.                     ZR(m, 1) = brr(j)
    
13.                 Next
    
14.             End If
    
15.         Next
    
16.         .Range("e:e").ClearContents
    
17.         .Range("E1").Resize(m, 1).Value = ZR
    
18.     End With
    
19. End Sub

复制代码