一个关于VBA的小问题，希望不吝赐教！

Question

十万火急的问题，知道者请多指教，谢谢了先！问题如下：1.有一个Excel工作薄，内有两张工作表(worksheet)，第一张为数据表(sheet1)，第二张为参考对照表(sheet2)。2.sheet1内有两列数据，第一列为“分类”，未填充；第二列为“编号”，已填充。3.sheet2内有两列数据，第一列为“分类”，第二列为“编号”，两列数据均以填充完毕用于进行对照。4.sheet2中的“分类”数据内容只包含“A”、“B”、“C”3种，而“编号”数据内容包含300余种，但全部唯一，即每个“分类”对应几十个“编号”。5.sheet1中“编号”数据内容包含600余种，无序且不唯一，但每一个“编号”都可以在sheet2中查询到。现在想问：如何根据sheet2中的对照内容，通过一个宏功能实现将sheet1中空白的“分类”内容全部自动填充。不知道问题叙述清楚了没？希望多指教！谢谢！^_^

Answer 1

这样：Sub 宏1()
'
' 宏1 Macro
' lsf 记录的宏 2004-6-28
''
   Dim I As Long
   a = Sheets("sheet1").[b1].CurrentRegion.Rows.Count
   For I = 2 To a
   x = Application.WorksheetFunction.Match(Sheet1.Cells(I, "b"), [Sheet2].Columns("b"), 0)
   Sheet1.Cells(I, "a") = Sheet2.Cells(x, "A")
   Next
End Sub