информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Spanning Tree Protocol: недокументированное применениеАтака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Простое пробивание рабочего/провайдерского... 
 400 уязвимостей в процессорах Snapdragon 
 Яндекс неуклюже оправдался за установку... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / beginners
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Первое что пришло в голову..., вроде работает :) 17.05.05 13:17  Число просмотров: 1418
Автор: jiZo <Александр> Статус: Member
<"чистая" ссылка>
> Господа, посмотрите пожалуйста и подскажите, что я делаю не
> так. На EXCEL листе набиты Ф.И.О. около 900 записей, в
> каждой строке в таком порядке:
> Борисов
> Владимир
> Викторович
> Петров
> Петр
> Петрович
> и т.д. Надо их переписать на другой лист так,
> чтобы Ф.И.О. стояли в разных столбцах:
> Борисов Владимир Викторович
> Петров Петр
> Петрович
> Private Sub CommandButton2_Click()
> Worksheets("Лист1").Activate
> NumStr = 4
> For i = 1 To 900
> s = Worksheets("Лист1").Cells(NumStr, 1) '
> вся строка
> If s = "" Then Exit For
> f = Left(s, 15)
> Worksheets("Лист 2").Cells(NumStr, 1) = f
> NumStr = NumStr + 1
> i = Left(s, 15)
> Worksheets("Лист2").Cells(NumStr, 2) = i
> NumStr = NumStr + 1
> Next
> End Sub

Не мудровствая лукаво..... :)))

Private Sub CommandButton1_Click()
y = 1
t = 0
i = 0
While ActiveSheet.Cells(y, 1).Value <> ""
RemoveCell = ActiveSheet.Cells(y, 1).Value
Worksheets("Лист2").Cells(y - t - i, 1 + t).Value = RemoveCell
y = y + 1
t = t + 1
If t = 3 Then
t = 0
i = i + 2
End If
Wend
End Sub
<beginners> Поиск 








Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2020 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach