Извлечь название листа и критерии из функции COUNTIF в excel

Question

Привет У меня есть формула COUNTIF: RawData_Chq!G2:G5000,"*ICS*" . Используя VBA, я хотел бы иметь возможность извлечь имя листа: RawData_Chq в 1 строке и критерии ICS в другом. Как я должен это делать?

Dim formula_extract As String 
Dim CI_Name As String 
Dim ButtonName As String 
Dim CI_Extract As String 
Dim Sheet_Extract As String 
Dim Split_Formula() As String 
ButtonName = Application.Caller 
Set b = ActiveSheet.Buttons(ButtonName) 
    r = b.TopLeftCell.Row 
    CI_Name = Cells(r, 2).Value 
formula_extract = Cells(r, 3).Formula 
Split_Formula = Split(formula_extract, ",") 

Sheet_Extract = Left(Split_Formula(0), InStr("!", Split_Formula(0))) 
CI_Extract = Split_Formula(1) 

Answer 1

Это должно сделать это, я думаю, это просто вопрос разделения формулы в ее отдельных элементов, а затем разбор тех, чтобы удалить ненужные данные:

CI_Name = Cells(r, 2).Value 
formula_extract = [A1].Formula 
Split_Formula = Split(formula_extract, ",") 

Dim functionString As String 
'Use this later to get rid of these characters with the sheet_extract 
functionString = "=COUNTIF(" 

'The worksheet name: 
Sheet_Extract = Left(Split_Formula(0), InStr(Split_Formula(0), "!") - 1) 
Sheet_Extract = Replace(Sheet_Extract, functionString, vbNullString) 

'The criteria: 
CI_Extract = Split_Formula(1)