复杂多维表格模板转成标准一维数据模板，有偿求解决

kaixinbuy

kaixinbuy 发表于 2023-4-23 15:58
0行代码搞定

zyr2046

1. Sub 套路()   '//答题专用套路-By瘾大技术差
   
2.     Application.ScreenUpdating = False
   
3.     Dim i, j, k, arr, brr(1 To 600000, 1 To 10), crr, Rng As Range, Sht As Worksheet
   
4.     arr = Sheet1.Range("a2:l" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         If InStr(arr(i, 1), "项目名称") Then
   
7.             For j = i + 3 To UBound(arr)
   
8.                 If arr(j, 3) <> "" Then
   
9.                     k = k + 1
   
10.                     brr(k, 1) = arr(i, 3)
    
11.                     brr(k, 2) = arr(j, 3)
    
12.                     For x = 3 To 10
    
13.                         brr(k, x) = arr(j, x + 2)
    
14.                     Next
    
15.                 End If
    
16.                 If InStr(arr(j, 2), "材料费明细合计") > 0 Then
    
17.                     i = j + 9
    
18.                     Exit For
    
19.                 End If
    
20.             Next
    
21.         End If
    
22.     Next
    
23.     Sheet2.Range("a2:j600000").ClearContents
    
24.     Sheet2.Range("a2").Resize(k, 10) = brr
    
25.     Application.ScreenUpdating = True
    
26. End Sub
    
27. 
    

复制代码

peter199083

kaixinbuy 发表于 2023-4-23 16:01

请问您用的这是什么软件啊？

kaixinbuy

peter199083 发表于 2023-4-29 13:39
请问您用的这是什么软件啊？

这个是我们自己开发的软件，用于从不规范的大量excel表格中抽取表单和表格数据。可视化操作不用写代码。
这里这个例子比较简单。不过也算是表单+表格混合抽取的一个很好的例子。