Форум программистов, компьютерный форум, киберфорум
Ig_o
Войти
Регистрация
Восстановить пароль
Оценить эту запись

Excel

Запись от Ig_o размещена 31.05.2021 в 14:57

Срочно!!!!Нужен человек, который объяснит как перенести данные с первого листа и правильно распределить в таблице
Вложения
Тип файла: xlsx база садовых центров.xlsx (970.0 Кб, 63 просмотров)
Размещено в Без категории
Показов 415 Комментарии 1
Всего комментариев 1
Комментарии
  1. Старый комментарий
    Аватар для ПерС
    Багов в данных много, а так бы просто

    Visual Basic
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    
    Sub Runme()
     r = 2
     r2 = 2
     For I = 1 To 800 'или сколько их там
      Worksheets("Лист2").Cells(r2, 1).Value = Worksheets("Лист1").Cells(r, 1).Value
      Worksheets("Лист2").Cells(r2, 2).Value = Worksheets("Лист1").Cells(r + 1, 1).Value
      Worksheets("Лист2").Cells(r2, 3).Value = Worksheets("Лист1").Cells(r + 3, 1).Value
      Worksheets("Лист2").Cells(r2, 10).Value = Worksheets("Лист1").Cells(r + 5, 1).Value
      Worksheets("Лист2").Cells(r2, 11).Value = Worksheets("Лист1").Cells(r + 7, 1).Value
      r = r + 8
      r2 = r2 + 1
     Next I
    End Sub
    и всё
    Запись от ПерС размещена 31.05.2021 в 18:08 ПерС вне форума
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.