有没有一个公式或者宏，是可以快速知道一列数据中的其中的单元格包含的数值或者字...

mind1238

有没有一个公式或者宏，是可以快速知道一列数据中的其中的单元格包含的数值或者字母后，快速得出对应的数据

清风竹-

Sub 整理数据()
Dim m%
   m = [a65536].End(3).Row - 1
   arr = Range("a2:a" & m + 1)
   ReDim arr1(1 To m, 1 To 1)
      For i = 1 To m
          If Mid(arr(i, 1), 4, 1) = 1 Then
              arr1(i, 1) = "单"
          End If

          If Mid(arr(i, 1), 4, 1) = 2 Then
              arr1(i, 1) = "双"
          End If

          If Mid(arr(i, 1), 4, 1) = 3 Then
              arr1(i, 1) = "三"
           End If

           If Mid(arr(i, 1), 3, 1) = "C" Then
              arr1(i, 1) = "无机石"
           End If

          If Mid(arr(i, 1), 3, 1) = "Y" Then
              arr1(i, 1) = "石英"
           End If

          For j = 4 To Len(arr(i, 1))
              If Mid(arr(i, 1), j, 1) = "Y" Or Mid(arr(i, 1), j, 1) = "S" Then
                 arr1(i, 1) = "元素"
              End If

              If Mid(arr(i, 1), j, 1) = "A" Or Mid(arr(i, 1), j, 1) = "B" Then
                 arr1(i, 1) = "特"
              End If
          Next
     Next
    [b2].Resize(m, 1) = arr1
End Sub

719404338

把3、三，1、单，2、双，C、无机石，Y、石英，A、特，B、特，Y、元素，S、元素写入【d1:e9】单元格

1. Sub t()
   
2. Dim d, i%
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = [d1:e9]
   
5. For i = 1 To UBound(arr)
   
6. d("" & arr(i, 1)) = arr(i, 2)
   
7. Next i
   
8. arr = [a2:a25]
   
9. For i = 1 To UBound(arr)
   
10. Range("c" & i + 1) = d(Mid(arr(i, 1), 4, 1))
    
11. If d(Mid(arr(i, 1), 4, 1)) = "" Then Range("c" & i + 1) = d((Mid(arr(i, 1), 3, 1)))
    
12. Next
    
13. End Sub

复制代码

蓝桥玄霜

请见代码。
大写字母“LE后的第一位的数字是Y就代表：石英与后面一个条件有冲突。

mind1238

蓝桥玄霜 发表于 2018-9-22 15:09
请见代码。
大写字母“LE后的第一位的数字是Y就代表：石英与后面一个条件有冲突。

代码是图片？

zhiweini5

蓝桥玄霜 发表于 2018-9-22 15:09
请见代码。
大写字母“LE后的第一位的数字是Y就代表：石英与后面一个条件有冲突。

版主你好  可以帮忙看下这个 哪里出错了么？谢谢

http://club.excelhome.net/thread-1437224-1-1.html

mind1238

蓝桥玄霜 发表于 2018-9-22 15:09
请见代码。
大写字母“LE后的第一位的数字是Y就代表：石英与后面一个条件有冲突。

如果这个条件冲突的话，那可以改成"LE"后的数值里包含“Y或S“的就是元素

mind1238

清风竹- 发表于 2018-9-22 15:36
Sub 整理数据()
Dim m%
   m = [a65536].End(3).Row - 1

大神好厉害阿
我刚刚验证了一下，好像就是这样的。
我看到有一个条件好像冲突了
就是”大写字母“LE后的第一位的数字是C就代表：无机石“
如果其实一个数值是LEC1151A的话，出现的数据是”特“的
是不是其中一个条件没设置好
请指导，非常感谢你的喔

mind1238

719404338 发表于 2018-9-22 15:42
把3、三，1、单，2、双，C、无机石，Y、石英，A、特，B、特，Y、元素，S、元素写入【d1:e9】单元格

这个不 是很理解，能不能上传一下文档

719404338

mind1238 发表于 2018-9-22 15:51
这个不 是很理解，能不能上传一下文档

可以快速知道一列数据中的其中的单元格包含的数值或者字母后，快速得出对应的数据.rar (15.34 KB, 下载次数: 3)

2018-9-22 15:54 上传

点击文件名下载附件