Question

我在这里面临一个问题。

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.过滤后，我想用公式填充这些单元格。这是我的公式上的任何问题，它可以执行，但不能像我期望的那样工作。而这些代码虽然与宏相同。但是当它运行时，数据行显示的不像我用宏记录的那样。

Answer 1

您正在设置.FormulaR1C1属性，该属性要求公式使用R1C1表示法，而字符串是以正常的A1表示法编写的，因此您应该设置.Formula属性。

自动过滤器写入编码不像宏中记录的那样

1 个答案: