请教大神，将表格内容批量替换成对应列的内容

Yuki1221

nie414006

模拟个结果

will.cai

分列替换，然后再合并，可以吗？

00JTR00

1. Sub BatchReplaceContent()
   
2.     Dim ws As Worksheet
   
3.     Dim cell As Range
   
4.     Dim i As Long
   
5. 
   
6.     ' 设置工作表
   
7.     Set ws = ThisWorkbook.Sheets("Sheet2") ' 根据工作表名称调整
   
8. 
   
9.     ' 遍历 F 列的每个单元格
   
10.     For Each cell In ws.Range("F6:F" & ws.Cells(ws.Rows.Count, "F").End(xlUp).Row)
    
11.         ' 遍历 J 列的替换值
    
12.         For i = 6 To ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
13.             cell.Value = Replace(cell.Value, ws.Cells(i, "I").Value, ws.Cells(i, "J").Value)
    
14.         Next i
    
15.     Next cell
    
16. 
    
17.     MsgBox "替换完成！", vbInformation
    
18. End Sub
    
19. 
    

复制代码