Excel VBA重复查找和replace/从表/

我试图使用VBA在Excel中创build一个macros，它应该将诸如“YU-RN-PE-LT-JW-MN”等一串行string转换为其他的“L3,N6,W2,P9,V7,F2” （破折号也应成为逗号），按照任意一列指定“YU” ，另一列指定“L3” 。

正常search和查找的复杂性，以及使正常的Vlookup不足的重复查找。

将不胜感激任何帮助。 另外请注意，在尝试构build这个macros之前，我从未使用VBA，所以假设我什么都不知道。

Answer 1

以下是一些示例代码，可以完成您要完成的任务。

 Sub multi_replace() Dim inArr, subArr, temp As Variant Dim outArr() As String inArr = Sheets(1).UsedRange.Value 'Replace with correct range here and below subArr = Sheets(2).UsedRange.Value ReDim outArr(1 To UBound(inArr, 1), 1 To UBound(inArr, 2)) For x = 1 To UBound(inArr, 1) For y = 1 To UBound(inArr, 2) temp = Split(inArr(x, y), "-") For i = 0 To UBound(temp) For j = 1 To UBound(subArr, 1) If temp(i) = subArr(j, 1) Then temp(i) = subArr(j, 2) Exit For End If Next j Next i outArr(x, y) = Join(temp, ",") Next y Next x With Sheets.Add .Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2)).Value = outArr .Columns.AutoFit End With End Sub