VBA数据提取！！

zy19880405

不知道怎么回事，文件导出来 全是乱七八糟的。 能不能用VBA提取成我第二个表的那个样子！！

duquancai

手机上网中，看不见是什么样子？

zy19880405

图一是这样子乱七八糟的，我想提取成图二这样  因为我要的就只有这3条

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim rng As Range, arr()
   
3. s = "班级"
   
4. Set rng = Sheet1.Cells.Find(s & "*", lookat:=xlWhole)
   
5. If Not rng Is Nothing Then
   
6.     c = rng.Address
   
7.     Do
   
8.     m = m + 1
   
9.     ReDim Preserve arr(1 To 3, 1 To m)
   
10.     x = rng.Row
    
11.     arr(1, m) = Sheet1.Cells(x, 1).Value
    
12.     arr(2, m) = Sheet1.Cells(x + 1, 1).Value
    
13.     arr(3, m) = Sheet1.Cells(x + 2, 1).Value
    
14.     Set rng = Sheet1.Cells.FindNext(rng)
    
15.     Loop While Not rng Is Nothing And rng.Address <> c
    
16. End If
    
17. Sheet2.Cells.ClearContents
    
18. Sheet2.Range("a1").Resize(m, 3) = WorksheetFunction.Transpose(arr)
    
19. End Sub

复制代码

ww87725244

看样子是网站提取的数据