160行数组存入数组中

beleqing

大家好！我现在有160行2列的数据，怎么把这些数据赋值给数组。要求，

1）不能用单元格区域赋值给数组的方法，比如myArray = Sheet1.Range("A1").CurrentRegion，因为领导只想让这些数据存在于代码中
2）我使用了Application.Evaluate方法，发现只能编入25行，再多的话就会提示too many line continuations

我是不是只能这种方法，一直写下去？有没有更简洁的代码？谢谢！

1. myArray (1, 1) = 7
   
2. myArray (1, 2) = 92
   
3. myArray (2, 1) = 4
   
4. myArray (1, 2) = 97

复制代码

数组.zip (8.31 KB, 下载次数: 10)

2024-1-10 10:32 上传

点击文件名下载附件

kevinchengcw

用字符串，切分了写进数组

beleqing

kevinchengcw 发表于 2024-1-10 10:40
用字符串，切分了写进数组

求问怎么写呢，谢谢！

cyh3230

字符串, 好办法, 也挺方便的

山中老人

Sub Macro0()
    Dim Arr() As String, Str As String
    ReDim Arr(1 To 160, 1 To 2)
    Str = "1,2;3,4;5,6;7,8"
    Dim sz() As String, sz2() As String
    Dim r As Long, c As Long
    sz = Split(Str, ";") '分割行
    For r = LBound(sz) To UBound(sz)
        Str = sz(r)
        If Str = "" Then GoTo NextR
        sz2 = Split(Str, ",") '分割列
        Arr(r + 1, 1) = sz2(0)
        If UBound(sz) >= 1 Then Arr(r + 1, 2) = sz2(1)
NextR:
    Next r
End Sub

yjh_27

1. myArray = Sheet1.Range("A2").Resize(160, 2)

复制代码

kevinchengcw

这样就行了

wangg913

myArray = Sheet1.Range("A1").CurrentRegion

这样为什么不行？
要不就声明一个公共变量

yynrzwh

是不想超范围的意思吗？
arr = Sheet1.Range("a1:b161")

tanglf188

1、先把工作表的数据按注释的方式写入宏模块；
2、用的时候从宏模块读出写入数组。