以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  类型承接如图1  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133803)
--  作者：有点色
--  发布时间：2019/4/21 19:08:00
--  

循环每一行，判断项目的值。

 

如果不是单独字母的，就照抄，用变了pstr记录项目的值，如 A圆/

 

如果是单独字符，就pstr加上你的字母，即可。
--  作者：有点甜
--  发布时间：2019/4/22 15:07:00
--  
具体项目发上来测试。
--  作者：有点甜
--  发布时间：2019/4/22 15:24:00
--  
Dim t As Table = Tables("三坐标检测报告")
Dim pstr As String = ""
For Each r As Row In t.Rows
    If r("项目") > "" Then
        If r("项目").contains("/") Then
            pstr = r("项目").split("/")(0)
            r("项目类型") = r("项目")
        Else
            r("项目类型") = pstr & "/" & r("项目")
        End If
    End If
Next