表格整理求助

kdsea

把不规范的文字变成表格，详见附件。     因本人水平有限，烦请老师抽时间指导一下，多谢了。

高个子

你这个场地和产品没有规律，只能手动啊，还有，你只给这两条，万一其他的是别的格式公式又不能用，所以推荐手动解决。不想自己手动你就让下面的人按照你的格式重写再发上来然后你自己合起来，或者弄个在线文档，设置文件里的几个问题让他们填……

kdsea

高个子 发表于 2023-2-22 11:37
你这个场地和产品没有规律只能手动啊……

场地可设为：丰 天，包含这二个字的。   产品  ：在这一行中包含“样”字的 ，取日字或号字向后到 样字的部分

shiruiqiang

这个正则表达式可以试试，等大神把

高个子

kdsea 发表于 2023-2-22 11:42
场地可设为：丰 天，包含这二个字的。   产品  ：在这一行中包含“样”字的 ，取日字或号字向后到 样字的 ...

但是产品还有天半干煤泥样这种，等下又会出现半干煤泥样天或者1月26号丰，格式又不一样了
产品  ：在这一行中包含“样”字的 ，取日字或号字向后到 样字的部分，如果按照这么提取，天半干煤泥样会提取出来
你可以弄个在线文档，如果产品和场地选项比较少，可以设置为选择题，其他的设置为填空题让他们填，像热量、水、挥发、硫可以设置为填空题，强制让他们填数字，日期也弄个填空题……

高个子

shiruiqiang 发表于 2023-2-22 11:45
这个正则表达式可以试试，等大神把

正则提取就简单了\d+月\d+(号|日)，场地是(天|丰)

shiruiqiang

高个子 发表于 2023-2-22 11:52
正则提取就简单了\d+月\d+(号|日)，场地是(天|丰)

其余几个提取的位置还算规则。所以表格下发的时候规范一点，后期自己的活少干点。

高个子

shiruiqiang 发表于 2023-2-22 11:55
其余几个提取的位置还算规则。所以表格下发的时候规范一点，后期自己的活少干点。

对，像这个用在线文档就比较合适，非要保留这个结果那就让下面的人做一份这个然后再填一份在线文档，自己的活就少干一点

kdsea

高个子 发表于 2023-2-22 11:58
对，像这个用在线文档就比较合适，非要保留这个结果那就让下面的人做一份这个然后再填一份在线文档，自己 ...

Sub 按钮1_Click()
a = Array("低位") ', "水分：", "空干基挥发：", "硫：")
    For i = 2 To 10
   
        For Each aa In a  '遍历字符
            k = InStr(Cells(i, 1), aa) '如果包含字符，那么k的值大于0，否则等于0
            If k > 0 Then
                kk = Len(aa) + k '//返回第一个数字的位置
                Cells(i, 2) = Val(Mid(Cells(i, 1), kk, 99))  '读取数字
            End If
        Next
    Next
a = Array("水分:") ', "空干基挥发：", "硫：")
    For i = 2 To 10
   
        For Each aa In a  '遍历字符
            k = InStr(Cells(i, 1), aa) '如果包含字符，那么k的值大于0，否则等于0
            If k > 0 Then
                kk = Len(aa) + k '//返回第一个数字的位置
                Cells(i, 3) = Val(Mid(Cells(i, 1), kk, 99))  '读取数字
            End If
        Next
    Next
a = Array("硫:")
    For i = 2 To 10
   
        For Each aa In a  '遍历字符
            k = InStr(Cells(i, 1), aa) '如果包含字符，那么k的值大于0，否则等于0
            If k > 0 Then
                kk = Len(aa) + k '//返回第一个数字的位置
                Cells(i, 4) = Val(Mid(Cells(i, 1), kk, 99))  '读取数字
            End If
        Next
    Next
    a = Array("空干基挥发:")
    For i = 2 To 10
   
        For Each aa In a  '遍历字符
            k = InStr(Cells(i, 1), aa) '如果包含字符，那么k的值大于0，否则等于0
            If k > 0 Then
                kk = Len(aa) + k '//返回第一个数字的位置
                Cells(i, 5) = Val(Mid(Cells(i, 1), kk, 99))  '读取数字
            End If
        Next
    Next
End Sub
做出来指标了

高个子

kdsea 发表于 2023-2-22 12:20
Sub 按钮1_Click()
a = Array("低位") ', "水分：", "空干基挥发：", "硫：")
    For i = 2 To 10

日期可以用正则：\d+月\d+(号|日)，场地的正则是：(天|丰)，产品的正则和场地正则一样，把所有产品列出来就可以了