有效判断填充问题请教

zzll15888

表一sheet1中有“特殊编号”、“要素1”、“要素2”、“要素3”；

表二sheet2中有“特殊编号前六位”、“要素3“;

请问：如何通过“特殊编号”与“特殊编号前六位”的有效判断识别后，一次性填充“要素3”内容至表一sheet1中，组

成表三sheet3的格式。

fjzjyan

按ALT+F11进入VBE界面分别将三个工作表代码名称(按F4从属性窗口设)设置为ws1、ws2、ws3，插入一个模块编写如下代码并将其加载到一个窗体控件即可。

Sub a()
Dim i As Integer
Dim j As Integer
ws1.[b2].CurrentRegion.Copy ws3.[b2]
For i = 3 To 8
For j = 3 To 8
If Trim(Left(ws3.Cells(j, 2), 6)) = Trim(ws2.Cells(i, 2)) Then

ws3.Cells(j, 2).Offset(0, 3) = ws2.Cells(i, 2).Offset(0, 1)
End If
Next j
Next i
End Sub