=VLOOKUP(B2,K:L,2,0)‘这是帮表的函数，和列。

我套用你教的语句如下：_

Sub 绑表()

Columns("C:C").Select

Selection.Insert Shift:=xlToRight

'以上代码为插入整列

Range("C1") = "数量" 'C可以改变位置

Cells.Select

Selection.NumberFormatLocal = "G/通用格式"

Dim LastRow As Long, Counter As Integer

With ActiveSheet 'ActiveSheet表示活动工作表

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

End With

Range("C2").Select 'C可以改变位置

For Counter = 2 To LastRow

If Range("C2") = "" Then 'C可以改变位置

ActiveCell.FormulaR1C1 = _

"=VLOOKUP(RC[-1],C[8]:C[9],2,0)"

'修改商品编码和批号的位置R=Row=行C = Column = 列,$B$2要改成$I$2,R2C2要改成R2C9

End If

Range("C2").Copy 'J可以改变位置

Cells(Counter, 3).Select '“3”是确定求和列在表格的第3列

ActiveSheet.Paste

Next Counter

Columns("C:C").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("C2").Select

'以上为去除公式代码“ActiveCell.FormulaR1C1 = _”去除后才能改变商品编码和批号的位置

End Sub

我想先锁定B列和K列内容一致为一个商品，再将L列的数量绑定到C列当中。