是否有方法在Excel列中添加与不匹配数据计数对应的行？

我在一个工作簿中有两个列表，对应的数据格式不一致

当我在一列中遇到不匹配时，我需要添加行（对于重复项存在的数量，仅在部分工作表中添加行），然后复制并粘贴该数据，直到下一项

我正在尝试做的事。

---

向下扫描工作表，记住最后一行的列匹配，以填充缺少的值

选项显式
子对齐（）
将wb设置为工作簿，ws设置为工作表
暗淡单元格作为范围
暗淡的iLastRow一样长，iRowE一样长，iRowMatch一样长
设置wb=ThisWorkbook
设置ws=wb.Sheets（“Sheet1”）
iLastRow=ws.Range（“A”&Rows.Count）.End（xlUp）.Row
iRowE=3
对于ws.Range中的每个单元格（“A3:A”和iLastRow）
'Debug.Print cell.Address
"原封不动"
调整单元格大小（1，3）。将单元格偏移量（0，10）“ABC”复制到KLM
单元格。复制单元格。偏移量（0，14）'A到0
单元格偏移量（0，1）。调整大小（1，2）。将单元格偏移量（0，16）BC复制到QR
如果ws.Cells（iRowE，“E”）=cell.Value，则
iRowMatch=iRowE
Irowee=Irowee+1
如果结束
'复制匹配行
如果iRowMatch>0，则
ws.Cells（iRowMatch，“F”）。将cell.Offset（0，15）F复制到P
其他的
MsgBox“没有初始匹配”&单元格值，vbCritical
如果结束
下一个
MsgBox“完成”
端接头