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

excelperfect

引言：本文整理自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属性的使用。