編寫自動過濾器不像記錄在宏中那樣起作用

我在這裏面臨一個問題。編寫自動過濾器不像記錄在宏中那樣起作用

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與這種編碼。過濾後，我想用公式填充這些單元格。那裏是我的公式的任何問題，它可以執行，但不像我所期望的那樣工作。而這個代碼雖然和宏一樣。但是當它運行時，數據行顯示不像我用宏記錄的那樣。

來源

2013-04-23 user2310037

試着改變這一行：'ActiveCell.FormulaR1C1 = formula' into'ActiveCell.Formula = formula'。我希望'配方'作爲一個字符串工作正常 - 我沒有檢查它... – 2013-04-23 09:52:18

您正在設置.FormulaR1C1屬性，該屬性需要公式使用R1C1表示法，而字符串使用正常的A1表示法編寫，因此您應該設置.Formula屬性。

來源

2013-04-24 01:41:41

編寫自動過濾器不像記錄在宏中那樣起作用

回答

相關問題