vba中使用index字符数为什么不能超过255?

Zipall

rt同样的语句,当第1个参数中某单元格的字符数超过255时,index就不可用了.
为什么?

test.rar (9.72 KB, 下载次数: 20)

2011-7-20 01:12 上传

点击文件名下载附件

爱疯

不知道，测试了下，不能>127

Zipall

回复 爱疯 的帖子

10是2位数

爱疯

Zipall 发表于 2011-7-20 10:59
回复 爱疯 的帖子

10是2位数

b10=REPT(ROW(),127)，可以
b10=REPT(ROW(),128)，就不可以了。

即，也就是引用工作表函数时，数组元素字符长度>255就出错了。

Zipall

回复 爱疯 的帖子

想知道为什么?

爱疯

我曾问过另一个类似问题，当时吕布版主找出原因了。
'MS原文：http://support.microsoft.com/kb/832136/zh-cn/
MS对那个问题有交代，我测试验证过。

1. 
   
2. Sub Test1()
   
3.     Dim s As String, Arr(0) As String
   
4.     On Error Resume Next
   
5.     Do Until Err.Number = 1004
   
6.         s = s & "A"
   
7.         Arr(0) = s
   
8.         Range("A1") = Arr
   
9.     Loop
   
10.     MsgBox Len(s)
    
11.     '03返回912
    
12.     '07返回8204
    
13.     '10返回8204
    
14. End Sub

复制代码

如今，你的问题是在这问题基础上，又加了一个条件（引用工作表函数）。我用上面方式作了部分测试：

1. 
   
2. 
   
3. 
   
4. Sub Test2()
   
5.     Dim s As String
   
6.     Dim Arr(1 To 1, 1 To 1) As String
   
7.     Dim x As Long
   
8.     On Error Resume Next
   
9.     Do Until Err.Number <> 0
   
10.         s = s & "A"
    
11.         Arr(1, 1) = s
    
12.         Range("A1") = Application.WorksheetFunction.Index(Arr, 0, 1)
    
13.     Loop
    
14.     x = Len(s)
    
15.     Stop    'x=32768
    
16. End Sub
    
17. Sub Test3()
    
18.     Dim s As String
    
19.     Dim Arr(1 To 1, 1 To 1) As String
    
20.     Dim x As Long
    
21.     On Error Resume Next
    
22.     Do Until Err.Number <> 0
    
23.         s = s & "A"
    
24.         Arr(1, 1) = s
    
25.         Range("A1") = Application.WorksheetFunction.Index(Arr, 1, 0)
    
26.     Loop
    
27.     x = Len(s)
    
28.     Stop    'x=32768
    
29. End Sub
    
30. Sub Test4()
    
31.     Dim s As String
    
32.     Dim Arr() As Variant
    
33.     Dim x As Long
    
34.     On Error Resume Next
    
35.     Do Until Err.Number <> 0
    
36.         s = s & "A"
    
37.         Arr = [a1:b2].Value
    
38.         Arr(1, 1) = s
    
39.         Arr(1, 2) = s
    
40.         Arr(2, 1) = s
    
41.         Arr(2, 2) = s
    
42.         Range("A1:A2") = Application.WorksheetFunction.Index(Arr, 0, 1)
    
43.     Loop
    
44.     x = Len(s)
    
45.     Stop    'x=256
    
46. End Sub

复制代码

我猜想，是因为单元格赋值给数组后，MS为避免用户出错，所以做了“人性化”处理吧（即限制不能>255)。
可惜，没找着MS对此的原文解释。

Zipall

回复 爱疯 的帖子

谢谢你给的链接和测试.
我进一步测试,发现和arr的变量类型有关.

1. 
   
2. Sub Test4()
   
3.     Dim Arr(0)
   
4.     Arr(0) = WorksheetFunction.Rept(1, 32767)
   
5.     Range("A1") = Application.Index(Arr, 0, 1)
   
6.     MsgBox Len([A1])
   
7. End Sub
   

复制代码

上面的会报错,下面的则不会.

1. 
   
2. Sub Test5()
   
3.   Dim Arr(0) As String
   
4.   Arr(0) = WorksheetFunction.Rept(1, 32767)
   
5.   Range("A1") = Application.Index(Arr, 0, 1)
   
6.    MsgBox Len([A1])
   
7. End Sub
   

复制代码

说明问题和这个 Variant 数据类型有关.
那么现在的问题就是如何一次性将单元格区域的值赋值给一个变量类型为string的数组?

爱疯

由于03单元格的限制（65536行，256列）。

• 而变量的值，可以来自单元格；也可以来自其它途径（如常量，数组等）。
• 经过处理之后，
• 若仍旧输出到单元格，
  

为尽可能避免意想不到的错误，于是有了65536或256之限。

于是猜想凡是与单元格“来来往往”，便有此限，甚至可能有更严格的限制。至于限制的宽紧度如何，由于我拿不出充分数量的例子来证明，也举不出MS的解释，所以只能作为猜想，但我感觉方向是对的。

爱疯

Zipall 发表于 2011-7-20 12:38
回复 爱疯 的帖子

谢谢你给的链接和测试.

刚刚一起发的，所以没看见这楼。

要是我理解，test4()出错实质是由于当某某条件下可能发生错误，只不过现在看到的是通过修改数据类型得以避免，让人意外，也确实意外。这个某某，我又解释不了，需要更广的、更深的知识来解释。

我还是相信：65536和256，将是与单元格来来往往的最低底限，MS可能由于这样或那样的原因，放松这个限制。

fjmxwrs

跟着学习来了。