取特殊文字找到对应位置将数据填入

sulli112 · 发表于 2021-8-8 00:07

如表中取数表中所示，取标蓝色（箭头所对的文字），基本都是“——”这个符号之后，“|”这个符号之前的文字，特别注意的是第二个箭头标的“模具款（6.5）”只取模具款这个词语，不取（）里面的数据，然后到“粘贴数据”表中A列的项目中，找到对应名字的项目，将“取数”表中B列的数据粘贴到“粘贴数据”的B列，如果“取数”表A列有的词语，而“粘贴数据”表中A列项目中没有的，直接在“取数”表中将没有引用的B列数据标黄，谢谢！

liuxi001 · 发表于 2021-8-8 00:37

列子.zip (10.49 KB, 下载次数: 26)

psxk3535 · 发表于 2021-8-8 00:47

如何确定唯一性

zldccmx · 发表于 2021-8-8 06:10

本帖最后由 zldccmx 于 2021-8-8 06:13 编辑

Sub zldccmx()
arr = [a5:C41]
For i = 1 To UBound(arr)
arr(i, 3) = Split(Split(Split(arr(i, 1), "- ")(1), "|")(0), "（")(0)
Next
[a5:C41] = arr
End Sub

wanao2008 · 发表于 2021-8-8 06:28

没使用什么特殊技巧，甚至连循环都用的常量固定数，
其实就是制作一个“费用统计表”
没完全按你的思路，
我把有的数据标了黄色，
把数据统计到了C列，
但愿能帮到你！

Sub byWanao()
Dim i%, j%, xmStr$
Sheet2.Range("C5:C33").ClearContents
For i = 5 To 33
      xmStr = Left(Sheet2.Cells(i, 1), 2)
      For j = 5 To 41
         If InStr(Sheet1.Cells(j, 1), xmStr) Then
            Sheet1.Cells(j, 2).Interior.ColorIndex = 6
            Sheet2.Cells(i, 3) = Sheet2.Cells(i, 3) + Sheet1.Cells(j, 2)
         End If
      Next
Next
End Sub

zldccmx · 发表于 2021-8-8 07:00

Sub zldccmx()
Dim Arr, Brr, F As Boolean, I&, J&
Arr = Sheets("取数").[a1:B41]: Brr = Sheets("数据粘贴").[A1:C34]
For I = 1 To UBound(Arr)
F = False
If InStr(Arr(I, 1), "|") Then
Arr(I, 1) = Split(Split(Split(Arr(I, 1), "- ")(1), "|")(0), "（")(0)
For J = 1 To UBound(Brr)
If Arr(I, 1) = Brr(J, 1) Then
F = True: Exit For
Else
F = False
End If
Next
If F Then
Brr(J, UBound(Brr, 2)) = Arr(I, 2)
Else
Sheets("取数").Cells(I, 2).Interior.Color = vbYellow
End If
End If
Next
Sheets("数据粘贴").[A1:C34] = Brr
End Sub

复制代码

zldccmx · 发表于 2021-8-8 07:01

sulli112 · 发表于 2021-8-8 11:53

liuxi001 发表于 2021-8-8 00:37

你这个有时候挺好用的，但是数据会有一些不对，但是还是很感谢，谢谢

liuxi001 · 发表于 2021-8-8 11:55

sulli112 发表于 2021-8-8 11:53
你这个有时候挺好用的，但是数据会有一些不对，但是还是很感谢，谢谢

把2表关键字提取出来Vlookup匹配就唯一了。

ggmmlol · 发表于 2021-8-8 12:19

=SUMIF(取数!$A$5:$A$41,"*"&A5&"*",取数!$B$5:$B$41)

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

取特殊文字找到对应位置将数据填入

评分

评分

评分

评分