VBA / Excel-将列值与预定义集匹配
戈特
我遇到的情况是，我有一组预定义的值/代码，这些值/代码组合在一起会发出一些消息。我也有一个传入文件，我必须对代码进行分析，然后将集合与预定义值进行比较。问题在于传入的文件与我的库不完全匹配：
在我的库中，我有4列的集合，每一行都有其独特的含义。我想将其理解为字符串，以便进一步进行计算。问题在于传入的文件不一致。它不遵循预定义文件中的确切顺序。
I need to compare them regardless of sequence. After being matched I want to grab corresponding Meaning from Library and proceed working with Case in my file.
Any ideas how to implement it in VBA?
Zev Spitz
Offhand, you could create a VBA function that would return a string representing the unique values.
If there is some character that will never be in the values, you could delimit the values with that character (such as _):
Function GetUniqueValuesString(rng As Range) As String
Dim rngValues() As Variant
rngValues = rng.Value
' The following line requires a reference to Microsoft Scripting Runtime
' (via Tools -> References...)
Dim dict As New Scripting.Dictionary
'The function only parses the first row of the range
Dim i As Integer
For i = 1 To UBound(rngValues, 2)
dict(rngValues(1, i)) = 1 ' 1 here is a dummy value
Next
GetUniqueValuesString = Join(dict.Keys, "_")
End Function
(If every value is always the same number of characters, you could simply join them, without any delimiter.)
Using this function against a horizontal cell range:
=GetUniqeValuesString(A4:D4)
should return a string with only the unique values:
BGAA_TGHJ_WETY
If you apply this function to both the library rows and the file rows, you should be able to match on the function's returned value.
请注意，该函数具有一些可能需要解决的限制：
- 假定值的顺序将相同。换句话说，
BGAA，TGHJ，WETY将解析为一个不同的字符串比BGAA，WETY，TGHJ。 - 该函数仅连接第一行；其他行将被忽略。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
列求和 Excel VBA
- 2
使用索引和匹配 (Excel/VBA) 更新列的值
- 3
清除Excel VBA中的特定列集
- 4
类型不匹配：Excel VBA
- 5
类型不匹配Excel VBA
- 6
类型不匹配：Excel VBA
- 7
在 Excel VBA 中匹配相似
- 8
VBA Excel：用户定义的功能
- 9
Excel VBA对象定义的错误
- 10
EXCEL VBA - 定义子或函数
- 11
Excel VBA＃值！错误
- 12
从Excel将VBA插入Word
- 13
Excel VBA如何将值列附加到数组？
- 14
Excel VBA将值调用到公式
- 15
将Excel中的值导入VBA
- 16
Excel VBA选择多个列
- 17
使用列函数 - Excel VBA
- 18
Excel vba - 列选择错误
- 19
Excel中的VBA在列之间移动值
- 20
Excel公式或VBA搜索匹配值，找到的每个匹配值都移到新列
- 21
Excel将所有列与VBA合并
- 22
使用Excel VBA查找列匹配项并基于其他两个列的值合并
- 23
Excel VBA-索引和匹配VBA错误
- 24
Excel VBA - 查找匹配的列标题并删除该列
- 25
Excel VBA-遍历记录集
- 26
VBA & Excel - 循环记录集
- 27
＃N / A的Excel VBA类型不匹配
- 28
类型与数组不匹配：VBA Excel
- 29
Excel VBA：匹配单元格颜色
我来说两句