将表格文本存入数组

loquat

Sub 常规写法()
Dim arr(), i%, j%, aRow%, aCols%, t: t = Timer '定义一个数组
With ActiveDocument.Tables(1)  '省去了一个Table对象变量
    aRows = .Rows.Count: aCols = .Columns.Count  '获取表格行列数
    ReDim arr(1 To aRows, 1 To aCols)            '重置表格维数
    For i = 1 To aRows                           '循环提取表格数据到数组变量
        For j = 1 To aCols
            arr(i, j) = Split(.Cell(i, j).Range.Text, Chr(13))(0)
        Next j
    Next i
End With
'Debug.Print Timer - t
End Sub

1. Sub 楼主写法()
   
2. Dim arr, brr, i&, t: t = Timer
   
3. arr = ActiveDocument.Tables(1).Range.Text   '将整个表格以文本形式存入变量
   
4. arr = Replace(arr, Chr(7), "")              '去掉制表符
   
5. arr = Split(arr, Chr(13) & Chr(13))         '将数据分行
   
6. ReDim Preserve arr(0 To ActiveDocument.Tables(1).Rows.Count - 1)  '去除最后的空白行
   
7. brr = Split(arr(0), Chr(13))                '得到原表格的第1行数据
   
8. 'Debug.Print Timer - t
   
9. End Sub

复制代码

效率做个对比：

1. Sub 效率对比()
   
2. Dim i&, j&, t: t = Timer
   
3. j = 10
   
4. For i = 1 To j
   
5.     常规写法
   
6. Next i
   
7. Debug.Print Timer - t
   
8. t = Timer
   
9. For i = 1 To j
   
10.     楼主写法
    
11. Next i
    
12. Debug.Print Timer - t
    
13. End Sub

复制代码

效率优化了3倍的样子，不过这样的效率仍然比较低

并且还没有考虑合并单元格等特殊情况

loquat

想知道还有没有更高效的写法

oylw

又是VBA，看着头晕！