这种结构的WORD表格VBA怎么取最后一列的值?

larer · 发表于 2024-11-4 09:38

本帖最后由 larer 于 2024-11-4 11:06 编辑

遇到一个难题,请各位大神与版主指点:

这样的WORD表格结构,黄色为合并单元格,我想获取名字为 "小李" 对应的最后一列合并单元格中的 "合格" 二字.代码怎么写,试了好久没成功.

文件在附件中.

项目1.zip (16.53 KB, 下载次数: 1)

饮冰e士 · 发表于 2024-11-4 10:03

larer · 发表于 2024-11-4 10:06

饮冰e士发表于 2024-11-4 10:03

谢谢,我没有说明白,这个是在WORD中的表,要使用WORD vba来查找小李最后一列的值

limonet · 发表于 2024-11-4 10:54

larer 发表于 2024-11-4 10:06
谢谢,我没有说明白,这个是在WORD中的表,要使用WORD vba来查找小李最后一列的值

你上个附件，创造一下条件，模拟就精准。

larer · 发表于 2024-11-4 11:06

limonet 发表于 2024-11-4 10:54
你上个附件，创造一下条件，模拟就精准。

已上传,有空帮看一下.

limonet · 发表于 2024-11-4 11:32

Sub limonet()
On Error GoTo ErrHandler
MsgBox "第二列第四行的文本是" & ActiveDocument.Tables(1).Cell(4, 2).Range.Text
MsgBox "第二列第四行的文本是" & ActiveDocument.Tables(1).Cell(4, 5).Range.Text
ErrHandler:
Select Case Err
      Case 5941
         MsgBox "第二列第四行的文本是" & ActiveDocument.Tables(1).Cell(4, 5).Range.Text
      Case Else
         MsgBox "报错码" & Err.Number & ": " & Err.Description
End Select
End Sub

limonet · 发表于 2024-11-4 11:36

关键字：select case

mythnet · 发表于 2024-11-4 13:27

本帖最后由 mythnet 于 2024-11-4 13:36 编辑

MsgBox "第二列第四行的文本是" & ActiveDocument.Tables(1).Cell(1, 5).Range.Text
这代码是基于人眼识别 (4，5）对应的是（1，5），不具有通用性
是否可以从（4，5）循环往上，找最接近的一个CELL，但也只能针对仅有垂直合并单元格的，他这个表格中（1，2)是个合并单元格，所以没有（1，5），只有（1，4），复杂表很难处理。

larer · 发表于 2024-11-4 16:15

mythnet 发表于 2024-11-4 13:27
MsgBox "第二列第四行的文本是" & ActiveDocument.Tables(1).Cell(1, 5).Range.Text
这代码是基于人眼识 ...

一下子就看到了关键点.

		自动登录	找回密码
密码			免费注册

[求助] 这种结构的WORD表格VBA怎么取最后一列的值?

评分

评分

评分