问与答113：如何定位到指定的列并插入公式到最后一行？

引言：本文整理自vbaexpress.com论坛，供有兴趣的朋友学习参考。

Q：我有多个工作表，每个工作表中都有一个Date列，但其位置都不相同，如下图1至图3所示。

图1

图2

图3

我想在该列右侧插入4列，将该列日期拆分成Month、Day、Year和New Date列。例如，对上图1所示的工作表，拆分成如下图4所示。

图4

如何定位到Date列，然后在其右侧插入4列，并使用公式在各列输入相应的内容？

A：可以使用一段简单的代码，如下：

Sub WHATIWANTITTODO()

Dim r As Range

Set r = Cells.Find("Date")

r.Offset(, 1).Resize(,4).EntireColumn.Insert

r.Offset(, 1).Resize(, 4) =Array("Month", "Day", "Year", "NewDate")

Set r = Range(r.Offset(1), r.End(xlDown))

r.Offset(, 1).FormulaR1C1 ="=MONTH(RC[-1])"

r.Offset(, 2).FormulaR1C1 ="=DAY(RC[-2])"

r.Offset(, 3).FormulaR1C1 ="=YEAR(RC[-3])"

r.Offset(, 4).FormulaR1C1 ="=RC[-3]&""/""&RC[-2]&""/""&RC[-1]"

r.Offset(, 1).Resize(, 4).NumberFormat ="General"

End Sub

分别使每个工作表成为当前工作表，然后运行WHATIWANTITTODO过程。

小结：

1. 代码使用Find方法在工作表中查找内容为“Date”的单元格。

2. 在该单元格右侧插入4列。

3. 使用Array函数分别在每列的开头输入相应的内容。

4. 使用RC样式输入公式。

5. 初学者注意体会Resize属性、Offset属性的使用。