将范围的公式结果复制到另一个工作表
此公式驻留在一张纸上，从同一张纸上的另一列中提取值。
sFRM = "=IF(ISNUMBER(SEARCH('IAV',RC[-2])),MID(RC[-2],FIND('IAV',RC[-2])+6,11),'')" With Sheets("sheet2") Set rngOfFindings = .Range(.Range("m2"), .Range("m2").End(xlDown)) lr = .Cells(Rows.Count, "A").End(xlUp).Row .Range("o2:o" & lr).FormulaR1C1 = Replace(sFRM, Chr(39), Chr(34)) End With 我想复制“公式结果”值的范围，到目前为止我还没有得到正确的说法。 这是我的; 其结果复制公式本身。
With Sheets("sheet2") Set RangeToCopy = Sheets("sheet2").Range("o2", ColumnLetterNumber) End With CurrentWorkbook.Worksheets("sheet2").Select 'copy this range to sheet1 for more processing RangeToCopy.AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Sheets("sheet1").Range("g1"), Unique:=True
您需要使用.PasteSpecial粘贴这些值，否则，您将会看到公式。