Excel从A列找包含C列的数据，把C列对应D的数据填充给B

问题描述：

求助大神：我有四列数据ABCD，A是完整的数据，B是我要填充的数据，C是对比的部分数据，D是结果。如果A里包含完整的C，那么把C对应的D填充到B里。如下图：如果A列里前部分数据比对C里找到了对应项，就把对应的D里的名称填充到B列里对应的位置。

答

这个不难吧，那不是读取数据对比instr对比下，<>0就把d列数据写到b中，采纳了我帮你弄一个。。

答

F5运行下getCellBValue函数就可以了

Sub getCellBValue()
 
 
   rownum = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).row
  
 
   For i = 2 To rownum '±éÀúÊý¾ÝÐÐ
       a = ThisWorkbook.Sheets(1).Cells(i, "A")
       c = ThisWorkbook.Sheets(1).Cells(i, "c")
       If InStr(a, c) <> 0 Then
           ThisWorkbook.Sheets(1).Cells(i, "B") = ThisWorkbook.Sheets(1).Cells(i, "d")
       End If
       
   Next i
     
    
 
 
End Sub

Excel从A列找包含C列的数据，把C列对应D的数据填充给B

相关推荐