ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / из столбца в строку
12 сообщений из 12, страница 1 из 1
из столбца в строку
    #35948930
igor0008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor0008
Гость
Подскажите как можно по быстрому данные из столбца отобразить в строке
...
Рейтинг: 0 / 0
23.04.2009, 10:12
| Ответить | Цитировать | Написать  
из столбца в строку
    #35948975
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
igor0008,
1. Копировать -- Специальная вставка -- Транспонировать -- ОК


2. Формула массива {=ТРАНСП($A$1:$A$5)} вводится Ctrl + Alt + Enter
...
Рейтинг: 0 / 0
23.04.2009, 10:26
| Ответить | Цитировать | Написать  
из столбца в строку
    #35948980
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
Copy - Paste special - Transpose
...
Рейтинг: 0 / 0
23.04.2009, 10:27
| Ответить | Цитировать | Написать  
из столбца в строку
    #35949060
igor0008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor0008
Гость
Aster32,

Спасибо
...
Рейтинг: 0 / 0
23.04.2009, 10:46
| Ответить | Цитировать | Написать  
из столбца в строку
    #36583893
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub spec_vstavca()
Dim x As Integer, v As Integer

Worksheets("1").Range("b5:e5").Select 'выделяет диапазон ячеек
    Selection.Copy 'копирут диапазон
Worksheets("3").Activate 'активирует лист (3)
    Range("a1").Select 'выделяет ячейку (а1)
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True 'делает специальную вставку с транспонировкой


End Sub
Добрый день. Вот нашел топик который мне помог. Может для начинающих таких как я, этот код поможет . Ну может кто еще подскажет нельзя каким-то образом сократить вот эту строку но что бы функционал ее остался (написать проще)...

Код: plaintext
1.
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
Спасибо.
...
Рейтинг: 0 / 0
17.04.2010, 20:21
| Ответить | Цитировать | Написать  
из столбца в строку
    #36583923
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
-O_o-,


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Sub spec_vstavca()

With Worksheets( 3 ).[a1]
Worksheets( 1 ).Range("b5:e5").Copy
.PasteSpecial , , , True
End With

End Sub
...
Рейтинг: 0 / 0
17.04.2010, 21:30
| Ответить | Цитировать | Написать  
из столбца в строку
    #36584059
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Код: plaintext
1.
2.
...
.PasteSpecial Transpose:=True
...
...
Рейтинг: 0 / 0
18.04.2010, 01:03
| Ответить | Цитировать | Написать  
из столбца в строку
    #36584471
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Off topic. Но что бы не создавать новый.
ожет кто подскажет что делать с такой ошибкой?? Как ее убрать?? Стоит Office 2007 + wista. Помогите пожалуйста. Пример прилагаю.
...
Рейтинг: 0 / 0
18.04.2010, 18:44
| Ответить | Цитировать | Написать  
из столбца в строку
    #36584472
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Hugo121-O_o-,


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Sub spec_vstavca()

With Worksheets( 3 ).[a1]
Worksheets( 1 ).Range("b5:e5").Copy
.PasteSpecial , , , True
End With

End Sub


2 Hugo121 & vlth спасибо за примеры. Просто я пока не очень с ВБА )))
...
Рейтинг: 0 / 0
18.04.2010, 18:46
| Ответить | Цитировать | Написать  
из столбца в строку
    #36586000
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
-O_o-Off topic. Но что бы не создавать новый.
ожет кто подскажет что делать с такой ошибкой?? Как ее убрать?? Стоит Office 2007 + wista. Помогите пожалуйста. Пример прилагаю.Попробуйте внутри этого документа выполнить код
Код: plaintext
MsgBox ThisWorkbook.RemovePersonalInformation
Если выдаст True (а это соответствует тому, что где-то в настройках установлена опция удалять личные сведения), то проблема в этом, если False, то что-то другое.
...
Рейтинг: 0 / 0
19.04.2010, 16:38
| Ответить | Цитировать | Написать  
из столбца в строку
    #36586442
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Djon Player-O_o-Off topic. Но что бы не создавать новый.
ожет кто подскажет что делать с такой ошибкой?? Как ее убрать?? Стоит Office 2007 + wista. Помогите пожалуйста. Пример прилагаю.Попробуйте внутри этого документа выполнить код
Код: plaintext
MsgBox ThisWorkbook.RemovePersonalInformation
Если выдаст True (а это соответствует тому, что где-то в настройках установлена опция удалять личные сведения), то проблема в этом, если False, то что-то другое.

Выдает False.... Что делать дальше не знаю...
...
Рейтинг: 0 / 0
19.04.2010, 21:18
| Ответить | Цитировать | Написать  
из столбца в строку
    #36589435
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
-O_o-,

Этот файл выложите и напишите при каких действиях ошибка возникает.
...
Рейтинг: 0 / 0
21.04.2010, 10:37
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / из столбца в строку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36586000&tid=2178215]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 168ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 200ms
total:  471ms
созд. / загр.: 471ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]