这个和你在工作表中的公式基本一样，工作表中怎么写，VBA中就这么写啊，你只需要将工作表的公式样式设为R1C1，然后将工作表的公式复制进去就可以了。
1Sheets(1).Range("B1:B10").FormulaR1C1 = "=VLOOKUP(RC[-1],表2!R1C1:R10C2,2,FALSE)"
亲，R1C1的引用样式相对于A1的样式好处在于具有相同的公式单元格内公式的字符都是一模一样的，这对于VBA来写公式时是非常方便的的。举个例子，你在B1中输入=A1,拉到B10时，从B2到B10就是=A2, =A3 , … , =A10. 如果用VBA来写的公式而又用A1样式的话，岂不是要对每个单元格不同处理，会很麻烦，换做R1C1样式的话，B1：B10中的公式都是=RC[-1], 一次就可以处理了：
Sheets(1).Range("B1:B10").FormulaR1C1 = "=RC[-1]"
[-1]代表相对与公式所在位置向左偏移1列，而公式的位置即为Sheets(1).Range("B1:B10")，你写公式的时候就指明了，所以无需”在代码中使用.FoumulaR1C1语句前，一定要选中某一个单元格“。
请仔细理解R1C1样式！
网友评论