提取信息（手术授权表格）

智能办公
1

image
image1145×505 43.5 KB

提取b1-b6，d1-d6，f1-f6数据输出在sheet2工作表的第2行，提取b7-b12，d7-d12，f7-f12在sheet2的第3行，依次每相隔6行提取一次


Sub ExtractData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Long, j As Long, k As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    k = 2 ' Starting row in Sheet2
    
    For i = 1 To ws1.Range("B1").CurrentRegion.Rows.Count Step 6
        For j = 0 To 5
            ws2.Cells(k, 1).Offset(0, j * 3).Value = ws1.Cells(i + j, 2).Value
            ws2.Cells(k, 1).Offset(0, j * 3 + 1).Value = ws1.Cells(i + j, 4).Value
            ws2.Cells(k, 1).Offset(0, j * 3 + 2).Value = ws1.Cells(i + j, 6).Value
        Next j
        k = k + 1
    Next i
End Sub
2

可以应用python直接提取word文档中的表格字段。