AmsterDam
Дата: Среда, 13.11.2013, 00:32 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
Скажите, пожалуйста как объединить несколько столбцов в один большой? Пример прикладываю
Скажите, пожалуйста как объединить несколько столбцов в один большой? Пример прикладываю AmsterDam
Ответить
Сообщение Скажите, пожалуйста как объединить несколько столбцов в один большой? Пример прикладываю Автор - AmsterDam Дата добавления - 13.11.2013 в 00:32
SergeyKorotun
Дата: Среда, 13.11.2013, 01:34 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация:
15
±
Замечаний:
0% ±
Excel 2007
макросом:
Ответить
Сообщение макросом: Автор - SergeyKorotun Дата добавления - 13.11.2013 в 01:34
AmsterDam
Дата: Среда, 13.11.2013, 09:37 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
SergeyKorotun , а как нибудь без макроса?
SergeyKorotun , а как нибудь без макроса?AmsterDam
Ответить
Сообщение SergeyKorotun , а как нибудь без макроса?Автор - AmsterDam Дата добавления - 13.11.2013 в 09:37
AmsterDam
Дата: Среда, 13.11.2013, 13:43 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
Даже пусть будет макрос, но объединить только определенные столбцы, а не все на листе
Даже пусть будет макрос, но объединить только определенные столбцы, а не все на листе AmsterDam
Ответить
Сообщение Даже пусть будет макрос, но объединить только определенные столбцы, а не все на листе Автор - AmsterDam Дата добавления - 13.11.2013 в 13:43
Poltava
Дата: Среда, 13.11.2013, 14:18 |
Сообщение № 5
Группа: Друзья
Ранг: Форумчанин
Сообщений: 232
Репутация:
50
±
Замечаний:
0% ±
Ну добавьте соответствующие условие
[vba]
Код
Sub qwerty() Dim i As Long Dim j As Long Dim r As Long r = 2 For i = 1 To 11 Select Case i Case 1, 3, 5 For j = 1 To Cells(Rows.Count, i).End(xlUp).Row If Cells(j, i) <> "" Then Cells(r, 12).Value = Cells(j, i).Value r = r + 1 End If Next j End Select Next i End Sub
[/vba]
Ну добавьте соответствующие условие
[vba]
Код
Sub qwerty() Dim i As Long Dim j As Long Dim r As Long r = 2 For i = 1 To 11 Select Case i Case 1, 3, 5 For j = 1 To Cells(Rows.Count, i).End(xlUp).Row If Cells(j, i) <> "" Then Cells(r, 12).Value = Cells(j, i).Value r = r + 1 End If Next j End Select Next i End Sub
[/vba]
Poltava
Сообщение отредактировал Poltava - Среда, 13.11.2013, 14:24
Ответить
Сообщение Ну добавьте соответствующие условие
[vba]
Код
Sub qwerty() Dim i As Long Dim j As Long Dim r As Long r = 2 For i = 1 To 11 Select Case i Case 1, 3, 5 For j = 1 To Cells(Rows.Count, i).End(xlUp).Row If Cells(j, i) <> "" Then Cells(r, 12).Value = Cells(j, i).Value r = r + 1 End If Next j End Select Next i End Sub
[/vba]
Автор - Poltava Дата добавления - 13.11.2013 в 14:18