如果列数不够时

excelnew1

老师们你好！


Cells(2, n).Resize(UBound(brr), UBound(brr, 2)) = brr


设结果brr包含20000列，sheet1输入不完的时，想把它余下的结果放入sheet2,sheet3,代码如何改动？

abc123281

Cells(2, 1).Resize(UBound(brr), 20000) = brr

excelnew1

abc123281 发表于 2018-9-23 17:40
Cells(2, 1).Resize(UBound(brr), 20000) = brr

老师你好，一个sheet表最大列是16384列 。20000列填入不下去了。如何把余下的结果填入sheet2又开始填

719404338

Excel2003的最大列数是256列，2007以上版本是16384列。前一万列装入crr，后一万列装入err.

excelnew1

719404338 发表于 2018-9-23 17:45
Excel2003的最大列数是256列，2007以上版本是16384列。前一万列装入crr，后一万列装入err.

你好老师，怎么把brr结果拆分出来呢。

719404338

excelnew1 发表于 2018-9-23 17:46
你好老师，怎么把brr结果拆分出来呢。

1. Sub t()
   
2. Dim brr(1 To 100, 1 To 20000)
   
3. Dim crr, err
   
4. ReDim crr(1 To UBound(brr), 1 To 10000), err(1 To UBound(brr), 1 To 10000)
   
5. For i = 1 To UBound(brr)
   
6. For j = 1 To 10000
   
7.   crr(i, j) = brr(i, j)
   
8.   err(i, j) = brr(i, j + 10000)
   
9.   Next j, i
   
10. End Sub
    

复制代码

excelnew1

  sheet1.crr(i, j) = brr(i, j)
  sheet2.err(i, j) = brr(i, j + 10000)

是不是还要加上这样的

719404338

excelnew1 发表于 2018-9-23 18:00
sheet1.crr(i, j) = brr(i, j)
  sheet2.err(i, j) = brr(i, j + 10000)

不是。
sheet1.select
sheet1.[a1].resize(100,10000)=crr
sheet2.select
sheet2.[a1].resize(100,10000)=err

excelnew1

719404338 发表于 2018-9-23 19:22
不是。
sheet1.select
sheet1.[a1].resize(100,10000)=crr

谢谢老师的解答！！！