高手帮忙解读下

ccccom

Range("B120").Select
    Selection.Copy
    Sheets("chuli").Select
    Range("A2").Select
    ActiveSheet.Paste
     Range("B1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF('1111'!R[119]C[13]=2,DGET(shuju2!RC[-1]:R[3000]C,shuju2!RC,RC[-1]:R[1]C[-1]),DGET(shuju!RC[-1]:R[3000]C,shuju!RC,RC[-1]:R[1]C[-1]))"
    Range("B1").Select
    Selection.Copy
    Sheets("1111").Select
    Range("J120").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

→友の良杰←

Range("B120").Select
'选择B120单元格
    Selection.Copy
'复制选择单元格
    Sheets("chuli").Select
'选择名为chuli的sheet
    Range("A2").Select
'选择A2单元格
    ActiveSheet.Paste
'粘贴
     Range("B1").Select
'选择B1单元格
    Application.CutCopyMode = False
'设置禁止复制剪切
    ActiveCell.FormulaR1C1 = _
        "=IF('1111'!R[119]C[13]=2,DGET(shuju2!RC[-1]:R[3000]C,shuju2!RC,RC[-1]:R[1]C[-1]),DGET(shuju!RC[-1]:R[3000]C,shuju!RC,RC[-1]:R[1]C[-1]))"
'设置当前单元格的公式
'如果sheet 1111的r119c13单元格的值=2
'则从sheet shuju2的rc-1c3000区域中取唯一值
'否则从shuju!rc[-1]:r[3000]中取值
'注：DGET--从数据库中提取复核指定条件且唯一存在的记录
    Range("B1").Select
'选择B1单元格
    Selection.Copy
'复制选择项
    Sheets("1111").Select
'选择名为1111的sheet
    Range("J120").Select
'选择J120单元格
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
'粘贴为文本