数组单元格字节255受限，请高手帮忙，谢谢！！！

船舶软件王

各位同仁，下面的文件当空格中的字节超过255时出错 ，少于255时，正常运行，能帮忙解决这个问题吗，正常一个单元格的字节超过255个，挺常见的，所以请高人帮忙 看下，谢谢。 333.zip (27.1 KB, 下载次数: 17)

2013-9-12 22:18 上传

点击文件名下载附件

QQ 1141901114

qy1219no2

一个单元格最大可写入3W多个字符，怎么可能255受限？是不是设置了数据有效性，限制了文本长度？
分明是代码写得有问题，怎么说是单元格字符限制呢？

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Arr = Sheet7.[A1].CurrentRegion
   
4.     Brr = [A1].CurrentRegion
   
5.     n = 1
   
6.     With Sheets("节点清册")
   
7.         For i = 2 To UBound(Arr)
   
8.             Set r1 = [L:L].Find(Arr(i, 1), , , 2)
   
9.             If Not r1 Is Nothing Then
   
10.                 fsad = r1.Address
    
11.                 Do
    
12.                     n = n + 1
    
13.                     .Cells(n + 3, 3).Resize(1, 4) = Application.Index(Brr, r1.Row, 0)
    
14.                     .Cells(n + 3, 2) = Arr(i, 1)
    
15.                     Set r1 = [L:L].FindNext(r1)
    
16.                 Loop While r1.Address <> fsad And Not r1 Is Nothing
    
17.             End If
    
18.         Next
    
19.         .Visible = -1
    
20.         .Select
    
21.     End With
    
22. End Sub

复制代码

还有，代码中.Cells(n + 3, 3).Resize(1, 4) = Application.Index(Brr, r1.Row, 0)这句觉得也是有问题的，但楼主没有详细说明，所以不好下结论。

船舶软件王

去年没有 解决 的问题，今年能否有高手解决 呢，可以 付费，有兴趣，找我
谢谢了。

jsgj2023

qy1219no2 发表于 2013-9-12 23:05
一个单元格最大可写入3W多个字符，怎么可能255受限？是不是设置了数据有效性，限制了文本长度？
分明是代 ...

确实有字符数量限制。