Formula 赋值的问题

yanhzs

tail.Offset(i).Formula = "=vlookup(A" & i + 2 & ",成果表1!R1C" & dh_col & ":R" & bottom.Row & "C" & sj_col & "," & sj_col - dh_col & ",0)"

宏里面的语句，最后在目标单元格里面的结果是：
=VLOOKUP('A3',成果表1!$J$1:$L$49,2,0)

为何A3有个单引号呢？

[ 本帖最后由 yanhzs 于 2010-9-10 11:36 编辑 ]

fsydw

我也总被单引号和双引号困扰！

请问大师！哪里有较为详细的、VBA中使用单双引号的教程？

谢谢！！！！！

northwolves

我这里显示正常。

xc-stone

A" & i + 2 & "是什么？不能是A& i + 2么？

lrlxxqxa

原帖由 xc-stone 于 2010-6-4 23:05 发表
A" & i + 2 & "是什么？不能是A& i + 2么？

为什么不是A" & i + 2 "

name004

1楼的问题中代码好像有问题

cflood

没发现有引号

yanhzs

已上传附件！（顶楼）
Sub Macro1()
    Dim dh_num, dh_col, sj_col As Integer
    Dim bottom As Range
    Dim tail As Range
    dh_col = Selection.Column
    sj_col = Selection.Column + Selection.Columns.Count - 1
    Set bottom = Range(Cells(65536, dh_col), Cells(65536, dh_col)).End(xlUp)
    Sheets("sheet1").Select
    Range("a1").Select
    dh_num = Range("a65536").End(xlUp).Row - 2
    Set tail = Range("iv2").End(xlToLeft).Offset(0, 1)
    tail.Formula = "=成果表1!R8C" & sj_col - 1
    tail.Select
    Selection.NumberFormatLocal = "yyyy-m-d"
    For i = 1 To dh_num
        tail.Offset(i).Formula = "=vlookup(A" & i + 2 & ",成果表1!R1C" & dh_col & ":R" & bottom.Row & "C" & sj_col & "," & sj_col - dh_col & ",0)"
    Next i
End Sub

[ 本帖最后由 yanhzs 于 2010-6-5 08:49 编辑 ]

yanhzs

来人啊，帮看看啊！

cflood

tail.Offset(i).Formula = "=vlookup(R" & i + 2 & "C1,成果表1!R1C" & dh_col & ":R" & bottom.Row & "C" & sj_col & "," & sj_col - dh_col & ",0)"