【一步一步学习VBA】在当前选中的单元格右边插入1,2,3

最新推荐文章于 2025-01-03 07:54:33 发布

原创最新推荐文章于 2025-01-03 07:54:33 发布 · 4.6k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#一步一步学习VBA #当前选中的单元格右边插入 #FormulaR1C1 #ActiveCell #独立开发者er

VBA 同时被 2 个专栏收录

15 篇文章

订阅专栏

一步一步学习VBA

15 篇文章

订阅专栏

本文介绍了一个使用VBA编写的宏示例，详细解析了如何利用FormulaR1C1属性来设定Excel单元格的公式，并解释了相对与绝对引用的区别。

Sub Macro1()
'
' Macro1 Macro
' 宏由 cq 录制，时间: 2016/08/02
'
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaR1C1 = "1"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaR1C1 = "2"
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FormulaR1C1 = "3"
ActiveCell.Offset(0, 1).Range("A1").Select

End Sub

解析：

1、ActiveCell.Offset(0, 1) 表示当前单元格的右边第一个单元格
2、Range("A1").Select 表示选择单元格或是单元格区域的第一个单元格，这里A1表示当前单元格，A2表示A1下方的一个单元格
3、 VBA之FormulaR1C1属性：FormulaR1C1是公式输入方法
有中括号是相对于选定单元格的相对偏移量，"-"为向左或向上偏移，正数为右或下偏移。
无中括号为相对于选定单元格的绝对偏移量，没有负数
"R"和"C"对应“行”和“列”
如：选定单元格为C8
R[-1]C[-1]为B7单元格，行列都-1，R[1]C[2]为E9单元格，行+1，列+2
R1C1代表A1单元格，R5C6代表F5单元格

例：C1单元格为"=A1+B1"
Range("C1").FormulaR1C1 = "=RC[-2]+RC[-1]"

例：C1单元格为"=A2+E3"
Range("C1").FormulaR1C1 = "=R[1]C[-2]+R[2]C[2]"

补充绝对引用
例：C1单元格为"=$A$2+$E$3"
Range("C1").FormulaR1C1 = "=R2C1+R3C5"

获取绝对单元格并且赋值（19行1列）：

Range("A19").Value = 1

Cells(19, 1).Value = 1