在编码中自动filter写入function不像macros中logging的那样

我在这里面临一个问题。

formula = "=CONCATENATE(""ML"",MID(cell(C),2,1),MID(cell(C),4,5),""M"",RIGHT(cell(C),2),""_"",LEFT(D52,1),""_Q"")" ActiveSheet.Range("$H$2:$H$1048576").AutoFilter Field:=8, Criteria1:="=SAMP" 'exclude the header Range("A1").Select ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = formula 'Range("A2").AutoFill Destination:=Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Selection.FillDown 

我试图用这个编码过滤我的列H. 过滤后,我想用公式填写这些单元格。 那是我的公式在那里的任何问题,它可以执行,但不像我所期望的那样工作。 而这个代码虽然是像macros一样的。 但是当它运行时,数据行显示不像我用macroslogging一样。

您正在设置.FormulaR1C1属性,期望公式使用R1C1表示法,而string是写入正常的A1表示法,因此您应该设置.Formula属性。