Reemplazo por lotes EXCEL, diferentes datos corresponden al mismo valor.

Este tipo de reemplazo es difícil de lograr con funciones ordinarias. Debe realizarse con VBA, usando un diccionario y reemplazando funciones de caracteres. El código es muy simple y se ve así:

Sub Reemplazo()

Dim Dic como Variante

n = Cell(Row.Count, 2). final (xlArriba). fila

set Dic = CreateObject("Scripting. Dictionary")

Para i = 2 an

Dic(cell(i, 2). value) (China)

entonces

arr = Dic.keys

n = cell(row.count, 1) end(xlUp)

. Para i = 2 a n

Para j = 0 al límite inferior(arr)

Si se aplica IsError(application find(arr(j), Cells() i,1) ) = Falso Entonces

cell(i,"a") = application.matter(cell(i,1),array(j),"china")

Exportar a

Finalizar si...

Entonces

Entonces

Finalizar ajuste