怎么把word里东西一坨一坨的搬进表格里。手工太麻烦了

求问

建议传个具体的word文件到百度网盘然后贴出共享链接

百度网盘链接：网页链接
提取码：qzqz

你的文档结构很整齐.
打开该文档后在excel中运行下面的宏.
Sub test()
Set wd = GetObject(, "Word.Application").Documents("实验.doc")
r = 2
For Each tb In wd.tables
With tb
For tr = 1 To .Rows.Count Step 2
Cells(r, 1) = .cell(tr, 1).Range.Text
Cells(r, 2) = .cell(tr + 1, 2).Range.Text
r = r + 1
Next
End With
Next
End Sub

For Each tb In wd.tables
With tb
For tr = 1 To .Rows.Count Step 2
.cell(tr, 1).Select
Selection.Copy
Range("A" & r).PasteSpecial xlPasteAll
.cell(tr + 1, 2).Select
Selection.Copy
Range("B" & r).PasteSpecial xlPasteAll
r = r + 1
Next
End With
@zipall 按照您的方法可以进行，但是把格式都清理掉了。我试着实现手工复制粘贴功能，但是进不去，能否看下，谢谢您，救人救到底吧