Сравнение и копирование из определенных листов книги excel

@Irv1n · Регистрация: 12.11.2015

Author24 — интернет-сервис помощи студентам

Добрый день!

Помогите решить такую задачку: Есть книга в excel, в ней генерируются листы: x_budget и x_А; y_budget и y_А; z_budget и z_А, и так далее. То есть начало листа перед "_" меняется. Необходимо найти все листы с одинаковым началом и из листа x_budget и x_А вставить определенные ячейки на новый лист.

Думаю понятно объяснил. Спасибо.

@Hugo121 · 12.11.2015, 09:33

Непонятно объяснили. Что куда вставлять?

Другие листы с "_" в имени будут?

@Irv1n · 12.11.2015, 09:42 **[ТС]**

Сообщение от Hugo121

Непонятно объяснили. Что куда вставлять?
Другие листы с "_" в имени будут?

Меняется название x, y, z (тоесть вместо их может быть вкладка "деньги_budget" и "деньги_А", "сотрудники_budget", "сотрудники_А" и так далее. Теперь нужно найти листы с одинаковым названием перед _budget и _А, затем значение ячейки B2 из _budget вставить на новый лист в B3 и значение ячейки B2 из _А вставить на новый лист в B4.

@Hugo121 · 12.11.2015, 10:41

"деньги_завтра" и "стулья_вечером" не будут с парами?
Хорошо, поступила новая инфа про "нужно найти листы с одинаковым названием перед _budget и _А" - круг сужается.
Теперь скажите - новые листы нужны для каждой возможной пары, или один на все? Если один - куда вставлять?
И когда будет пример файла с листами и данными - может кто начнёт писать код

Хотя кто может и так начнёт...

Добавлено через 13 минут
Вариант алгоритма - цикл по листам - если лист like "*_budget", то смотрим нет ли пары - если есть работаем.

@Irv1n · 12.11.2015, 10:48 **[ТС]**

Сообщение от Hugo121

"деньги_завтра" и "стулья_вечером" не будут с парами?

нет, не будут

Сообщение от Hugo121

Теперь скажите - новые листы нужны для каждой возможной пары, или один на все? Если один - куда вставлять?

нет, всё поместить на один лист.

@Hugo121 · 12.11.2015, 11:40

Сообщение от Irv1n

Если один - куда вставлять?

Будем спрашивать по одному вопросу в одном сообщении...

@Irv1n · 12.11.2015, 12:17 **[ТС]**

Сообщение от Hugo121

Будем спрашивать по одному вопросу в одном сообщении...

Вставлять в один лист, без разницы куда, я сам, если что подправлю ячейки.

@Hugo121 · 12.11.2015, 12:24

Сообщение от Irv1n

без разницы куда,

- значит можно всё лепить в B2 и B3... Хорошо, тем проще для программиста

@Irv1n · 12.11.2015, 12:27 **[ТС]**

Сообщение от Hugo121

- значит можно всё лепить в B2 и B3... Хорошо, тем проще для программиста

Ну тоесть первое совпадение в B2 и B3, следующее в С2 и С3, и тд...

@Hugo121 · 12.11.2015, 14:35

Visual Basic

Option Explicit
 
Sub tt()
Dim wb As Workbook, sh As Worksheet, i As Long
Set wb = ActiveWorkbook
 
Application.ScreenUpdating = False
 
With wb
For Each sh In .Worksheets
If sh.Name Like "*_budget" Then
If Sh_Exist(Replace(sh.Name, "_budget", "_А"), wb) Then
 
If i = 0 Then .Sheets.Add After:=.Sheets(.Sheets.Count)
i = i + 1
With .Sheets(.Sheets.Count)
.Cells(2, i + 1) = sh.Cells(2, 2)
.Cells(3, i + 1) = wb.Sheets(Replace(sh.Name, "_budget", "_А")).Cells(2, 2)
End With
End If
End If
 
Next
End With
 
Application.ScreenUpdating = True
 
End Sub
 
 
'Функция обязательно должна присутствовать в модуле
'проверяем наличие листа
Function Sh_Exist(sName As String, wb As Object)
Dim wsSh As Worksheet
On Error Resume Next
Set wsSh = wb.Sheets(sName)
Sh_Exist = Not wsSh Is Nothing
End Function

@Irv1n · 12.11.2015, 15:59 **[ТС]**

К сожалению не работает, смотрите, я прикладываю файл, в нем 7 вкладок:
1 aaa_budget
2 aaa_A
3 bbb_budget
4 bbb_A
5 ccc_budget
6 ccc_A
7 результат
в каждом из этих листов есть цифры (на листе aaa_budget - цифры 1 и 2, на листе aaa_A - цифры 3 и 4 итд по листам)
из этих листов цифры 1234 поместить в ячейки A1 B1 C1 D1 листа Результат, далее из следующих вкладок (bbb_budget и bbb_A) цифры 3456 поместить в ячейки A2 B2 C2 D2 и так далее....
https://yadi.sk/i/7gZ_HMFBkQeFA

@Hugo121 · 12.11.2015, 16:47

1. Разберитесь со своими кодировками-раскладками - я писал код точно по ТЗ, для символа "А" (скопировал первое упоминание из поста).
2. Искать числа по всему листу тоже никто не просил - было конкретно сказано
"значение ячейки B2 из _budget вставить на новый лист в B3 и значение ячейки B2 из _А вставить на новый лист в B4"
"первое совпадение в B2 и B3, следующее в С2 и С3, и тд..."
А если задание ставите так как сейчас - то может кто другой и напишет копирование двух единственных значений с этих листов, но не я (потому что уверен это не финиш...).
Или давайте полный список всех листов с позициями/адресами этих значений на каждом - только следите за символами! Будет завтра время - что-нибудь напишу...

@Irv1n · 15.11.2015, 13:47 **[ТС]**

во вложении я вставил документ в котором привел описание и вид как все нужно представить, готов немного пожертвовать, тому кто сделает. Спасибо.

@Hugo121 · 15.11.2015, 14:39

Я уже ту первую задачу полностью сделал - про то, что юзеры будут косячить с именами листов речи не было, и выводить результаты оговаривалось вправо, а не вниз. И эти "определённые" в первой задаче ячейки тоже аккуратно собрал.
Можно конечно переделать под новую задачу - но так и нет ясности что за и кем и когда "определённые" ячейки. Да и многократно переделывать код даже за маленькое пожертвование охоты нет - распишите всё конкретно.
Прочитал 2 раза docx - конкретики не нашёл. Может она там и есть, но я не нашёл где

@Irv1n · 15.11.2015, 14:41 **[ТС]**

Не знаю как по другому сказать, может вы спрашивайте, что неясно, буду уточнять. Спасибо.

@Hugo121 · 15.11.2015, 17:59

Хорошо.
Вот в примере который был в https://yadi.sk/i/7gZ_HMFBkQeFA из каждого листа нужно было копировать разные ячейки. Как понять что именно нужно копировать?
Конечно если на этих листах произвольно раскиданы всегда только две ячейки с данными - вопрос почти снимается, скажите только в каком порядке их копировать. Но всё равно пока не понятно куда копировать с каких листов - покажите ещё один пример с заполненным результатом, может будет чуть понятнее.
Но сегодня скорее всего ничего Вам делать не буду, есть всякие разные другие дела.

@Irv1n · 15.11.2015, 20:58 **[ТС]**

Во вложении привел конкретный пример файла эксель таблицы со всеми формулами, которые приведены на листе 1x_Protocol и там же комментарии.

@Hugo121 · 15.11.2015, 21:10

Сообщение от Hugo121

скажите только в каком порядке их копировать.

Сообщение от Hugo121

покажите ещё один пример с заполненным результатом

Покажите где в файле ответ на эти вопросы - некогда искать.

@Irv1n · 15.11.2015, 21:14 **[ТС]**

Сообщение от Hugo121

Покажите где в файле ответ на эти вопросы - некогда искать.

в файле на листе 1x_Protocol уже готовые таблицы их нужно сделать в таком же виде, там есть все формулы откуда копировать...

@Hugo121 · 15.11.2015, 21:18

Нет там никаких протоколов.

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	15.11.2015, 21:14 [ТС]	19
	Сообщение от Hugo121 Покажите где в файле ответ на эти вопросы - некогда искать. в файле на листе 1x_Protocol уже готовые таблицы их нужно сделать в таком же виде, там есть все формулы откуда копировать... 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	12.11.2015, 09:33	2
	Непонятно объяснили. Что куда вставлять? Другие листы с "_" в имени будут? 0

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	12.11.2015, 09:42 [ТС]	3
	Сообщение от Hugo121 Непонятно объяснили. Что куда вставлять? Другие листы с "_" в имени будут? Меняется название x, y, z (тоесть вместо их может быть вкладка "деньги_budget" и "деньги_А", "сотрудники_budget", "сотрудники_А" и так далее. Теперь нужно найти листы с одинаковым названием перед _budget и _А, затем значение ячейки B2 из _budget вставить на новый лист в B3 и значение ячейки B2 из _А вставить на новый лист в B4. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	12.11.2015, 10:41	4
	"деньги_завтра" и "стулья_вечером" не будут с парами? Хорошо, поступила новая инфа про "нужно найти листы с одинаковым названием перед _budget и _А" - круг сужается. Теперь скажите - новые листы нужны для каждой возможной пары, или один на все? Если один - куда вставлять? И когда будет пример файла с листами и данными - может кто начнёт писать код Хотя кто может и так начнёт... Добавлено через 13 минут Вариант алгоритма - цикл по листам - если лист like "*_budget", то смотрим нет ли пары - если есть работаем. 0

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	12.11.2015, 10:48 [ТС]	5
	Сообщение от Hugo121 "деньги_завтра" и "стулья_вечером" не будут с парами? нет, не будут Сообщение от Hugo121 Теперь скажите - новые листы нужны для каждой возможной пары, или один на все? Если один - куда вставлять? нет, всё поместить на один лист. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	12.11.2015, 11:40	6
	Сообщение от Irv1n Если один - куда вставлять? Будем спрашивать по одному вопросу в одном сообщении... 0

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	12.11.2015, 12:17 [ТС]	7
	Сообщение от Hugo121 Будем спрашивать по одному вопросу в одном сообщении... Вставлять в один лист, без разницы куда, я сам, если что подправлю ячейки. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	12.11.2015, 12:24	8
	Сообщение от Irv1n без разницы куда, - значит можно всё лепить в B2 и B3... Хорошо, тем проще для программиста 0

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	12.11.2015, 12:27 [ТС]	9
	Сообщение от Hugo121 - значит можно всё лепить в B2 и B3... Хорошо, тем проще для программиста Ну тоесть первое совпадение в B2 и B3, следующее в С2 и С3, и тд... 0

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	12.11.2015, 15:59 [ТС]	11
	К сожалению не работает, смотрите, я прикладываю файл, в нем 7 вкладок: 1 aaa_budget 2 aaa_A 3 bbb_budget 4 bbb_A 5 ccc_budget 6 ccc_A 7 результат в каждом из этих листов есть цифры (на листе aaa_budget - цифры 1 и 2, на листе aaa_A - цифры 3 и 4 итд по листам) из этих листов цифры 1234 поместить в ячейки A1 B1 C1 D1 листа Результат, далее из следующих вкладок (bbb_budget и bbb_A) цифры 3456 поместить в ячейки A2 B2 C2 D2 и так далее.... https://yadi.sk/i/7gZ_HMFBkQeFA 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	12.11.2015, 16:47	12
	1. Разберитесь со своими кодировками-раскладками - я писал код точно по ТЗ, для символа "А" (скопировал первое упоминание из поста). 2. Искать числа по всему листу тоже никто не просил - было конкретно сказано "значение ячейки B2 из _budget вставить на новый лист в B3 и значение ячейки B2 из _А вставить на новый лист в B4" "первое совпадение в B2 и B3, следующее в С2 и С3, и тд..." А если задание ставите так как сейчас - то может кто другой и напишет копирование двух единственных значений с этих листов, но не я (потому что уверен это не финиш...). Или давайте полный список всех листов с позициями/адресами этих значений на каждом - только следите за символами! Будет завтра время - что-нибудь напишу... 0

	15.11.2015, 21:18

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	15.11.2015, 14:39	14
	Я уже ту первую задачу полностью сделал - про то, что юзеры будут косячить с именами листов речи не было, и выводить результаты оговаривалось вправо, а не вниз. И эти "определённые" в первой задаче ячейки тоже аккуратно собрал. Можно конечно переделать под новую задачу - но так и нет ясности что за и кем и когда "определённые" ячейки. Да и многократно переделывать код даже за маленькое пожертвование охоты нет - распишите всё конкретно. Прочитал 2 раза docx - конкретики не нашёл. Может она там и есть, но я не нашёл где 0

@Irv1n 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 22
	15.11.2015, 14:41 [ТС]	15
	Не знаю как по другому сказать, может вы спрашивайте, что неясно, буду уточнять. Спасибо. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	15.11.2015, 17:59	16
	Хорошо. Вот в примере который был в https://yadi.sk/i/7gZ_HMFBkQeFA из каждого листа нужно было копировать разные ячейки. Как понять что именно нужно копировать? Конечно если на этих листах произвольно раскиданы всегда только две ячейки с данными - вопрос почти снимается, скажите только в каком порядке их копировать. Но всё равно пока не понятно куда копировать с каких листов - покажите ещё один пример с заполненным результатом, может будет чуть понятнее. Но сегодня скорее всего ничего Вам делать не буду, есть всякие разные другие дела. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	15.11.2015, 21:10	18
	Сообщение от Hugo121 скажите только в каком порядке их копировать. Сообщение от Hugo121 покажите ещё один пример с заполненным результатом Покажите где в файле ответ на эти вопросы - некогда искать. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	15.11.2015, 21:18	20
	Нет там никаких протоколов. 0