Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите люди добрые из 3 столбцов сделать 1 / 5 сообщений из 5, страница 1 из 1
15.01.2007, 15:16:30
    #34256016
aliftina
aliftina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите люди добрые из 3 столбцов сделать 1
Здравствуйте!!!!
Помогите люди добрые.
Есть таблица в Excel в ней 220 столбцов и 200 строк, нужно получить один столбец, т.е. данные по каждому столбцу по порядку.
Пример
Исходные данные 3 столбца по 4 строки
1 5 9
2 6 10
3 7 11
4 8 12

результат 1 столбец 12 строк
1
2
3
4
5
6
7
8
9
10
11
12
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2007, 15:59:34
    #34256206
jjj676
jjj676
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите люди добрые из 3 столбцов сделать 1
Можно так
Sub Макрос1()

Dim I As Range
x = 1

For q = 1 To 220
w = 0
ActiveSheet.UsedRange.Columns(1 + x).Select
For Each I In Selection
w = I.Count + w
Range("A1").Offset(200 * x + w, 0) = I
Next
x = x + 1
Next
End Sub

После первого столбца правда появится одна пустая строчка, но удалить её вручную я думаю не составит труда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2007, 15:59:35
    #34256207
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите люди добрые из 3 столбцов сделать 1
Выделите весь диапазон с данными и запустите этот макрос

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub UnWrap()
Dim SourceRng As Range
Dim theColumn As Range
Dim Cell As Range
Dim TargetCell As Range
    
    
    Set SourceRng = Selection
    
    Set TargetCell = Worksheets.Add.Range("A1")
    
    For Each theColumn In SourceRng.Columns
        For Each Cell In theColumn.Cells
            TargetCell.Value = Cell.Value
            Set TargetCell = TargetCell.Offset( 1 ,  0 )
        Next Cell
    Next theColumn
    
    Set TargetCell = Nothing
    Set SourceRng = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2007, 16:04:35
    #34256232
jjj676
jjj676
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите люди добрые из 3 столбцов сделать 1
Можно так
Sub Макрос1()

Dim I As Range
x = 1

For q = 1 To 220
w = 0
ActiveSheet.UsedRange.Columns(1 + x).Select
For Each I In Selection
w = I.Count + w
Range("A1").Offset(200 * x + w, 0) = I
Next
x = x + 1
Next
End Sub

После первого столбца правда появится одна пустая строчка, но удалить её вручную я думаю не составит труда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2007, 16:18:56
    #34256305
aliftina
aliftina
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите люди добрые из 3 столбцов сделать 1
Большое спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите люди добрые из 3 столбцов сделать 1 / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 397ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183645]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 89ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 217ms
total:  397ms
x
x
Закрыть


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