Возвращаемое текстовое значение из нескольких рабочих листов

Question

У меня есть книга с несколькими листами (около 30). каждый лист имеет другое сложное имя.

Я хочу вернуть значение ячейки B6 из каждого альтернативного листа (каждый из которых имеет суффикс «-a») в сводный лист.

как я могу это сделать?

благодарит заранее.

г

Answer 1

код Использование VBA не тестировалось:

Sub test() 
A = 1 
For each s in activeworkbook.sheets 
    If right(s.name, 2) = "-a" then 
     With Sheets("summary") 
      .cells(a, "a") = s.name 
      .cells(a, "b") = s.range("b6") 
     End with 
    End if 
Next 
End sub 

Для запуска правой кнопкой мыши на вкладке листа, вид кода, вставьте код и запустить из меню.

Чтобы запустить все, удалите заявление if.