| Вопрос: Помогите! (excel) | Добавлено: 08.08.06 15:01 |
Автор вопроса:  zhuk
|
| Подскажите,кто знает как в экселе соединить 3 столбца в один,причем в таблице не одна строка а оч много,и столбцы надо соединить для каждой строки! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #1 | Добавлено: 08.08.06 19:19 |
|
,и столбцы надо соединить для каждой строки! ну для этого цикл
кто знает как в экселе соединить 3 столбца в один см. объектную модель excel'я, ищи чё-нить похожее на "объединить"
|
||
|
Номер ответа: 2 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #2 | Добавлено: 09.08.06 11:51 |
| и что значит соединить? сложить? | ||
|
Номер ответа: 3 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #3 | Добавлено: 09.08.06 21:08 |
|
Ну впрочем если тебе нужно с потерей данных, то Range("A1:C1"
 .Select
With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With Ну а там сколько трок нужно, столько и selection, или массивом, как сказал Sacred Phoenix. А если объединить текст в ячейках со всем сохранением, надо подумать. Ты скажи, что тебе надо? |
||
|
Номер ответа: 4 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #4 | Добавлено: 09.08.06 21:09 |
|
Ну впрочем если тебе нужно с потерей данных, то
В этом случае сохранится только значение первого столбца. |
||
|
Номер ответа: 5 Автор ответа: zhuk Вопросов: 2 Ответов: 1 |
Профиль | | #5 | Добавлено: 13.08.06 23:23 |
| Спасибо,но нужно без потери данных! | ||
|
Номер ответа: 6 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #6 | Добавлено: 14.08.06 16:26 |
|
Dim n, j As Integer, i As String
n = 2 For j = 1 To Val(n) i = j Range("A" + i).Value = Str(Range("A" + i).Value) + Str(Range("B" + i).Value) + Str(Range("C" + i).Value) Next j Columns("B:C" .Select
Selection.ClearContents Range("B2" .SelectP/S Надо изучать Visual Basic, дружище - будешь уметь всё! |
||
Страница: 1 |