vba - 从相邻列中提取年份

Question

我有 4 列在使用 I (File_Date), J(File_Year), K(Resol_Date), L(Resol_Year) 到目前为止，我有以下代码不起作用..

Thisworkbook.Sheets(3).FormulaR1C1 = "=YEAR(RC[-1])"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",YEAR(RC[-1]))"
Range("J2").Select

日期已经给出，所以我所要做的就是从第 I 列到第 I 列，从第 K 列到第 L 列，从第 2 行到最后一行提取年份，这是由不同的程序预先确定的

Dim lastRow As Long
Dim rng As Range

Set rng = ThisWorkbook.Sheets(2).Cells

lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row

任何帮助将不胜感激

Answer 1

您是在寻找整个代码还是只是提取年份的语句？如果您将以下行集成到现有宏中，它应该可以工作。

activecell.value=Year(activecell.offset(0,-1).value)