Вопрос по Excel

Тема в разделе "Другие языки", создана пользователем l.korv1n, 14 окт 2013.

Модераторы: Цукер
  1. pinall

    pinall Писатель Нарушитель

    Регистр.:
    23 дек 2015
    Сообщения:
    2
    Симпатии:
    0
  2. Ruuv1337

    Ruuv1337 Писатель Нарушитель

    Регистр.:
    15 дек 2015
    Сообщения:
    1
    Симпатии:
    0
  3. Elvis000

    Elvis000 Писатель

    Регистр.:
    23 ноя 2015
    Сообщения:
    4
    Симпатии:
    0
    Не верный (

    Есть ещё варианты ?
     
    Последнее редактирование модератором: 26 июл 2016
  4. NutriProfits

    NutriProfits Создатель

    Регистр.:
    9 мар 2016
    Сообщения:
    3
    Симпатии:
    0
    разбить на столбцы потом скопировать строку и вставить данные в виде столбца на др листе и аналогично со второй строкой
     
  5. sava36

    sava36 Постоялец

    Регистр.:
    13 мар 2007
    Сообщения:
    146
    Симпатии:
    29
    Sub whatever()
    Dim WS As Excel.Worksheet
    Set WS = ActiveWorkbook.ActiveSheet
    Dim WS2 As Excel.Worksheet
    Dim i As Long, j As Long, k As Long
    With ActiveWorkbook
    Set WS2 = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
    End With
    WS2.Name = "RESULT"
    With WS.UsedRange
    For i = 1 To .Rows.Count
    For j = 1 To .Columns.Count
    k = k + 1
    WS2.Cells(k, 1) = .Cells(i, j)
    Next
    Next
    End With
    WS.Select
    End Sub
     
  6. sava36

    sava36 Постоялец

    Регистр.:
    13 мар 2007
    Сообщения:
    146
    Симпатии:
    29
    А точнее, если 1 столбец в исходнике надо оставить:
    Код:
    Sub whatever()
      Dim WS As Excel.Worksheet
      Set WS = ActiveWorkbook.ActiveSheet
      Dim WS2 As Excel.Worksheet
      Dim i As Long, j As Long, k As Long
      With ActiveWorkbook
        Set WS2 = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
      End With
      WS2.Name = "RESULT"
      With WS.UsedRange
        For i = 1 To .Rows.Count
          For j = 2 To .Columns.Count
            k = k + 1
            WS2.Cells(k, 1) = .Cells(i, 1)
            WS2.Cells(k, 2) = .Cells(i, j)
          Next
        Next
      End With
      WS.Select
    End Sub
    
    Это если че ВБА. Надо на нужном листе нажать Alt+F11, даблклик слева на "ЭтаКнига", в правом окне закопипастить этот код ниже того, что там уже есть, поставить курсор куда-нибудь в середину этого кода и нажать F5)
     
    Последнее редактирование: 15 окт 2016
  7. AndreasItalyMan

    AndreasItalyMan Писатель

    Регистр.:
    3 окт 2013
    Сообщения:
    1
    Симпатии:
    0
    Можно создать руками CSV файл и вставить разделители строк, после чего открыть с помощью EXCEL указав необходимый разделитель строк, и EXCEL сама разложит на строки
     
  8. drolyn

    drolyn Создатель

    Регистр.:
    20 июл 2007
    Сообщения:
    20
    Симпатии:
    15