如何将一维数组导入一个单元格

zhxqer

如何将一维数组导入一个单元格
在一个单元格内显示数组的全部元素

雪舞子

1. Sub test()
   
2.     Dim arr
   
3.     arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
   
4.     [a1] = Join(arr)
   
5. End Sub
   

复制代码

zhxqer

雪舞子 发表于 2016-3-12 17:29

Sub exp()
    Dim exparr(1 To 5) As Integer
      n = 5
    For i = 1 To n
    exparr(i) = 103
    Next
    [S3] = Join(exparr)
End Sub

显示无效的过程或调用参数

ghostjiao

Dim exparr(1 To 5)

把as  及后面的去掉

zhxqer

ghostjiao 发表于 2016-3-12 17:47
Dim exparr(1 To 5)

把as  及后面的去掉

麻烦问下，如果我想把[S3]变成一个区域，区域内的每个单元格都显示join（exparr），该怎么写？
for n = 3 to 10
cells(2,n)=join(exparr)
next
为什么这样写运行不了，新手虚心求教！

ghostjiao

zhxqer 发表于 2016-3-12 18:42
麻烦问下，如果我想把[S3]变成一个区域，区域内的每个单元格都显示join（exparr），该怎么写？
for n = ...

没看出有问题，应该能运行的

thelastdance

ghostjiao 发表于 2016-3-12 20:11
没看出有问题，应该能运行的

不会，，，

金樽空对月

zhxqer 发表于 2016-3-12 18:42
麻烦问下，如果我想把[S3]变成一个区域，区域内的每个单元格都显示join（exparr），该怎么写？
for n = ...

代码改成如下这样

1. Sub exp()
   
2. Dim exparr(1 To 5) As String
   
3. n = 5
   
4. For i = 1 To n
   
5. exparr(i) = 103
   
6. Next[S3] = Join(exparr)
   
7. End Sub

复制代码

因为JOIN对整型数据类型无效，对字符串类型有效，或者不要as integer即可。

金樽空对月

zhxqer 发表于 2016-3-12 18:42
麻烦问下，如果我想把[S3]变成一个区域，区域内的每个单元格都显示join（exparr），该怎么写？
for n = ...

代码如下：

1. Sub exp()
   
2. Dim exparr(1 To 5) As String
   
3. n = 5
   
4. For i = 1 To n
   
5. exparr(i) = 103
   
6. Next
   
7. For n = 3 To 10
   
8. Cells(2, n) = Join(exparr)
   
9. Next
   
10. End Sub

复制代码

zhxqer

OK了，谢谢各位大神！