|
|
|
UnMergeColumn
|
|||
|---|---|---|---|
|
#18+
Добрый день, подскажите где ошибка? Разбивает объединенную колонку, но значения по всем ячейкам ставит одни И те же. А надо что бы в каждую ячейку свое значение, разделенное через Chr(10). Заранее благодарен. Sub UnMergeColumn() Dim icel As Range, x As Variant Selection.UnMerge For Each icel In Selection.Columns(1).Rows x = Split(icel.Value, Chr(10)) If UBound(x) >= 0 Then icel.Resize(1 + UBound(x), 1) = x Next End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.10.2007, 13:42 |
|
||
|
UnMergeColumn
|
|||
|---|---|---|---|
|
#18+
SuleymanДобрый день, подскажите где ошибка? Разбивает объединенную колонку, но значения по всем ячейкам ставит одни И те же. А надо что бы в каждую ячейку свое значение, разделенное через Chr(10). Заранее благодарен. Sub UnMergeColumn() Dim icel As Range, x As Variant Selection.UnMerge For Each icel In Selection.Columns(1).Rows x = Split(icel.Value, Chr(10)) Код: plaintext End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.10.2007, 14:35 |
|
||
|
UnMergeColumn
|
|||
|---|---|---|---|
|
#18+
SuleymanДобрый день, подскажите где ошибка? Разбивает объединенную колонку, но значения по всем ячейкам ставит одни И те же. А надо что бы в каждую ячейку свое значение, разделенное через Chr(10). Заранее благодарен. Sub UnMergeColumn() Dim icel As Range, x As Variant Selection.UnMerge For Each icel In Selection.Columns(1).Rows x = Split(icel.Value, Chr(10)) Код: plaintext End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.10.2007, 14:36 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2163225]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
53ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 382ms |
| 0 / 0 |
