Присвоение значения формулы ячейке

Question

У меня есть диаграмма данных со многими продуктами.

Я хочу фильтровать каждый тип продукта, рассчитать общее количество этого типа, а также количество продуктов внутри этого типа. И, наконец, введите значение этой функции в колонку в Листе 2.

Вот код. Колонка величины столбец U. Он получает ошибка 1004: Аргумент не обязательно, и это подчеркивает Set .... = FunctionR1C1 = .... часть

Function T_Quantity() 
    ActiveSheet.Range("U").Select 
    Total = FunctionR1C1 = "=subtotal(9,C[0])" 
End Function 

Function T_Count(ref_column) 
    ActiveSheet.Range("U").Select 
    Total = FunctionR1C1 = "=subtotal(2,C[0])" 
End Function 

Sub Total_Count() 
Dim my_array() As String 
Dim iLoop As Integer 
Dim iCount As Integer 

iCount = 1 
ReDim my_array(3) 

my_array(0) = "=M1747B" 
my_array(1) = "=M1747C" 
my_array(2) = "=M1766B" 

For iLoop = LBound(my_array) To UBound(my_array) 

    ActiveSheet.Range("A:BB").Select 

    Selection.AutoFilter Field:=15, Criteria1:=my_array 
    Application.CutCopyMode = False 

    'Calculate the quantity and no of lot, put in colum A,B in sheet 2' 
    Set Worksheets("Sheet2").Cells(iCount, 1) = T_Quantity() 
    Set Worksheets("Sheet2").Cells(iCount, 2) = T_Count() 
    Application.CutCopyMode = False 

    iCount = iCount + 1 

Next iLoop 

End Sub 

Answer 1

Давайте начнем с этого и посмотреть, если это получает вас любой ближе к желаемым результатам:

Sub Total_Count() 
Dim my_array() As String 
Dim iLoop As Integer 
Dim iCount As Integer 

iCount = 1 

ReDim my_array(3) 
my_array(0) = "=M1747B" 
my_array(1) = "=M1747C" 
my_array(2) = "=M1766B" 

For iLoop = LBound(my_array) To UBound(my_array) 
    ActiveSheet.Range("A:BB").Select 
    Selection.AutoFilter Field:=15, Criteria1:=my_array 
    Application.CutCopyMode = False 

    'Calculate the quantity and no of lot, put in colum A,B in sheet 2' 
    Worksheets("Sheet2").Cells(iCount, 1).FormulaR1C1 = "=subtotal(9,C[0])" 
    Worksheets("Sheet2").Cells(iCount, 2).FormulaR1C1 = "=subtotal(2,C[0])" 
    Application.CutCopyMode = False 
    iCount = iCount + 1 

Next iLoop 

End Sub 

Что изменилось:

• Устранить Set ключевое слово при работе с клеточными объектами на рабочем листе. Set используется для назначения переменных объекта.
• Так как функции, которые вы вызываете, просто устанавливают свойство ячейки FormulaR1C1, я добавляю свойство .FormulaR1C1 к этим строкам, а затем вместо использования Function я просто помещаю нотацию функции R1C1 непосредственно в эту подпрограмму.