[已解决]如何将WORD内表格的内容按要求复制到EXCEL上

cutecpu

jian82372387 发表于 2021-10-31 21:01
版主，还是不行，但是双击单元格后那个符号就自动没有了

您上传不行的附件，我来看一下

jian82372387

cutecpu 发表于 2021-10-31 21:04
您上传不行的附件，我来看一下

上传了

cutecpu

jian82372387 发表于 2021-10-31 21:10
上传了

试试下面代码，增加蓝色部份

Sub demo()
   Set doc = GetObject(ThisWorkbook.Path & "\demo.docx")
   [f5:h99].ClearContents
   With doc.tables(1)
      For i = 2 To .Rows.Count
         s = ""
         For j = 1 To .Columns.Count
            s = s + "," + replace(.Cell(i, j).Range.Text,chr(13) & chr(7),"")
         Next
         [f5].Offset(r).Resize(, 3) = Array(Mid(s, 2, 99), , replace(.Cell(i, 2).Range.Text,chr(13) & chr(7),""))
         r = r + 1
      Next
   End With
End Sub

jian82372387

cutecpu 发表于 2021-10-31 21:17
试试下面代码，增加蓝色部份

Sub demo()

可以了，十分感谢