Сборка данных с других таблиц  но без скрытых ячеек. 
				   
 
 
 MAXIMUSBIG  
 Дата: Четверг, 29.06.2023, 08:56 | 
 Сообщение № 1     
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  8 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
   2016          
  
 
 
 Здравствуйте добрые люди помогите пожалуйста. Если возможно собрать данные с других таблиц, но без скрытых ячеек. 
 
 
Здравствуйте добрые люди помогите пожалуйста. Если возможно собрать данные с других таблиц, но без скрытых ячеек. MAXIMUSBIG  
 
  
  
  
 Ответить 
Сообщение Здравствуйте добрые люди помогите пожалуйста. Если возможно собрать данные с других таблиц, но без скрытых ячеек. Автор - MAXIMUSBIG  Дата добавления - 29.06.2023  в 08:56   
 
 
 MAXIMUSBIG  
 Дата: Четверг, 29.06.2023, 08:57 | 
 Сообщение № 2     
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  8 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
   2016          
  
 
 
 Файл 
 
 
 
 
  
  
  
 Ответить 
Сообщение Файл Автор - MAXIMUSBIG  Дата добавления - 29.06.2023  в 08:57   
 
 
 Nic70y  
 Дата: Четверг, 29.06.2023, 09:38 | 
 Сообщение № 3     
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Экселист  
 
 Сообщений:  9185 
 
 
 
 
  Репутация:    
 2448    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2010          
  
 
 
 MAXIMUSBIG , для чего, если таблицы точно совпадают? или это пример не правильный? 
 
 
MAXIMUSBIG , для чего, если таблицы точно совпадают? или это пример не правильный?Nic70y  
 
ЮMoney 41001841029809 
  
  
  
 Ответить 
Сообщение MAXIMUSBIG , для чего, если таблицы точно совпадают? или это пример не правильный?Автор - Nic70y  Дата добавления - 29.06.2023  в 09:38   
 
 
 MAXIMUSBIG  
 Дата: Четверг, 29.06.2023, 10:41 | 
 Сообщение № 4     
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  8 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
   2016          
  
 
 
 Nic70y, спасибо за ответ. таблицы не совпадают. они могут отличаться по кол-ву строк. остаются только поз. первый столбец по этому критерию поиск и сборка данных. это только для примера создана таблица 
 
 
Nic70y, спасибо за ответ. таблицы не совпадают. они могут отличаться по кол-ву строк. остаются только поз. первый столбец по этому критерию поиск и сборка данных. это только для примера создана таблица MAXIMUSBIG  
 
  
  
  
 Ответить 
Сообщение Nic70y, спасибо за ответ. таблицы не совпадают. они могут отличаться по кол-ву строк. остаются только поз. первый столбец по этому критерию поиск и сборка данных. это только для примера создана таблица Автор - MAXIMUSBIG  Дата добавления - 29.06.2023  в 10:41   
 
 
 Nic70y  
 Дата: Четверг, 29.06.2023, 11:12 | 
 Сообщение № 5     
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Экселист  
 
 Сообщений:  9185 
 
 
 
 
  Репутация:    
 2448    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2010          
  
 
 
 MAXIMUSBIG , в листах месяца №* в столбце A могут повторятся?
 
 
MAXIMUSBIG , в листах месяца №* в столбце A могут повторятся?Nic70y  
 
ЮMoney 41001841029809 
  
  
  
 Ответить 
Сообщение MAXIMUSBIG , в листах месяца №* в столбце A могут повторятся?Автор - Nic70y  Дата добавления - 29.06.2023  в 11:12   
 
 
 MAXIMUSBIG  
 Дата: Четверг, 29.06.2023, 12:40 | 
 Сообщение № 6     
   
 
   
 
 
 Группа: Пользователи  
 
 
 Ранг: Прохожий  
 
 Сообщений:  8 
 
 
 
 
  Репутация:    
 0    
 ±  
 
  
 Замечаний:
 0%   ±  
   2016          
  
 
 
 Да повторяются 
 
 
 
  
  
  
 Ответить 
Сообщение Да повторяются Автор - MAXIMUSBIG  Дата добавления - 29.06.2023  в 12:40   
 
 
 Nic70y  
 Дата: Четверг, 29.06.2023, 15:46 | 
 Сообщение № 7     
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Экселист  
 
 Сообщений:  9185 
 
 
 
 
  Репутация:    
 2448    
 ±  
 
  
 Замечаний:
 0%   ±  
   Excel 2010          
  
 
 
 [vba]Код
Function u_1(a As Range, b As Range, c As Range)     u_1 = 0     l = 1     For Each x In a         If x = b And x.Rows.EntireRow.Hidden = False Then u_1 = c(l) + u_1         l = l + 1     Next End Function
 [/vba]  
 
 
[vba]Код
Function u_1(a As Range, b As Range, c As Range)     u_1 = 0     l = 1     For Each x In a         If x = b And x.Rows.EntireRow.Hidden = False Then u_1 = c(l) + u_1         l = l + 1     Next End Function
 [/vba] Nic70y  
 
 К сообщению приложен файл:   
						
							27_1.xlsm 
							(24.4 Kb) 
						  
ЮMoney 41001841029809 
Сообщение отредактировал Nic70y  - Четверг, 29.06.2023, 16:03 
  
  
  
 Ответить 
Сообщение [vba]Код
Function u_1(a As Range, b As Range, c As Range)     u_1 = 0     l = 1     For Each x In a         If x = b And x.Rows.EntireRow.Hidden = False Then u_1 = c(l) + u_1         l = l + 1     Next End Function
 [/vba] Автор - Nic70y  Дата добавления - 29.06.2023  в 15:46